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6809 の 一 般 的 な 特徴 は , すでに 本 誌 を 始め と する 各種 マ 
イコ ン 雑 誌上 に 発表 され て いる の で , ここ で は , 6800 と 比 
較 し な が ら 述 べ て いき ます . 


6809 の 内 部 レジ スタ 


6809 の 内 部 レジ スタ の 様子 を 図 1 に 示し ます . 8 ビッ ト 


シン ング 3 でき の 届 2 に ZN り I ま ) レ 7 

DPR は 8 ビッ ト の レジ スタ で , ダイ レク ト ・ ア ドレ ッ シ 
ング 命令 を 実行 し た と き に , A。 一 Ai。 に DPR の 内 容 が 出力 
され ます . 

CPU が リセ モット され だ た と き に は , 6800 と 同等 な 働き を す 
る よう に DPR の 内 容 は クリ ア さ れ ま す が , プロ グラ ム 中 で 
任意 の 値 を セッ ト す る こと で , ダイ レク ト ・ ペ ー ジ を 任意 
の 番地 に 設定 する こと が 可能 で す . 


長 の レジ スタ と し て は , 


デキ ュ ム レー タ (accumulator ) A 
アデ アキュムレータ (accumulator ) に 
ダイ レク トペ ー ジ ・ レ ジス タ DPR 


(direct page register) 
コン ディ ショ ンコ ー ド ・ レ ジス タ CCR 
(condition code register) 
以上 の 4 本 が あり , 特に A と 日 は , A を 上 位 バ イト と し 
て 連結 し , アキ ュ ム レー タ D ロ と 呼ん で , 16 ビ ッ ト 長 の レジ 
スタ と し て も 使用 可能 で す . 
まだ , 16 ピ ッ ト 長 の レジ ス 夕 と し て , 


⑩⑯ イ ン デ ックス ・ レ ジス タ X 
(index register ) 

@ つ イン デック ス ・ レ ジス タ Y 

スタ クック ・ ポ イン タ S 
(stack pointer) 

⑳ ス タッ ク ・ ポ ボ ポインタ U 

プロ グラ ム ・ カ ウン タ PC 


(program counter ) 
以上 の 5 本 が あり ます . これ ら 各 レジ スタ の 機能 に つい 
て , 以下 説明 を 加え ます . 


(1) アキ ュ ム レー タ (A, 量 , D) 


6800 と 同様 A, B2 本 の アキ ュ ム レー タ を 持っ て いま す 
が , A を 上 位 バ イト , を 下位 バイ ト と し て 連結 し . D レ 
ジス タ と 呼ん で 16 ビ ッ ト の 演算 が 可能 と な っ て いま す -. 

また , 8 ビッ ト ※X8 ビ ッ ト の 符号 な し 乗算 が 実行 可能 で 
ある こと も 注目 すべ き 点 で す . 


( 2 ) ダイ レク トペ ー ジ ・ レ ジス タ (DPR) 
6800 に お いて , ダイ レク ト ・ ア ドレ ッ シ ン グ が 使用 可能 


な 領域 は 0000 一 00FF の 256 バ イト だ け で し た が , 6809 で は , 


ダイ レク トペ ー ジ ・ レ ジス タ ( 以 下 DPR) を 設け る こと で , 
64K バ イト すべ て の アド レス 空間 を ダイ レク ト ・ ア ドレ ッ 


(3 ) イン デック ス ・ レ ジス タ (X, Y) 


6800 で は イン デック ス ・ レ ジス タ は X1 本 だ け で し た が 
Y が 追加 され る と と も に イン デック ス 修 飾 の 機能 が 大 幅 に 
拡張 され まし た . 

詳し く は ソフ トウ ェ ア の 項 で 述べ ます が ,。 ス タッ ク ・ ポ 
イン タ S, り に も イン デック ス ・ レ ジス タ と 同様 な 働き を 
させ る こと も 可能 で す . 


(4) スタ ッ ク ・ ポ イン タ (U, ら 5) 


スタ ッ ク ・ ボ ポイ ンタ S( 以 下 SP) は 6800 と 同様 に . サブ 
ルー チン ・ コ ー ル や イン タラ プ ト 処 理 の と き に 自動 的 に 使 
用 され る ハー ドウ ェ ア ・ ス タッ ク の ポイ ンタ で す . 

スタ ッ ク ・ ポ イン タ U( 以 下 UP) は , この よう な 仕事 か 
ら は 解放 され て いる ユー ザー・ ス タッ ク ・ ポ イン タタ で す . 
サブ ルー チン へ の 引数 引き 渡し な ど に 有効 に 使用 可能 と な 
り ま す . 

また , 6809 の すべ て の 内 部 レジ スタ (CCR, A, B, DPR, 
X, Y, U, S, PC) は , SP お よび UP の 示す スタ ッ ク へ 退避 
可能 と な り ま し た . 

6809 の 命令 実行 に 要する マシ ン ・ サ イク ル 数 は , その ほ 
と ん ど が 6800 と 比較 し 同等 か , 1 サイ クル 程度 遅く な っ て 
いま す が 。 2 本 の イン デック ス と 2 本 の スタ ッ ク ・ ポ イン 
タ を 有効 に 使用 すれ ば , マシ ン ・ サ イク ル の 遅 さ を 補っ て 
余り ある も の と 期待 され ます . 


(5) プロ グラ ム ・ カ ウン タ (PC) 


6800 と 同様 11 ビ ッ ト の レジ スタ で す が , ある 種 の 命令 で 
は , PC と を イン デック ス ・ レ ジス タ と 同様 な 使い 方 が 可能 
Cs 

この 機能 に よっ て , 記憶 場所 の アド レス に 依存 し な い プ 
ログ ラム ポジ ショ ン ・ イ ン デ ィ ベ ペン デ ン ト (Position 

Independent) な プロ グラ ムー 一 を 作る こと も で きま す . 
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(6) コン ディ ショ ンコ ー ド ・ レ ジス タ (CCR) 


図 2 の よう に , 6800 で は 使用 きれ て いな か っ た 上 位 2 ビ 
ッ ト が 以下 の よう な 働き を し て いま す . 
ア . FIRQ Mask (ビッ ト 6) ビ フ ラ グ 
FIRQ と は ファ ー ス ト ・ イ ンタ ラプ ト ・ 
(fast interrupt request) の こと で す . 
6800 の IRQ は , すべ て の 内 部 レジ スタ (CCR, 日 , A, 
X, PC) を スタ ッ ク へ 退避 する た め に , 処理 時 間 が 長 
く か か る と いう 欠点 が あり まし た . これ に 対し , 6809 
で は FIRQ と いう 端子 を 設け , この 端子 か ら の イン タ 


リク エス ト 


ラプ ト に は , CCR と PC の み を スタ ッ ク へ 退避 し ます . 


F フ ラグ を “1” と する こと に よっ て , FIRQ を 拒否 す 
る こと も で きま す . 

また , F フ ラグ は , NMI, FIRQ, SWI お よび RESET 

( 芝 直り TALK セグ トド S さ まる 9 が 5 
イ . Entire Flag( ビ ッ ト 7) ヒビ フラ グ 

前 項 で 述べ た よう に , 6809 に お いて は , イン タラ プ 
ト 処 理 の 際 。 内 部 レジ スタ の スタ ッ ク へ の 退 有 避 方 法 に 
2 種類 あり ます . この た め , イン タラ プ ト 処 理 か ら リ 
ター ン す る 際 に , 2 種 あ っ た 中 の どちら で ある か を 区 
別 し な けれ ば な り ま せん . 

EE フラ グ は この た め に 使用 きれ る も の で , “1 "なら 
ば , すべ て の レジ スタ を スタ ッ ク か ら 取 り 出 し て リタ 
ー ン し ます . 逆 に "0" な ら ば , CCR と PC の 値 の み ス 
タッ ク か ら 取 り 出 し て リタ ー ン する こと に な り ま す . 


6809 の 命 令 セ ッ ト 


6809 の 実行 可能 な 命令 セッ ト を 表 に 示し ます . 機械 語 レ 
ベル で は , 一 部 6800 と 異な っ て お り , 特に , イン デック ス 
・ レ ジス タ お よび スタ ッ ク ・ ポ イン タ 操 作 に 関す る 命令 は , 
ニモ ニッ ク が 同じ で も , 機械 語 コ ー ド は 違う の で 注意 が 必 
要 で す . 

基本 命令 数 は 6800 の 72 か ら 59 種 類 へ と 減少 し た も の の , 
アド レッ シン グ ・ モ ー ド の 変化 に よる 組み 合わ せ 数 で は 197 
か ら , 1,464 種 類 と な り , これ に と も な っ て , 1 つの 命令 
に 必要 な バイ ト 数 は 1 一 4 バイ ト ま で と 種類 が 増え た まし た . 

命令 実行 に 必要 な マシ ン ・ サ イク ル 数 で は , ダイ レク ト 
お よび エク ステ ンド ・ ア ドレ ッ シ ン グ ・ モ ー ド で , 残念 な 
が ら 6800 に 比べ 1 サイ クル 余分 に 必要 と な っ て いま す . 

まだ 。 イン テッ クズ スジ レッ シグ お よび レジ スタ ・ 
アド レッ シン グ の 各 モ ー ド で は , 命令 コー ド に 引き 続く 次 
の バイ ト を ポス トバ イト (POST BYTE) と 呼び アド レ 
0 ここ タ が 各種 各 様 に 変化 
し , これ に よっ て , 1 命令 に 必要 な バイ ト 数 や , 命令 実行 
に 必要 な マシ ン ・ サ イ NIS 市 遇 


&0 


図 2 CCR の フォ ー マ ッ ト 
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アド レッ シン グ ・ モ ー ド 
6809 で 使用 可能 な アド レッ シン グ ・ モ ー ド に は , 次 の よ 
な も の が あり ます . 

イン ヘレ ント (inherent) 
イミ ディ エー ト (immediate) 
エク ステ ンド (extended) 
(お よび エク ステ ン デ ィ ッ ト ・ イ ンダ イレ クト ) 
⑳ ダ イレ クト (direct) 
レジ スタ (register ) 
イン デック ス (indexed) 
ア . ゼロ ・ オ フ セ モッ ト (zero offset) 
イ . コン スタ ント ・ オ フ モ セッ ト (constant offset) 
ウ . アキ ュ ム レー タ ・ オ フ セ モット 
(accumulator offset) 
エ . オー トイ ンク リ メ ン ト / デ クリ メン ト 
(auto increment/decrement) 
オ . イン デック ス ド ・ イ ンダ イレ クト 
_(indexed indirect) 
リラ ティ プ (relative) 
eS コー トド / ロ ング アラ ンチ 
(short/1ong branching) 
イ 。 プ ログ ラム カウ ング タリ イブ 
(program counter relative addressing) 
以上 の うち , 介 と ゆ は 6800 と 同様 な の で 説明 は 省略 し ま 
す . 


(3) エク ステ ン デ ィ ッ ド ・ ア ドレ ッ シ ン グ 


6800 に は な い 機 能 で ある エク ステ ン デ ィ ッ ド ・ イ ンダ イ 
レク ト の 例 を 示し ます . 





[ 例 1] エク ステ ン デ ッ ド ・ イ ンダ イレ クト 
アド レス (ラベ ル ) 。 コー ド [CAT] 
メメ メメ LDA 
CAT 10 
CAT+1 52 
1052 41 











上 の 例 で , [ ] の 記号 は , 6809 用 アモ ンプ ブラ で イン ダイ 
レク ト ・ ア ドレ ッ シ ン グ を 表わし ます . [ ] が な けれ ば , 
A レ ジス タ に は CAT 番 地 の 内 容 で ある 10 が 入り ます が , 

上 ] が 付く と , C AT お よび CAT 二 1 番地 の 内 容 が 新た 

な アド レス に な り ま す . この 結果 A レ ジス タ に は , 1052 番 
地 の 内 容 で ある 41 が ロー ド さ れる こと に な り ま す . 


&O 


(4) ダイ レク ト ・ ア ドレ ッ シ ン グ 


DPR の 内 容 が 0 で あれ ば , 6800 と まっ た だ く 同 様 で す が 
DPR に 任意 の 値 を ロー ド す る こと で , ダイ レク ト ・ ア ドレ 
ッ シ ン グ に よっ て アク セス する 番地 を 任意 に 変更 可能 と な 
っ て いま す . 6809 の 内 部 レジ スタ DPR の 説明 を 参照 し て く 
だ さい . 


(5) レジ スタ ・ ア ドレ ッ シ ン グ 


6800 に お ける , 内 部 レジ スタ 間 の デー タ 転 送 は TAB, 
TBA, TS 双 , TXS の 4 個 の み で し た が , 6809 で は , 
ビッ ト サ イ ズ の 等 し い レ ジス タ 同 士 で あれ ば , デー タ の 転 
送 お よび 交換 が 可能 で す . 

転送 は TER($ 1F,transfer)。 交換 は EXG($ 1E, 
exchange) 命令 で 行ない 、 これ ら の 命令 に 続く 次 の バイ ト 
(先ほど 説明 し た ポス トバ イト ) が , 転送 また は 交換 に 使用 
きれ る レジ スタ を 示し ます . ポス トバ イト の 上 位 4 ビッ ト 
と 下位 4 ビッ ト で , それ ぞ れ 1 個 ず つの レジ スタ を 表わし 
ます が , この と き の ビ ッ ト ・ パ ター ン と , レジ スタ の 関係 
を 図 3 に 示し ます . 

3 TFR, EXG 命 令 の ポス トバ イト 








TEFER A, DPR 
は A の 内 容 を DPR に 転送 を 意味 し , これ を 機械 語 で 表 
わす と , 
アド レス $1E 
mn $1TF 
mn 十 $8B 


に な り ま す . 
4 ビット で は , 16 種 類 の レジ スタ を 区 別 可能 で す が 
6809 で は , 図 3 の よう に 10 種 し か 使用 し ませ ん . 








次 に , レジ スタ の スタ ッ ク へ の 退避 に つい て 説明 を 続け 
まま 29: 

6809 は スタ ッ ク ・ ポ イン タ を 2 本 持っ て いる の で , P 

US H お よび PULL 命 令 は SP 用 , UP 用 に 分 か れ て 
いま す . 

また , 6800 と 違っ て すべ て の 内 部 レジ スタ を スタ ッ ク へ 
退避 可能 と し て お り , 例 の ポス トバ イト の 各 ビ ピッ ト が 図 4 
の よう に レジ スタ に 対応 し て いま す . 

PUSHH PULTL 命 令 で は , 1 が 立っ て いる ビッ ト に 
対応 する レジ スタ の 内 容 が スタ ッ ク へ 退避 され る こと に な 
り ま す . 

図 4 PUSH, PULL 命 令 の ポス トバ イト 
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〔 例 3) PSHS 4A, X, PC 

S P て 示さ れる スタ ッ ク に A, DPR, X, PC が 退 
避 さ れ ま す . これ を 機械 語 で 書く と, 
アド レス 

n $ 3 4 
ーー ド 。 由 $ 9 A 


命令 コー ド 


ポス トバ イト 


BBB 





























この と き に , スタ ッ ク に 積ま れる 順番 は , 図 5 の よう に 
決め られ て いま す . 

この よう に , わずか 2 バイ ト で 任意 の レジ スタ を スタ ッ 
ク へ 退避 可能 で す が , これ に 要する マシ ン サ イク ル 数 は 5 
サイ クル 十 a と な り , g は 退避 され る バイ ト 数 X 1 サイク 
ル 必 要 で す . 

(6) イン デック ス ・ ア ドレ ッ シ ン グ 

6809 の イン デック ス 修 飾 に は , X, Y, りお よび S の 中 
の 1 本 を 使う こと が で きま す . また , 場合 に よっ て は , P 
C も イン デック ス と 同様 の 働き を させ る こと が で きま す . 
イン デック ス 修 飾 は 基本 的 に は 5 つ に 分 類 さ れ , ポス ト 
バイ ト が , この 基本 タイ プ お よび その 変形 と , 修飾 に 使わ 
れる レジ スタ を 決定 し ます . 

図 6 に ポス トバ イト の ビッ ト ・ パ ター ン と , これ に 対応 
する イン デック ス 修 飾 の 行なわ れ か た を 示し ます . 

@ イ ンダ イレ クト ・ モ ー ド の 例 





【 例 4) イン ダイ レク ト ・ ア ドレ ッ シ ン グ 

命令 実行 前 に マレ ジス タ の 内 容 は $1000 と し ,($10 
30) ニ $FE, ($1031) ニ $50,.($FE50) = $41 だ 
っ た と 仮定 し ます . 

EDAW [30 内 W) 

の 命令 を 実行 する と , (Y) 十 $30 三 $1030 な の で , B 
1030 番 地 と , $1031 番 地 の 内 容 ($FE50) が E A, 
(effective address : 実 芝 . ア ドレ ス ) に な り , 結局 A 
レジ スタ に は $41 が ロー ド さ れ ま す . 








ーー デー 

@b が "0 "なら 土 4 ピ ビット ・ オ フ セ ッ トモ ー ド に な り ま す . 
6800 と 異な り , 土 の オ フ セ モッ ト が 可能 で す ( 負 の オフ セ 
ッ ト は 2 の 補 数 で 表わす .) 

eb。 お よび b。 で 修飾 に 用 いる レジ スタ を 決定 . 

図 5 PUSH, PULL 命 令 時 , スタ ッ ク に 積ま れる 順番 
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マシ ン 語 マニ ア に と っ て , 欠か せな い の が , サブ ルー チ トリ ・ マ ッ プ と シス テム ・ エ リア を 報告 し ます . 
ン の 宝庫 で ある イン ター プリ タ の 解読 で す . FM-8 用 プロ グラ ム の 開発 に 役立て て も ら え ば 幸い で す . 
FM-8 を 入手 し , 念 の た め , LEVEL 3 と 比較 し た と ころ , な お , まだ まだ 未確認 の 部 分 が 多く あり ます . 気付 いた 
か な り 類 仏 し て いる こと が わか り ま し た . 点 な ど あ り ま し た ら , ぜひ 編集 部 まで 知ら せ て くだ さい . 
幸い , 本 誌 に は , LEVEL 3 に つい て , 小山 乃 麓 氏 の エン 参考 文献 
トリ ・ マ ッ プ の 解読 と .。 シス テム ・ エ リア の 解析 結果 が 報 1) 小山 乃 術 :^ レ ベル 3 シス テム 解析 ?, 1/O'81 年 6 月 
告 さ きれ て お り , これ ら を 参考 に し て 作成 し た ,FM-8 の エン 号 。 7 月 号 
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001 1 1= kip 5 上 opping de1imiter &. temp regi5 モ er Q0074 EXPOnent of 1oating acumu1 a モ ロレ 
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001 さ 。14 =t モ atement 1ength+2 007B-7B FACE (extend) 
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0017 type of variab1 es O0B さ -89 auxi1iary FAC (FAC2) 
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LINE end X position 


OOCB。CC LINE end Y posi モ tion 

QOCD fie1dinq Con モ an キモ 

OOCE 1agt position 
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00DO ac モ tua1 MIDTH 
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O1E さ .E4  LPT O.1.2 feed Code 

Q01E5 CHLOR of Charac モ ロレ ヒ 

O1E6 back co1or of Charac モ or 
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028 ヨ 7 フー 日 9 5 モ ring PFrOCG555 BAP at 965 全 

O28A-BC STRING regist BAP at CAB5 

O28D- ヨ F DUS GAP at DBC2 (abort) 

O290-92 DOS BAP a モ (NMI break) 





O0293-95 





DIM BAP at 99B9 





&O 


ワー ク ・ ア ドレ ス 表 





O296-9 昌 
O299-9B 
O29 ビ ー-^A5 
02aC. AD 
O2AE. AF 
O2BO.B1 
O2B2. B く 
O2B4 . B5 
O2CC. CD 
O02CE 
O2CF 
O2DO 
02D1 
O2D2.D く 
O2D4 
O2D5 
02D6 
O2D7 
02D8 
02D9 
O02DA 
02DB 
O02DC 
0O2DD 
O2DE-E5 
O2E6 
O2E7ーEC 
O2ED 
O02EE 
O2EF 
02FO 
O02F 1 .F2 
O2F さ 
O02F4.F5 
O02F6.F フ 
O2F.F9 
O2FA.FB 
O2FC.FD 
O2FE.FF 
0300-OA 
0SOB. OC 
030C 
03OD 
03OE 
0SOF 
0310 
0S1 1 


Ya1 iaD1 与 DrO ヒ 5 BRP a モ 9 ヒビ BA 
Phi =i こ Ca1 dv1 こ と ロロ < 

モ tabu1 a モ in PO5i モ ion 

f。key tab1e poOinter 

N PEN BOTO tab1e pointer (OSC 日 ) 
INPUT buffer pointer (OS5FA) 
FILE descripter tab1e (O6F5) 
FILE 1ist pointer (O6F9) 
INPUT buffer ロ Oin モ ge ヒ 

tape bl1ock type 

tape b1ock by も e COoun モ 

CASO use f1ag 

CASO LUF data Count 

CASO input buffer workin DOinter 
tape fi1e mode 

check sum errOor f1aqg 

MOTOR goff f1ag 

MUTUR drive = モ atus 

1 in Output 5upDF 呈 5 1a ロ 
forma モ モモ in ロ 5uPDFE555 fa 
INPUT/ ロ UTPUT f1ag 

FILE type 

FILE mgde 

FILE name 1ength 

FILE name 

Phy=ica1 devi こ Ce numher 

FILE gption " SBN2*OO 

END sentine1 

LUQAD EXEC f1ag 

LOAD 

LAD NM f1aqg 

LOAD 

LAD 

Cc1ock hour 

と 1ock minute 

C1OCk 5@COnd 

DATE year 

DATE month 

DATE day 

WF1 モ 上 Pen 1 ロサ OFmaiOn5 
Cur5Or X 

Cursor Y 

1ine number/MIDTH parame モ er 
呈 ヒ F ロ 11 top 

に ビ ロ 11 end 

f。key display f1aqg 
formatting Con5tant by disp1ay mode 


0O さ 1 さ STOP key condition 


031 4 15 
0316. 17 
03 さ 1 日 -18B 
031 ビ ー1E 
031F-3 昌 
0339 





03 さ 人 Q-3B 
033 ビ 
034 さ 
O43D-05 さ ヒ 


MUN memory じ @& ロ ー ロ u モ addr@ 号 史 
MOUN stack 5aVv@ 

random number 

RND work 

va1iab1e 1st 1etter definition 
品 8m 己 85 $ 

1ine number editting pointer 
DELETE f1ag 


INPUT Duff 


05 さ F-O567 EDIT work ar@a 


O568B-7 フ 
057B-95 
0596-9 プ 
OS98 
0599 
OS9A 
OSB 
OS59C 
0S9D. 9E 
0S9F 
QSC.F フ 
OSF.F9 
OSFA.O6F 晶 


Ya1 iab1eG nam ら feFrFLGn こ 己 arF 己 は 
va1iab1e name 5 モ acK ar@a 
temporary Strage of OOD9.DA 
ビビ OF ff1a ロ 

INPUT command f1aq 

COM opened fi1e f1ag 

TERM apened fi1e f1aqg 

TERM data (DIP swich) 

RAM end-1 

RAM end f1agq 

ロ N PEN BUTU parameter 


CAS input Duff 


O6F9.O706 FILE 1/ ロ routine 上 ab1e nointer 


0719-29 
O72B-2F 
07 ミ 0-4 日 
O749-7a 
077B-7F 








0780-98 
O07 ヨ 5-97 
079 ビ -AD 


FILE UPEN = モ atus5 tab1e 

PEN UN ロ FF = モ tatus tabl1e 

COM 0O-4 sgubroutine jump tabl1e 
ロ N KEY BUSUB jump tab1e 

UN KEY BSUB 

LTNE continu も ti モッ y 5igna1 

LPTO 1/ ロ routine jump モ ab1e 
CUM 1/ ロ routine jump tab1e 


] 














,O 

















エン トリ ・ マ で ツ プ EE 
FM- 日 RUM entry map | | 999E A-Z test 
ノー if a1phb モ iC モ 上 hen こと a ヒ ry と 1ear 
B9O0 VERBI ロ N/DAQTE 2 ノ 2 て .。 ど // の ンー 99B numeric test 
B90 BAS1C co1d star も 1 numeriC モ then と a ヒ ry C1ear 
BBG6 昌 RESET message 29BO variabl1e search 
BBC4 COMO jump table 9012 new variab1es 
BBD6 BUBO jump tab1e 9a4E variab1le finder 
BBFO function key 11s モ 9866 variab1e semaph ロ レヒ @ 
BC48 GO DaqG arGa ata 87 formula + cint 
BCA さ NMI entry 85 array 
BCDA * Memory parity error” BOO  ”' ubscFipt Out of range* 
BCFO-BD45 function jump tab1e 9BO さ  *i11iga1 function”? 
BD46-BD69 operator jump tab1e BCE FRE 
BD6n-BFB さ keyword tah1e 9BEF  D 一 > OO76.7 フ nt 1aqg se モ (1oad ) 
BFB4-922F command routine jump tab1e *dup1icate definition? 
904 ビ ー91FC keywordーinter . 1 ang.。 correspondent tab1e ウ BF4 STR$ 
91FD keyword 人 -Z jump tab1e 9C02 tring desCrip モ er 
9230-9241 "READY” BREAK* 9 じ SD 。 string reqgistration 
9242 return address adjus モ も 9C70 5=tring 5Dass 
926D block transfeger 9D4 さ tring Concatenation 
0067 』 dest top DB6 string formula evaluate 
0069 』 org top DB6 LEN 
0O6D 』 grg end 9DBF CHR$ 
9284 memory fu11 test Bs word counts 9DD さ ASC 
928B memory fu11? 9DDE LEFT$ 
9296  X + B => X (OODE)〉 9DFB RIGHT$ 
?297 (001C。1D) + X => X 9EO5 MID$ 
9299 (002 さ .24) + X => X E47  GNC & then 
(specia1 stack pu11) 9E49 formula to inteqger in B & then 
92A0 "out of memory”* E4C 1 byte int 
92A9 "direct statement in fi1e" 9E57 VAaL 
92AB error messaqe display with error code in Breg- EB6 1 一 gt term toO X 
53 さ 6 error stop 2-nd term to B 
9 さ 45 Command start 9EBF formula to sing1e.V in X 
9 さ 3 フフ statement 1ine saving ?E92 bddress inteqer (over さ 276 フ ) 
9SE2 1ine number search EB く PEEK 
93F 日 NEM 9EBD POKE 
940E program Cance1 9EDD TAB 
9414 variab1e 9FOD PRINT 
& array CanC@1 a11 val1 is sin ロ le 9F97 CR/LF 
9468 REBTORE FAB formatted tab 
47C ENDjiReady entr ッ FCO SPEC( 
9485 STOP 9FDF 1ineout top addr-1 in X 
94BD Break ent レ ッ end sentine1 is OO 
94AC CONT AO2F カッ ラジ 
94BE RUN AOD9 INSTR 
94D2 GO 1SE STRING$ 
94DC GOBUB 人 1BO SPACE$ 
94FA GOTQO 196 MID$ (statement) 
9516 RETURN 人 2 く O HEX$ 
9529  ?undefind 1ine No。” 2 くさ 1 ロ CT$ 
545 DATA A29D  &0 
954B REM & ELSE a2AE  &H 
954D gkip to col1on de1imiter 2D5S OO4B.4C > ASC string 
955O skin to OO de1imiter 2DA List each 1ine 
9596 IiF 人 Q く 15 Lis モ /De1ete range 
?5AB IF THEN or IF GOTO tart OO0a2. さ 
95BE ロ N ERROR or ON GOTO/BOSUB e n d 00a4.a4 
9607 dmcimal to binal1y in OO4B.4C 366 =tatement end check 
963 人 LET 36C Current 1ine number 
65 日 1et string if "7 then OOA6.7 -> OO4B.4C 
96B6 "mis5ing Operand? 人 A37D DEFSTR 
6BB TERM 3BO DEFINT 
96EC NOT ASB さ DEFSNG 
6F9  ?&” ERR ERL USR FN & functions SB6 DEFDBL 
9727 。 ?(" tes モ + formula + >)?( 上 est SCB DELETE 
572C  ?)? tewsgt SDF Delete 1ine 
の 72F "(CE 価 宮 も 人 SF さ AUTO 
97 さ 2 comma test (OOD6) 426  TRON 
97 さ 4 compare BiOOD9.Da 427  TROFF 
1f ロ K then get next character (OODB) 42B USTNG! 
9740  ”syntax error” A4BB UBSINB 
245 sign change RSED FOR 
974D variab1le name check & 1oad FACE A655 STEP 
97SF formu1la + num test 6BB NEXT 
9764 evaluation of formul1a 人 732  MHILE/MEND 
97B6 term operation 。.。。+ キ ー ネ ※/ & FOR/NEXT 
97D4 priority contro1 AZ7B4 inner quate skip 
9842 prigrity contro1 ( へ ) 人 ABO5ーQACC erFOr me 呈 a ロ 
9854 priority contro1 (1ogica1 ) AACD ON ERROR 
9BSF priority contro1 (MOD \) RAAF7 ERRQR 
871 divigsion (/) operator ABO2 RESUIE 
BBC FAC push AB42 SMAP 
BB5  FAC pul1 AB74 DEF 
8D7 1ogica1 or string QBBA ふ 11eqa1 direct test 
29OF charactor string ABC5 FN 
94C AND ACEE VaRPTR 
9951 QR 人 DOS DEF USR 
9956 XR DSC USR 
99SB EQV AFA2 _ MON entry 
99SD NT RFDA G commande 
9960 IMP BOOZ get key in 
9969 DIM BO14 D commande 
9972 。 variable name BO3B M commande 
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BQ9C R commande 

BOD7ーE ビ 7 (regi5ster nam 紀 ) 
BOF5 MHILE 

B12 さ MEND 

B17F HARDC 

B244  aNPORT 

B2B7 rea1 =ubt モ Fuction 
B2BD real1 addition 

B さ Q6 genera1 norma1izin ロ 
BSBS  FAC negat@ 

BSBB  [ gover 1ow ] 

BSDC aux register FAC ビ -2 normalize 
BSFD-B41D constan モ 

B41E LOG 

B465 rea1 mu1tip11iCa モ ion 
BS2E 1gad FAC-2 


BSBD- 人 7 constan も 


BSAB real1 division 
B676 1oad FAC by X 
B6aQ  FAC un1oad 
B6FS  FAC-1 => FA ビ ー2 
B672  ! ngorma1izin ロ 
BZ715 rea1 SGN in B 
B7 さ さ SBGN 
BZ7SD SGN in B 
BZ74A AaBS 
BZ75S6 rea1 pOwer 
BZD6 FIX 
BZE7 INT 
BB2C numericCa1 value 
BB7B rea1 va1ue@ 
B96D int to SC strindq 
B97H norma1 rea1 to QSCT1 = モ ヒ ュ in ロロ 
BA45 rea1 value reduction 
BDCQ arithme モ iC OPD ら Ga モ ュ On 
BDCE-BES4 cons モ an キモ 
BES5S SQR 
BE9D-4D constant 
BEC2 EXF 
BF4D RANDOMIZE 
BF66  RND 
BFB5-DC (rand seed) 
BFDD CINT 
COOF string value te 
CO1B numerica1 value モモ 
CO1D value type test (OODO) 
幕 # CC 
cha 』 Z 
4 3 N 
) 』 V set 
CO2EB tyDe Convert 
CO37 CDBL 
CO4Q CBNG 
CO69 inteqger モ O rea1 
COB さ ん norma1izeind 
CO93 inteqger branching 
CO 一 Op@Fat ロ r 
COB7  + OPDera キ Or 
CODD  *※ opera モ OF 
C137 sign negate 
17A  \ DeFra モ OF 
C1 人 1 MOD operator 
C1B さ Opera キモ ロレ 
C1CF CO8 
C1DS SIN 
C221 TAN 


C244-ー64 Cons モ an も 


C265 


人 ATN 


C294-B 昌 Constant 


C2B9 1ine input 

C2DB input prompt me5s5a ロ 選 & fi1 与 Check 
C さ 1D input from KYBD & then 

C さ 21 "input pas モ end" 

C347 INPUT (=tatement) 

CSSD READ 

C さ 60 input from fi1e 

C さ 1a LINEINPUT entF ッ 

C497ーA9  *"redO frOm 5 モ ュ レキ? 

C4Q in モレ media モ 呈 CoOd GOFdinG ロ 

CSC9 keyword tran 呈 1 a モ モロ intermediat 司 Code 
CZ7EO Chan ロー に a5 己 モロ い DD 己 ビー こら 呈 己 

CZ7EB function ana1iz 

C985 st モモ ement eXeCu モ tiOn 

C9A5 from COF 55um 所 

C9CB each =ubFOu モ in こ a1 1 

CEE spacia1 function 

CQ11 BaACIC end 


CA2 さ -65 short keyword モ て ab1e 


CA66 
CA96 


tex 上 end search 

ロモ nx 上 こと haFac モ or 
b1 ank 11mina も 
a1p。num 3 CC se 
endd 』 Z 55e モ 
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エン トリ ・ マ ッ プ 





CAAS EXEC 

CAB1 CLEAR 

CAF 1 tx 上 pFrOC@551n ロ 

CBO さ S COLOR 

CB24 CHNSOLE 

CBBB MIDTH 

CCOO LOUCATE 

CC22 。 UNLIST 

CC ささ CSRLIN 

CCSA POS 

CCS7 FIRQ entry 

CCEB BIQS CASO jump モ tab1e 
CCFA CASO EQF 

CDO さ CaQSO LOF 

CDO6 CaSO open 

CD9E "device in us5*” 
CDA1  ?device 1I/ ロ error” 
CDA6 CASO c1ose 

CDBC LOAD ? 

CDBE SKIPF 

CDD9 CASO BET 

CEF4 CASO PUT 

CE2 く CASO POS 

CEBB FILES 

CEED-CFO9 "searching found skip* 
CFOA fi1e55 descripter 
CFS3B fi1e name se entFy 
CFD2 。 "bad fi1e5= ds と Fi ロモ ter” 
CFD7 LIST 

DO14 SAVE 

DOBC protect て est 

DOCA SQVEN 

D1OF FILES c1ose 

D1 さ 7 CLOSE 

D145  a11 fi1es CLOSE 
D154 files number in B & OOE 
D16C OPEN 

D1QO input fi1e open 
D1Q く nutput fi1e open 
D1AS ロ PEN entry 

D1BB "bad files mode* 
DIBB "fi1le5s already open* 
D1CE  ?device unavai1ab1e* 
D1E6 run FILE 

D1ED MERGE 

D1FS LOAD 

DS ささ 6 INCH 

D3S2 ロ UTCH 

DSBE head position of actua1 fi1 
DSB1 device number モ 上 es モ 
D3BE output fi1e check 
DSC1 input fi1e Check 
DSDE EQF 

DSE1 LOF 

D42O INPUT 

D4SC COM c1ose 

D471 CNM gpen 

D420 INPUT 

D45SC COM c1ose 

D471 COM open 

DS13 CONM PUT 

D564 COM GET 

DS5QB IRQ entry 

D614 head pos5ition 

D61D COM EOF 

D62C COM LOF 

D696 ロ N BOT ロ 

D6BD COM 

D6FC 1/ ロ statu 1ear ヒ 
D782 TERM mode se も 

DB65  LPT c1ose 

DB ヨ 7O  LPT PUT 

DB BASTC hot = モ art (STHP-RESET ) 
DBC2 ABURT tes=t 

DB ヨ F4-FD abort* 

DBFE cl1ose est 

DA1 MOTOR 

DC1 MOTOR Q ロ N 

DD4 MOTOR ロ FF 

DAEB EDIT 

DB1B gone bl1ock write 
DBBC-9D BIOS SCRN 

DB9E SCRN PS 

DBAA SCRN onen 

DBb1 LPTO open 

DBDO SCRN PUT 

DCB9  CLS screen CTRL $OC 
DD11 BIOS KYBD jump tab1e 
DD2 さ  KYBD open 

DD2E BEEP 

DD ささ CTRL $O7 (be11 ) 
DDS さ SCRN GET 

DDBO INKEY$ 


DDO 


KEY 
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エン トリ ・ マ ッ プ 





CHNNECT 

SYMBQL 

GCURSOR 

POINT 
FPSET 
PRESET 

1ine end Position 11imit モ in ロロ 
11ne = モ ar も PUS 上 o OOC5- ビ Z 
& PHS to 00 ビ 9- ビ B 

LINE 
TIME 
DATE 


DEE さ 
DF91 
EO1D 
E16Z 
E196 
E19 ビ 
E206 
E22 晶 


E256 
E30 ビ 
ESB2 
ESDE 
E435 
E4A1 
ESO5 
E624 
E6B6 
E9 さ 
E96E 
EBD2 
EC さ 33 
EFe6D 
EF7O 
F1FE 
F2D 晶 
F304 
F33 ヒ 
F378 
F3FE 
F40OB 
F484 
F511 
F55Z 
FSSZ 
FSCF 


(functi gn) 
(functi on ) 
TIME (=t モ atement) 
DATE (statement) 

と 1 ロ CK し em55 モ 
INTERVAL 

PAINT 

CIRCLE 

GET 

PUT 

SCREEN 

BUBINI 

BUBM 

BUBR 

KILL 

BI0S entry 

BIOS jump tab1e 
ana1oqg Port input 
KQNJI RM read routine 
ぬ 品 品 旭 モ 昌 mO モ or Contro1 
て ら 55 呈 モ @ 1byte wirtem 
ら 呈 紀 司 モ 1by モ em read 
bubb1e initia1ize 
bubh1e write 

bubb1e read 

beep on 

FSD2 beep off 

FSDB  LP output 


FSF5  LP check 
F61F 。 subsysgtem Outnut 
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F61F subays モ em inpu も 
F683 conso1e 11ine inPut 
F741 input Continue 

F75B conso1e Qut ロ ut 

F7BB key input 

F7E4 HARDC1 

F9Q5 HARDC2 

FBO5 。 voice parame モ er se 
FB4 voice data tran5f ビ 
FBZ1 Yi Out ロ u モ 

FBB7 。 voice initia1iz@ 
FB9 BIOS 1nitia1iz@ ヽ 
FEOO BOOT routine 

FEO2 seek track O 

FE0S 。 sector write 

FEOB sector read 





ーー デー テー ニーーー』! 


mmmssgsssazassasseamsessassa リー リレー ブン EESECSE5EeESZ 電 EE 








9F97 output CR/LF 

9FDF output from X unti1 0O 

AO1Q gutput from X for Breg. て ime5 
AFES gutput D in hex 

FE9 outnut の in hex 


BO16 hex モロ Binary CO ロロ ソト 


B96D 。 output D in decima1 
D336 。 input char in Q with wai モ 
D352 goutput 谷 


D9BB MTQR ロ N 

DBB MTOR ロ FF 

DQSO input 1ine in buffer (も O043D ) 。 X=$O43D 。 =s= モ op key 
DB49 cursor bl1inking data se 

DCFQ BIHS b1inkinqg ata subou も 

DD69 input char in 全 without wait。Z=nO input 

F2DB BI entry 





0 












劉 区 ジジ め 2% イ タ :。 9081 
% 多 リー シュ 名 め 
品 ィ タ 。 ア 名 
@2$ 欠 聞 め @ ジ 


ヲ シ スム 借財 有 o 
ダシ 包 多 ム 員 器 料 ロ 


80 スジ ム o 8 記 有 2 
マシ シ と 暫 2 


ウ 器 レビ 黒板 給 4 陸生 KN 


シメ ラシン ロレ ウメ ラル ミミ 
/QNVKYo (に lo co っ EEB55 


和志 必 出 4 クン ん SEEGOOOOPL 


UMOg200」 1 
IDISIXEn 結 DOCiNOR 2 


孝 寺 及 多 人 条 隆 
Em に aboraitorsy/ 


ラン た ー シ ン ペッ ツメ ーー ルン 放り oooooooooooooooooooooooooooooooooooo855555 
フ Ss 


< 一 と ンズ 


2 
帝 投 貞 辿 B- 区 


を レノ ん と に AA4F) 








K コ ン パ イラ は , 整数 型 BASIC に 次 の 機能 を 拡張 し た 

も の で す . 

昌 英 数 字 ラ ベル が 使え る . 

呈 引 数 を も っ た サブルーチン ・ コ ー ル が で きる . 
呈 再帰 関数 コー ル が で き る. 

品 REPEAT,。 WHILE が 使え る . 

曲 IF-THEN-ELSE が 使え る . 

呈 マ シン 語 が その まま プロ グラ ム 中 に か ける . 
昌 西 列 の 割り 付け を 実 ア ドレ ス で 指定 で きる . 

な お , コン バイ ル 後 の オプ ジェ クト は 任意 の 位置 に お い 
て 実行 で きま す ( 位 置 自由 )、 コン パイ ラ 自 身 も 位置 自由 で 
す . た だ し , ラン タイ ム ・ ル ー チ ン は 位置 固定 で す . ま た , 
ラン タイ ム ・ ル ー テ チン の 機 種 に 依存 する 部 分 は , 1 凛 字 入 
出力 と , 1 行 入 力 サ プル ー チ ン の み で す . 


」 。 BASIC の 
ー 相 半 点 


W ラ ベル と 文 の 区 切り 

BASIC で は GOTO 文 . GOSUB 文 の 飛び 先 を 廊 
番号 で 指定 し ます が , `K” に は 文 番 号 の 概念 が な く , ラベ 
ル を 使用 し ます . ラ ベル は 英字 で 始ま る 英 数 字 列 で , ラ ベル 
名 の すぐ 後に も ミコ ロン を 書く こと で その 場所 に 定義 きれ ます . 








10 GOTO 20 
20 GOSUB 30 L20: 


GOTO L20 
30 RETURN GOSUB L30 
L30: 
RETURN 





1 行 に 複数 の 文 を 書く 場合 の モ セパレータ が , BASIC 
(Gb コ ロン 人 細 二 0 の VIK 人 は SE に コ (ロン 導師 23 史 
いま す . 








REPEAT, WH 1I [_ ビ 社 sa 
標準 的 な BASIC に は な い REPEAT 文 . WHIL 
世 文 が 使用 で きま す . 


1 人 


題 COMPACT&S 


一 般 形 は , 





REPEAT 
文 
UNTIL 条件 式 








WHILE 条件 式 
2 
WEND 











で す . REPEAT 文 は 条件 が 成立 する まで , WHILE 
は 条件 が 成立 し て いる 間 , REPEAT-ーUNTIL, W 
HILE 一 WEND で 囲ま れ て いる 文 を 実行 し ます . 

コン パイ ラ は これ ら の 文 を スタ ッ ク を 使わ な い オ ブ ジ ェ 
クト に 展開 し ます . 

し た が っ て , REPEAT 節 , WHILE 節 へ の 飛び 込 


み , 飛び 出し は 自由 に 行なう こと が で きま す . 
K ・ | 展開 され る コー ド 
REPEAT LO1 EQU  * 
IT ニ 1I 二 1 IDID 生 軸 語 1 
UNTIL 』>1000 ADDD #1 
STD IL エー1 1 
LDD 1 


SUBD 圭 1000 
BLE 上 上 01 * : 店 1 く ー1000 
then L01 





際 | 展開 され る コー ド 

WHILE ニー1000 LO1 LDD Ii 

IT テニ I 十 1 SUBD 壮 1000 
WEND LBGT L02 
ID6D 詞 較 L 
ADDD 1 
STD 1 
BRA LO1 








L02 EQU 玉 
⑯ | F 文 ーーーー ド ーー デーーー ョ ーー デニー ニュ エー テー キー ニー ニー エニー ニー ニー ニー ニーーーーーーー ュ ーー 
BASTIC の IT 文 は 1 行 と いう 制約 が あり ます が , 氏 
で は IFE 文 の 有効 範 胃 を F I で 明示 する こと に より , T 理 
EN 節 , ELSE 節 の 複数 文化 を 許し て いま す . 
IE 文 の ネス ト に は 制限 は な い が , 1 つの IF に 対し , 








必 ら ず 対 応 す る FE 1 が な く て は な り ま せん . 











@GOSU い BB 文 
GOSUB < ラベ ル > 〔 引 数 7 引数 多 …, 引数 妃 ] 
と いう 形式 で サブ ルー チン に 引数 を 渡せ ます 

に K 


〔 例 〕 GOSUB _ ALPHA 〔2.A. “ABCD”〕 
< 展開 され る コー ド > 




















LDD 半 2 
PSHU D 
LDD A 
PSHU D 
LEAX <STR, PCR 
BRA LO01 

STR FCC ン ABCD ン 
FCB 0 

LO01 PSHS X 
PULU 6 
PSHS X 
PULU X 
PSHS X 
LBSR ALPHA 
LEAS eS 





上 の 例 の よう に 引数 は スト リン グ 以 外 は 値 が 直接 スタ ッ 
ク に 積ま れ , スト リン グ の 場合 は その 文字 列 の 格納 され て 
いる アド レス を スタ ッ ク に 積み , サブ ルー チン を コー ルレ し 
ます . 引数 は 最後 の 1 つ 以 外 は いっ た ん U ス タッ ク に 積ま 
れ , 引数 の 評価 が すべ て 終り , サブ ルー チン が 実際 に コー 
ル さ れる 直前 に ,U ス タッ ク か ら S ス タッ ク に 移さ れ ま す . 

この よう な 処理 を 行なう 理由 は , スタ ッ ク に 積ま れる 順 
番 を , 引数 と し て 書か れ た の と 逆順 に する こと に より , サ 
プ ブルー チン 側 で の 引数 参照 を や りや すく し て いる の と , サ 
プル ー チ ン ・ コ ー ル 時 に S ス タッ ク の レベ ル を 一 定 に 保つ 
し の 太く Gar im 

サ プ ブルー チン が 呼び 出さ れ た 時点 で の スタ ッ ク に は , S, 
S 二 1 に リタ ー ン ・ ア ドレ ス が , S 圭 2, S 土 3 に 第 1 引 
数 が 。 S 十 4, S 十 5 に 第 2 引数 が , 一 般 に S 十 2z。 S 十 
2z 十 1 に 第 ヵ 引 数 が 格納 され て いま す . 

サブ ルー チン が コー ル さ れ た 時 点 で の スタ ッ ク の 内 容 





1 low ア ドレ ス 
SPー リタ ー ン ・ ア ドレ ス 
第 1 引数 
第 2 引数 


第 引数 











! high ア ドレ ス 





サブ ルー チン 側 で 引数 を 参照 する と き は , 多 変 数 を 使い 
ます . 

2 変数 と は 多 の すぐ 後に 数 値 を 書い た も の で , 数 値 と 引 
数 の 番号 と が 一 致し ます . た と えば , 多 1 は 第 1 引数 の 値 
で あり , 湖 10 は 第 10 引 数 の こと で す . 


〔 例 〕 
SUB : 

X メ = 1 

Y= め 多 2 

Z=3 

RETURN 
と いう サブ ルー チン は , 第 1 引数 の 値 を X に , 第 2 引数 を Y に , 第 
3 引数 を Z に 代入 し ます . この サ プ ブル ー チ ン に 対し 

GOSUB SU0B (3, A, 日 十 2〕 
と いう 文 を 実行 する と ,。 X に は 3 が , Y に は A の 値 が , に は B 十 
2 の 値 が 代入 され ます . 


引数 は 値 で 渡さ れる の で , 引数 の 値 を サブルーチン 内 で 
変化 させ る こと は で きま せん . し か し , 引数 に アド レス 値 
を 渡せ ば , サブ ルー チン 内 で その アド レス の 内 容 を 変化 さ 
せる こと が で きま す . 














&O 


また だ た, サブ ルー チン は サブ プ ル ー チ ン の 最後 に 実行 きれ た 
値 を 持ち 帰る 関数 と し て 使用 で きま す . た と え そば, 階 乗 を 値 
と する FACT は 湊 の よう に 記述 する こと が で きま す . 





〔 例 〕 
FACT: 
IE 1= テ 1 THEN A= ュ 
ELSE A= 多 1*FACT (221 一 1〕 


FI 
RETURN 











この よう な エレ ガン ト な 記述 は , リカ ー シ ブ ・ コ ー ル を 
許さ れ た 構造 化 言 語 の 特権 で し た が , ^K? で は 構造 化 言語 
の 類 わ し さ な し に , それ を 実現 し て いま す . 仮 引数 を 名 称 
で な く シ ー ケ ンス ・ ナ ン バ ー で 表わす こと は , 引数 の 意味 
を 明示 で き な く 文書 性 に 欠け ます . “~K? の よう な 非 構造 化 
言語 で は 手続 き の 入 口 と 出口 が 1 つ に 限ら ず , コン パイ ラ 
が ロー カル 変数 域 を 動 的 に 処理 する こと が 不可 能 な の で , 
この よう な 形式 を と ら ざ る を 得 ま せん で し た . し か し な が 
ら , この よう な 機能 は 標準 的 な BAS1IC か ら は 大 き な 進 
歩 で ある と 思い ます . 

DEF 文 

ユー ザー が アセ ンプ ラ で 記述 し た 手続 き や システム の 
サブ プルー チン を , コー ル す る と き に , 引数 を S ス タッ ク を 
使っ て 渡す こと が で きま す . 外部 ルー チン は DET 文 で ラ 
ベル 名 が 与え られ , 一 般 の 手続 き 関数 と 同一 に 取り 扱わ れ 
まい 9 








DEE < ラベ ル > テ < アド レス > 【〔【,……… 〕 








に より ラベ ル が 指定 し た アド レス に 定義 きれ ます . 
使う と き は , 
[GOSUB〕 < ラベ ル >【……… 】 

と する か , また は 関数 と し て 式 の 中 で 自由 に 使え ます . 関 
数 と し て 使う と き は , ユー ザー サブ ルー チン か ら 戻 っ て き 
た と き に , AccD に 入っ て いる 値 が 関数 の 値 に な り ま す . 
この と き S, U, DPR は ユー ザー ルー チン で 変化 させ て 
は いけ ませ ん . 

引数 は 一 般 の 手続 き 同 様 。 S ス タッ ク 上 に push さ れ て ユ 
ー ザ ー ル ー チ ン に 渡さ れ ま す JS5 S 土 1 に リタ ヨンア 
ドレ ス が , S 寺 2, S 寺 3 に は 第 1 引数 の 値 が 。 S 十 2n 
S 十 2n 二 1 に は 第 ヵ 引 数 の 値 が 入る こと に な り ま す 

し た が っ て , ユー ザー ルー チン で は , n, S と いう 6809 
の イン デック ス ・ ア ドレ ッ シ ン グ ・ モ ー ド を 使う こと (に よ 
り , それ を 参照 し ます . 
配列 
配列 は , BASIC の DIM 文 と 異な り , ユー ザー が 配 
列 の 先頭 アド レス を 直接 指定 する よう に な っ て いま す . 先 
頭 ア ドレ ス の 指定 の し か た は , 

変数 名 =< 式 > 





"です: 
@ 2 バイト 配 列 
変数 (< 式 >)…… 変数 の 内 容 二 < 式 >* 2 の アド レス か ら は じ 
まる 2 バイ ト を 示す . 
@ 1 バイト 配列 
変数 : < 式 >) …… 変数 の 内 容 二 < 式 > の アド レス か ら は じ ま 
る 1 バイ ト を 示す . 
変数 の 値 を 変え ん る こと に より , 配列 の 位置 を 動 的 に 変更 
で きま す . 
@FOR, NE メイ T 文 
FOR ルー プ の 形式 で は BAS1C と 同一 で す が , 細か 
い 点 が 異な り ま す . 拡張 され な た BASIC で は FEOR の 2 
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の 


重 ル ー プ に 対し て , NEXT 文 で 2 つの 変数 を 書く こと が 
許さ れ て いま す が , K で は NE 又 T 文 で 変数 が 指定 で きず , 


常に FOR の 数 と NE 文 〒 の 数 が 一 致し て いな く て は な り 
ませ ん . 


















FOR =1 TO 100 
FOR J= ュ 1 TO 100 
M(I, J)= テ 0 

NEXT J, I 


FOR I= テ 1 TO 100 
FOR J= テ 1 TO 100 
M (I*100 士 J) =0 
NEX〒 
NE 文 T 









BAS TIC で は 初期 値 > 最 終値 で も ルー プ の 中 を 1 度 実 


行 す る の が ほとん ど で す が , “KK”? で は ルー プ の 中 を 1 度 も 
実行 し ませ ん . S TEP は 正 ま た は 負 の 定数 が 使え ます . 
PR INT 文 
PRINT 文 の 形式 は , BASIC 同 様 。 PRINT に 
続け て 出力 要素 の 並び を 書き ます . BA S IC で は 要素 を 
出力 し た 後に は 改行 する の が 基本 で す が , ~K” で は 改行 は 
行ない ませ ん . PRINT 文 に お いて 改行 し た いと き は F 
ORTRAN よ ろ し く , スラ ッシュ バ /" を 書き ます . 


PRINT TABC? PRINT ヾ ABCZ/ 
PRINT 1M253.4 :j PRINT い 123? 


出力 要素 は コン マ を 使っ て 複数 個 並 べ る こと が で きま す -. 





BASIC ed 愉 
PRINT Ai:B PRINT A, B, / 
BRNEINID Ai 二 S2 37 PRDN 和 TA こと 2 た 3 有 














上 の 例 で , B と ^/” の 間 に コ ンマ を 入れ る 必要 が ある こ 
と た 信 祝 葉 し し で くだ さい NGS22ー ミ ン マ が な いち) コン パイ 
ラ は /? を 改行 子 と し て は 解釈 せ ず , 除算 の 演算 子 と 解釈 
し , ILLEGAL EXPRESSION ERROR と し ます . 

BASIC の コン マ に よる タブ プレ ーション は ^ 拭 7 に は な 
い が , それ に 代わ る 機能 と し て 右 詰め 出力 と いう の が あり 
まめ ie 





キ < 式 1>, < 式 2> 











と いう フォ ー マ ッ ト で < 式 2 > の 値 を < 式 1> の 桁 数 を と り 右 
に 詰め て 出力 し ます . 


PRINT USING ` せ 半 せ キ jAi| PRINT 半 4,A 





また , この 他 に PINT 廊 中 で HEX$(< 式 >), 耳 到 
X 2 $(< 式 >), CHRS(< 式 >)。 8 P C$(< 式 >) が 使用 可能 
で す . 


@⑥INPUT, GET 文 

BASTC で は INPUT, GET は 文 で す が , 
は キー ボー ド か ら 入 力 し た 値 , 
値 と する 関数 で す . 





ぶ K? で 
ギー の APSAGIT 民 コ に コ ド を 





INPUT A,B 
INPUT^C=? :C 


A==ーINPUT :BーINPUT 
PRINT^C= テ =": CーINPUT 
AGET 


2. 便 い 方 


2-1 プロ グラ ム の 作成 

*K? の ブロ グラ バム は 。 BAS TIC の エディ タ を 使っ て , 
2 (注釈 ) の 形式 で 作成 し ます . 行 の 最初 が ““ で な いと , 
コン パイ ル ・ エ ラー と な り ま す . 

プロ グラ ム の 中 で は , 英 大 小 廊 字 は 廊 字 列 で ,。 "うう を 
除い て , 区 別 し ま せん . で すか ら , キー ワー ド を 英 小 廊 字 


GET AS$:AーASC(A$) 
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に する こと も で きま す 、. 
例 10 PRINTY a 三 ” 
作成 し た プロ グラ ム は , 通常 の BAS 1IC プ ログ ラム と 
同 iM く SsAWVIB ラ コッ ンド に より 同 劣 王 選 まだ は 22 ズ スン 
に セー ブ し ます . 一 度 セ ー ブ プ し た プロ グラ ム は , LOAD 
コジ ド ( ほ まり 5: し ロ 肝 ほる 使 . ま 35 

プロ グラ ム 領 域 は $ 1FFEF ま で な の で , プロ グラ ム 作 
成 前 に , CLEAR 10, & H1FFEE と し て お け ば , コンパ イラ 
を 壊す こと が あり ませ ん . 
2-2 コン パイ ラ 

コン パイ ラ と ラン タイ ム ・ ル ー チ ン が メモ リ 上 に ある こ 
と を 確認 し て (も し な けれ ば ロー ド す る ), BAS TIC モ ー 
ド か ら , 
EXEC & H2000 
と 叶 ま 9 

コン パイ ル ・ エ ラー を 生じ し た と き は , エラ ー に な っ た 文 
番号 を 表示 する の で , エディ タ に 戻っ て エラ ー を 修正 し ま 
す . 3 
2-3 実行 

コン パイ ル が 正常 に 終っ た こと を 確認 し て , BASIC 
モー ド か ら , 
EXEC & H5000 
まあ 

実行 時 の GET 文 . INPUT 文 」。 OUTPUT 文 に よ 
る 入出 力 は , 特に 指定 し な けれ ば , キー ボー ド か ら の 入力 , 
画面 へ の 出力 と な っ て いま す . 

GET 文 , INPUT 文 に よる 入力 は , ファ イル 番号 1 
に 対応 する の で , BASTIC モ ー ド か ら , 
OPEN “TP 1 “入力 機器 ” | 
と 指定 する こと に より , 任意 の 媒体 か ら 入 力 が で きま す . 

PRINT 文 に よる 出力 は , ファ イル 番号 2 に 対応 する 
の で , BASTC モ ー ド か ら , 
OPEN “O”, 2, “出力 機器 " 
と 指定 する こと に より , 任意 の 媒体 に 出力 が で きま す . 






















































































実行 中 | STOP| キー に よる 割り 込み を 受け 取る に は , 
次 の よう に し ます . 
アド レス ] 旧 新 
$1E1 $CC $4F 
まま 1E2 $57 | 30 
これ で , | STOP | キー が 押さ れる た びに , $ 4F34 の 値 











が 1. ずつ 繰り 上 が り ま す . $ 4F34 の 値 を 調べ れ ば , 実行 
を 中 止 す る こと も で きま す . 

な お , 入出 力 時 に STOP 
正 じ ます . 











キー を 押す と , 実行 を 中 





図 1 . 拡張 K コ ン パ イラ メモ リ ・ マ ッ プ 














S33.34 の 一 
内 容 ユー ザー プログラム 
2000 

コン パイ ラ 
41FF 


コン バイ ラ ・ ワ ー ク 
4D00 ] 
ラン タイ ム ・ ル ー テ チン 








5000 オプ ジェ クト 




















&O 

































































































































































表 1 拡張 K コ ン パ イラ ・ エ ント リ ・ マ ッ プ 表 2 エラ ー メ ッ セ ー ジ 
アド レス | 内 容 | 機 能 DOUBLE DEF ERROR ラベ ル の 二 重 定義 が ある . 
2001 4C コン バイ ル 時 作業 エリ ア ・ ア ドレ ス の 上 位 2 バイト 所 SEPWIDHOUTIE の しき 下がる た 
20C0 4 実行 時 変数 エリ ア ・ ア ドレ ス の 上 位 2 バイ ト FI WITHOUT IF 7P 
20CE 4C 実行 時 U ス タッ ク ・ エ リア 最終 アド レス の 上 位 2 バイ ト | に LEGAL ARGUMENT 手続, 所 り が ある . 
2073.4 4300 プロ グラ ム 1 行 入力 バッ ファ ・ ア ドレ ス ILLEGAL EXPRESSION 許さ れ な い 式 で ある . 
207DE 5000 オプ ジェ クト 作成 アド レス ILLEGAL NESTING 上 REPEAT, WHILE 名 の 対応 
2082.8 | 4400 ラベ ル ・ テ ー プ ル ・ ア ドレ ス し ーー ーー 5 
208E,F| 4AFE | コン バイ ル 時 スタ ッ ク ・ エ リア の 最終 アド レス NEXT WITHOUT FOR ーー る NE2GU43 き た: 
209A. 日 | 4B00 | 作業 用 テー プル ・ ア ドレ ス PVEA RS ーー ニー 
4186 サ プ ル ー チ ン | コン バイ ラ 1 行 入力 ルー チン TOO MANY VARIABLES 変数 の 数 が すき る . 
41E2 の コン バイ ラ OPEN ル ー テ チン UNDEFINED LABELS の に の 
41EE ヵ コン バイ ラ CLOSE ル ー テ チン UNTIL WITHOUT REPEAT その - 4 て 人 
4F80 の ラン タイ ム 1 文字 入力 ルー テ チン. エコ ー バ ッ ク な し .。 |LWEND WITHOUT WHILE | WHILE 交 が な い の に , WEND が きた . 
4F9B の ラン タイ ム 1 交 字 出 カ ルー チン . 同 | 図 2 . ファ イル 版 変更 箇所 
ラン タイ ム 1 行 入力 ル ー チ ン , エコ ー バ ッ ク あ り . バ 
4FB5 / E 
ッ ク ・ ス ペー ス あ り . Qo10o NAM 10 
OO110 41Be: ORG 416 
OO120 41B6 さ 4 48 GETL PFSHS DP.U 
OO15O 41BB BD 4FB5 JSR 4FB5 
OO151 418B 6  OD LDa 半 $OD 
プ アゲ イ ル 版 へ の oo152 418D 1o9E oo LDY soo 
OO15 さ 4190 a7  a4 STA 90 
OOo160 4192 1OBE QOOO LDY 間 ま O 
@ Oo170 4196 EC  B4 LDD の 
OO0171 419 昌 1QBS 7FOD CMPD  #$7FOD 
00172 。 419C 27 2 41C6 BEQ LOOP 
OO1BO 419E Aa6 BoO SKIP  LDA 。X+ 
Oo190 41a0 B1  OD CMFPA 幕 $OD 
ーー > に QO200 。 41A2 27 31 41D5 BEQ RET 
K コ ン パ イラ の アド レス $4 186 一 $4 1DD を 図 2 00210 414 B1 27 CMFA 提 $2 フ 7 
ュ > に 変更 S。 1 ル 版 に 変 OO220 。 41A6 27 1E 41C6 BEQ LO ロ F 
の よう に 変更 する と , オン ・ メ モリ 版 か ら フ ァイル 版 に 変 0023O 。 41aB BO 3oO SUBA #$ さ 0 
更 で きま す . 00240 41QAA 2B  F2 419E BI SKIF 
OO250 41AC B1 さ 39 EMF あさ 9 
プロ グラ ム を ファ イル に セー ブ す る 際 は , ASCII セ Qoo260・ 41aE 22 EE 。 419E BHT SKIP 
の e に な 2 に 1 2 
ー プ し て くだ さい . その 後 。 図 3 の プロ グラ ム で K コ ン バ GO2Bo 41B2 1F 20 TFR 。 YuD 
ラ ー で OO290 41B4 さ 4 06 FSHS  Dp 
イラ を 走ら せる こと が で きま す . oosOo 41Be 5B ASLB 
図 3. ファ イル 版 メ イン ・ プ ログ ラム 00310 41B7 49 ROLA 
00320 。 41BB 5B ASLB 
0033 さ O 41B9 49 ROLA 
10 CLEAR100.。 SH6FFF Q0 さ 40 41BA E ミ E1 DDD 。 コ ++ 
11 INPUT"HUT DR COLD"j$ QOS5O 41BC SB ASLB 
12 IF a*="H' THEN 40 QOS60 41BD 49 ROLA 
20 LO ロ aDM"RT 003 さ 70 。 41BE EB  EO ADDB  ,8+ 
30 LOADM"KF QO さ BO 41COB9  Qo ADCA WO 
40 INPUT"FILE NAME" を O039O 41C2 1F 02 TFR D.Y 
50 UPEN"T"。 攻 1 人 9 
55 IF PEEK(&H2DC) =O THEN PRINT'** NDT ASCII FILE **":CLOSE #1:END 1 Po 4 ER 2 LoP BR STP 
56 PRINT"FILE IS OPENED" QO402 41CB 1o9E QO LDY *0O 
60_ EXEC&H2O0Q 00410 41CB A6 8O LaFP1 LDA ァ X+ 
70 CLOSE 1 Qo420 。 41CD 7 AO STa AsY ネ 
BO CLEAR さ 00,&H4BOQ 0043O 41CF B1  OD CMFA 間 OD 
OO440 41D1 26  FB 41CB BNE LOnF1 
OO0450 41D さ 35 2o FULS Y 
QO460 41D5 109F 12 RET STY 12 
00470 41DB 9E OO LDX OO 
こっ ー ヾ ゞ や QO4BO 41DA 9F 16 STX 16 
人 ) OO0490 41DC 35 CB FULS DP。U。FC 
@ ア ツ oo5oo END 
K コ ン パ イラ V1.1 に は 次 の バグ が ある の で , 訂正 願い ま 例 1 ] 8 クイ ー ン 
す . 数 値 は 16 進 数 で す . V1.3 は V1.2 の ラン タイ ム ・ ル ー を 5 テ 個 の クイ 
チン の 1 行 入 力 ルー チン $ 4FB5 一 $ 4FEO が ファ イル 入力 人 あ な 1 コン の 隊 雪 で re っ 3 し 
ン を 互い に ご ば で き な し う に ス 艇 の 上 に 
用 に 変更 きれ て いま す . ン を 互い に 他 を と る こと が で き な い よう 【 エ 
配置 する 問題 で す . 
この プロ グラ ム は , すべ て の 解 (対称 性 は 無視 し て 92 個 ) 
を 求め ます . 手続 き QUEEN は QUEEN の 中 で QUEEN 
を (再帰 的 に ) 呼ん で ます . 変 数 は ロー カル な 変数 と な 
り , スタ ッ ク に 積ま れる の で , 再帰 的 に 使え ます . 
STOP | キー を 押す と 処理 を 中 止 す る よう に し て いま す . 
CONST 文 に より , 変数 に 意味 を 持た せ て いま す . 
8 クイ ー ン ・ プロ グラ ノム ^、 EE 
1 
100 ? (* STOF KEY INT.。 SET *) 
11O " CUNST STUP=$4F さ 4 
120 ' PUKE ま 1E ビ 1 。 ま 4F』PUKE ま 1E2。 まさ Os PUKE ま 4F さ 4。O 
13 さ O ! (※% 日 QUEEN MQIN *) 
140 ' SIZE=B』 BHARD= ま 600O 
150 ” K=OiBUEENF 1 , DUMMYN。 DUMMYJ] 
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983 クイ ーシュ ・ プ ログ ラム 





160 END 
170 ?PR』 (* PRINT ロ NE SHLUTIN ※*) 
180 ? K=K+1sPRTINT 幕 さ 』K。 "の リ 


190 ? FOR ji=1 TO BIZE 

200 PRINT ##2, BHARD (1 ) 

210 "NEXT 

220 ? PRINT / 

2 さ O ” IF PEEK(STUP) THEN END FI 


240 7 RETURN 
250 * DUEENs (*%X GET aLL 日 BUEENS ※) 
260 "CUNST し =1 』N=2。 ゴ = さ 


270 "ITF ZL>SIZE THEN GUSUB FR 

2BO 『" ELSE XN=1 

0 ざ MHILE ZN <=S1ZE 

さ 00 『" メロ =1 

づま 0 MHILE < く ニ = ルー1 

さき 20 * IF XN=EHaRD(ZJ) ロ R ZN+XL=BUARD(ZJ)+J ロ R XN-ZL=BUARD (ZZJ) 2 THEN 
33O “ BUTO L1 

さ 40 Fi 

さ B0 ”* メロ = メロ +1 

さ 609 『 MEND 

さき 70 BOARD(ZL ) =ZN 

さ B0 『" BUEENFZL+1 。 DUMMYN。 DUMMYJ ユ 
さ 90 『" L1』 ZN=ZN+1 

400 " MEND 

衝 光 OFP 所 


420 "RETURN 








ーー に 
【 例 2 〕 高速 ソー ト 手続 き QUICK は , QUICK の 中 で QUICK を 呼ん で いま す . 
最良 の ソー ト 法 と いわ れる クイ ッ ク ・ ソ ー ト と , 小 デー 手続 き EXCHANGE は 。 引数 に アド レス 値 を 持ち , 手続 き 
タ に 対し て パブ プル ・ ソ ー ト を 使っ た 高速 ソー ト ・ プ ログ ラ の 中 で その アド レス の 内 容 を 直接 変更 し て いま す . 


ム で す . 1024 個 の ラン ダム な デー タ を , 2 秒 弱 で ソー ト し 
高速 ソー ト ・ プロ グラ ム 、 EE 








100 " (※X HIGH SPEED SURTING *) 
お AO 3 DATA= ま 6000 


山 eOi を FRINT "HOM MANY DATA?"sN=INPUT 
13O FR 1=1 T ロ N 

140 " (* PRINT"DATAE" 。 エ 。 "= リュ DQTA(T)=INFUT *) 
1SO * DATA(T) =RND(1000) 

16Q0 ”" NEXT 

は Z0.* FRINT "NUM_ SHRTING. . . "/ 

180 『" QUICKE 1 。N1 

20 * FUR 1=1 TO N 

200 『" FRINT "DATAE"。T。 "="。DQTA(1) 。/ 
婦 3O ? NEXT 

220 *END 


2 さ 0 "QUICK。 (* QUICK SORT FOR LARBE DATA ※) 
240 ? IF 2ー%1 く B THEN BUBELELX1. 2] 


2BOi ELSE 

26OE3 BUMIDDLE=( ん 1+2) /2 

ZD QUM=NMIDEDATA(X1) 。DATA (BUMIDDLE) 。 DATA (2) ] 
2BQO 『" BUF=X1 3 UL=X2 

290 ”? MHILE QUF く =BUL 

さ Q0Q0 * MHILE DATA(QUF ) ぶ DUM』 DUF=QBUF+1 s MEND 

310 『* MHILE DaTA(QUL ) >QUM』 UL=QULー1 』 MEND 

さ 20 『" IF BUF ミ =QUL THEN 

ささ O ? MORK=DaTA(BUF ) 』 DAT (DUF ) =DQT (BUL ) 』 DATR (BUL ) =MURK 
さ 40 ? CUF=QBUF+1 3 DUL= ニ DULー1 

さ 5O * (4 

さ 360 ”" MEND 

さ 70 * BUICKEX1 。 ロ UL ] 

380 * QUICKEQUF 。 2 


さ 90 ? F エ 
400 7RETURN 
410 "RUEBLE』 (*※ BUBELE SHRT FOR SMQLL DATA *) 


420 ” BUBOUND=%1 

43O 『* MHILE BUBUUND ぶ 2 

440 ? EULASTEX= メ 2ー1 

45O * FUR BU1 エ = メー1 TO BUEBHUND STEF -1 

460 『" IF DaTaA(BUI ) >DATA(BU エ +1 ) THEN 

470 *" MORE=DATA(BUT ) 』 DATA (BUT ) =DaT (BU エ +1 ) 』 DRTR (BUT+1 ) =MORE 
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高速 コート ・ プ ログ ラム 





590 * MID=MIDMRKS 

600 "RETURN 

610 EXCHANGE 』(* EXCHANGE DATR ※) 
620 『 
6 さ Q "RETURN 





480_ 『" BULASTEX=BU1 

490 ” Fi 

SO0QO * NEXT 

510 * BUBHUND=BULASTEX+1 

に アン 1 MEND 

5 さ O "RETURN 

540 "MID』 (* BET MIDDLE VaLUE *) 

5S0 『" MIDMRR 1 = ん 1 』MIDMRE2= ル 2 MTDMRK さ = ルミ 6 

560 『" IF 2>7Z さ THEN_ EXCHANGE[QDR (MIDMRE2) 。 DR (MIDME さ ) ] ョ F エ 
570 IF 1>Z2 THEN EXCHANBE[ADR (MIDMRE 1 ) 。 ADR (MIDMRKS) ] コ ョ F エ 
5BO " IF 2>Z さ THEN EXCHANBE[FADR (MIDMRK2) 。 QDR (MIDMRE さ ) ]』F エ 


EX 1=%1 』EX2=Z2iEXTEMP=EX 1 (0) iEX1(O) =EX2(0) 』EX2(O) =EXTEMF 








[ 例 3 ] シェ ル ピ ン スキ ー 曲 線 


シェ ルビ ピン スキ ー 曲 線 と 呼ば れる , 再帰 的 曲線 を 描き ま 


す . 手続 き A, B, C, D は それ ぞ れ 再帰 的 な 手続 き で , 
図形 の 4 つの 部 分 を 90' ず つ 回 転 し て 描き ます . 





シェ ルビ ピン スキ ー 


そえ て 描き ます . 


そ て , 線 分 を 描き ます . 


位 数 4 の と き , 約 6 秒 で 全曲 線 を 描き ます . 


最初 に , 何 位 まで 描く か 指定 し ます . 位 数 に より 色 を 変 


手続 き PLOT は , FM-8 の サブ CPU に 直接 コマ ンド を 与 


プ ロ グラ ノム 、 還 還 還 間 昌 II 








100 ?(*% SHIERPINSK1I CURVE FLOT ロ F ロ RDER _N *) 
110 "CUNST HO=128 

115 *N=INFUT 

120 ” H=HO/4j X0=4※%Hs YO= さ ※ 日 

13O "PRINT CHR ま (12) 』(*※ CLEAR _ SCREEN ※) 

140 " IT=0』COLUR=1 

15O "REPEATs 


160 "ユエ = エ +1 =s XO=XO- 日 

170 ” HH=H/2』 YO=YO+H 

1 ヨ O ?  X=XO』Y=YO 

190 ?  XHLD=XX2』 YULD=Y 

200 "LT]』 X=X+H』 Y= ニ YーH』i PLUTE XX2。Y] 

210 " BL1I]』X=X-Hi Y=YーHiPLUTEXX2。Y] 

220 ” CEI]』 X=XーHi Y=Y+Hi PLUTEXX2。Y] 

2 さ O ” DE1I]』X=X+Hi Y=Y+HiFLOTE XX2。Y]』 CHLUR=CHLUR+1 
240 "UNTIL I=N 

250 ”"END 


260 7 iTF ん 1>0 THEN 


270 ? FX1 一 1 ]』X= ニ X+H』s Y=YーHiFLUTEX*2。Y] 
280 ” BEX1 一 1 ]』X= ニ X+2*%HsPLUT[ XX2。Y] 

290 ? DEX1 一 1 ]』 X=X+H』 Y= ミ Y+H』 FLUTEX※2。Y] 
3 さ 00 ? AEX1-1]』FI 


さ 10 ?RETURN 
さ 20 ?BiTF 1>0 THEN 


ささ 0 ? BEX1 一 1 ]』X=XーHiY=Y-HiFLUTE XX2。Y] 
さ 40 ? CEX1-1]』Y=Yー2*Hs PLUT[ XX2。Y] 

さ 50 "EZ1 一 1 ] 3 X ニ X メ +H』 Y=YーHs PLUTLX*2。Y] 
さ 60 ? BELZX1-1] ョ FI 


さ 70 "RETURN 
さ B0 "CiTF 120 THEN 


3 さ 90 ? CEFZ1 一 1 ]』 X ニ メーH』 Y=Y+Hs PLUTE XX2。Y] 
400 ? DEX1 一 1 ] 3 X ニ Xー2* 昌 Hs PLUTE 上 XX2。Y ユ 

410 ? BL[X1 一 1 ]』 X ニ X- 昌 Hs Y= ニ YーHiFLUTEX*X2。Y] 
420 ? CE[X1-1]sF エ 


43O ” RETURN 
440 "DiTF 1>0 THEN 


450 : DLX1-1 コ 』 X=X+Hg Y=Y+Hs PLUTL X*2。Y] 
460 "aaLZ1-1]』Y=Y+2XHi FLUTE X*2。Y コ 

470 "CEX1 一 1]』 メニ XーHi Y=Y+HiFLDT[E X*2。Y] 
4BO ” DE[ メ 1-1]』FI 

490 "RETURN 

500 PLOT』 (* PLOTEX。Y] *) 

40 * =* ま FCB2 








551 
552 
55 さ 
560 
57QO 
SBO 
5 日 1 
590 


ッ 
ト 。 
日 
日 
日 
タッ 
ッ 


CPUDE *B6。*$FD,$05。 あ 2 $FBi 


FUDE $Bo,$FD,$05,*2。 


CPUKE 人 。22。7。0。2。XULD 提 。 YULD 提 ん 1 提 。 2 提 


FOKE $FCB さ 。COLDR』 (* PLOT LINE *) 
POKE $FDO5。 0 
XOLD=%1 : YULD=2 


RETURN 


(* READY ? ※%) 
PUKE ま FDO5。 ま 0』 (% HALT SUB CPU *) 


(% RESTART SUB CPU *) 





ログ ノム 、 EEE 





100 "内 = ま 6000 
110 "=A(O) 











19 


&O 


K サ プ ・ プ ログ ラム 





120 "IF FEEK( ま 6002) THEN BHTU PUT 』FI 

130O " FOR 1=QO TO 2iPRINT "DATAT。 エ "=ー リ 。 全 (1) 。/gNEXT 

140 

150 ” BOT RET 

160 *PUTs 

170 ” FOR ri=O TO 2gFRINT "DATA"』。 1" リュ 人 a( エ ) =INFUT NEXT 
1BO ” PRINT "NAME=" 

190 

200 "RET』PRINT /』COUDE まさ も FF 





: FOR 1=6 TH 10gFRINT CHR* ま ( 全 : 1) ) 』 IF 人 1T)= ま QD THEN BHTO RETiFTsNEXT 


? FUR 1=6 TH 10』 人 ai 1) =BETsFRITNT CHR$ ま (人 1) ) 』 IF 人 Qz 1)= ま OD THEN GOTO RETiFIiNEXT 








〔 例 4] ラン ダム ・ フ ァイル 


F-BASIC の ラン ダム ・ フ ァイル に , デー タ を 数 値 の ま 
ま ( 文 字 に 変換 せ ず ) 入れ て お きだ たい 場合 が あり ます . 

この プロ グラ ム は , BASIC の メイ ン ・ プ ログ ラム が ラン 
ダム ・ フ ァイル の 入出 力 を 行ない , K の サブ ルー チン が キ 
ー ボ ー ド か ら の 入力 と メモ リ 上 の バッ ファ と の 入出 力 を 行 
な う 例 で す . 

BASTC と KK で は ,。 DP (ダイ ナミ ッ ク ・ ペ ー ジ ) 
タ の 値 が 違う の で 注意 が 必要 で す . 

K で 作成 され た 機械 語 プ ログ ラム の 先頭 に は , NOP ($ 
12) 命令 が 2 個 あ る の で , それ を $34, $ 7F (PSHS) に 
変更 し ます . K の 中 で BASIC に 戻る に は , RETURN 文 で 
な く , CODE 文 に より , $35, $FF (PULS) で 戻り ます . 

CLEAR 文 に よる メモ リ 上 限 は , $ 4 B00 程 度 ま で に し て 
くだ さい . 

了 因 参考 文献 

1)1/O, 82 年 1 月 号 マ イコ ン 大 学 

2)K.L.Bowles,、 “UCSD PASCAL 演 習 ", 工学 社 
3)N.Wirth, “アル ゴリ ズム オキ デー タ 構 造 = プ ログ ラム ", 

日 本 コン ピュ ー タ 協会 
4)FM-8, ユー ザー ズ マ ニュ アル FE-BASIC 入 門 


レジ ス 


K コ ン パ イラ 言語 仕様 (V 1 . 2 ) 


BASIC メイ ン ・ プ ログ ラム 








100 CLEAR さ QO 。 &H4BOO 


110 UPEN"R" 。 音 さ 


REIE 丘 き 


120 FIELD 半 さ 。255 AS 人 $ 

1 さ O LSET 人 Q$=STRING$(255。 HOO) 
140 FORKE &H5OQQ。&H さ 4:FURE SHBOO1 。&H7F 
15O_ PUKE &H6000,PEEK (VARPTR( 人 まま) +1 ) 
16O PORE &H6QO1 。 PEEK (VARFTR (まま ) +2) 
170 INFUT"U(FDATE) ,R(EAD) ,E(ND) "3 ANS$ も 
1 ヨ O IF ANB$ ま ="E" THEN CLOSE さ :END 

190 IF ANS$ く >"R" THEN BOT 250 
200 INPFUT "RECORD NO.="。RNOD 

210 IF RN ロ LOF ( さ ) THEN PRINT"END ロ F FILE":GOTO 170 


220 GET # さ 。RNO 


230 FORKE &H6002。0 


240 GOTO 2BO 


250 IF QANS$="U" THEN POKE &H6Q002。1:GHTO 270 
260_ FRINT CHR$(7) 。 "CUMMAND ERROR": BODTO 170 
270 INPUT "RECURD NO.=" 。RNO 


280 EXEC&SHSOQQO 
290 IF ANS$="U" 
さ 3Q00 BOTO 17O 


THEN FUT さ 。RNO 





ー 殻 形 | 


GOTO < ラベ ル > 


2 


使 用 例 | 
GOTO _ ALPHA 


3 能 
ラベ ル に JUMP 











GOSUB< ラ ベル > | GOSUB DIRAC | ラベ ル を サブ プル ー チ ン ・ コ ー ル 
RETURN RETURN サ プ ブルー チン より リタ ー ン 
REPEAT REPEAT 条件 が 成立 する まで ルー プ 
I 三 ! 十 
六 1 


UNTIL< 条 件 式 > 


UNTIL |>1000 








WHILE< 条 件 式 > 
文 





WEND 


WHILEI ぐ 1000 
1 三 ! 十 1 


WEND 


条件 が 成立 し て いる 間 ル ー プ 








FOR< 変 数 > 三 く 初期 値 >TO < 最終 値 > 
[STEP< き ざ み 値 >〕 


ゃ 
繰り 返し 




















文 

NEXT 

IF< 条 件 式 >THEN | IF A= ニ 'A'THEN | 条件 が 成立 し て いる と 廊 1 を 
区 1 B=B:CーC| 成立 し な いと き は 文 2 を 実行 

ELSE する . 

ELSE BーD':C デ ピ ' 
文 2 FI 

FI 

CALL く < アド レス > | CALL $F000 ユー ザー サ プ ル ニー テン , シ 


ステ ム ・ サ プル ー テ チン の コー ル 











POKE く アド レス >. く 値 )| 


POKE $200.B 十 3 


アド レス に 値 を スト ア 











PRINT 出力 要素 〔,…) 


PRINT “ABC*.A 


CRT に 対す る プリ ント ・ ア ウト 





























CODE< 値 〉(, …〕 CODE $34, $1C, $17 | 値 を プロ グラ ム の この 文 の 位置 に 展開 
CPOKE< 変 数 >,。 | CPOKE A,$34、 | A の アド レス か ら 連 統 的 に 
< 式 >(。 …〕 $08 POLE す る . < 式 > の 後に 半 
こ が ある と , 2 バイ ト に し て 
書き 込む . 
| DEF< ラ ベル >ー | DEF ML=$5000| ラベ ル に アド レス を 定義 す 


























アド レス [, く ラベ ル …) | CALL ML る . 
CONST< 変 数 > 三 | CONST N=1 コン バイ ル 時 , 指定 し た 変数 
< 値 >(, < 変数 >…〕 AN が 現れ た ら 数 値 に 置き 換え る . 
END 実行 を 終了 する . 
コメ ント 
ーー 般 形 | 使用 例 | 撲 能 
(* ネ * ネ ) (*REMARK* ) 注 釈 

















数 値 | 16 ビ ピッ ト 符 号 付き 2 進数 
10 進 数 ー32768 一 32767 
16 進 数 $0000 -…$FFFF 
1 廊 字 定数 A, 日 …… 
変数 | 単純 変数 | 英字 で 始ま る 英 数 字 列 で 長 さ は 任意 だ が 8 文字 まで 識別 する . 
例 LOVELYRUMICHAN 
MIURA27 
配列 単純 変数 の 後に (< 式 >) また は : < 式 >) を 付け た も の . 
例 HIZENBERG (DIRAC) 
QUARK : COLOR) 
変数 | 多 の 後に 数 値 を 書い た も の . 引数 の 参照 に 用 いる . 
A 三 1 
B=2 
関数 | ラベ ル 名 の 後に 大 カッ コ で 囲っ た 引数 を 書い た も の . 
例 A= ニ LEN【YABCD?】 十 3 
ラベ ル | 単純 変数 と 同じ . 
関数 
ー 上 般 形 | 使用 例 | 機 能 
PEEK(< ア ドレ ス >) | PEEK($1000) アド レス の メモ リ 内 容 を 値 と する 
RND(< 式 >) RND(100) 0 一 式 の 値 一 1 の 一 様 乱数 を 発生 
0 ミ RND(n) こ n 
INPUT キー ボー ド よ り 入 力 す る 数 値 を 値 と する 
GET キー が 押さ れる ま て 待ち , 押 され た キー 
の ASCII コ ー ド を 値 と する 
NOT(< 式 >) NOT(A>1) 論理 否定 演算 
ABS(< 式 >) ABS(A+ 量 ) 絶対 値 
ー < 式 > ー100 負数 
LOW(< 式 >) 式 の 下位 バイ ト を 値 と する 
HIGH(< 式 >) 式 の 上 位 バ イト を 値 と する 
ADR( 変 数 ) 変数 の アド レス を 値 と する 
SGN(< 式 >) 式 の 符号 を 値 と する .0 は 0 を 値 と する . 
SEX(< 式 >) 1 バイ ト の 人 負 の 数 を 2 バイ ト 
の 負 の 数 に する . 
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PRINT 文 中 で 使用 で きる 関数 演算 子 
ーー 般 形 | 使用 例 | 機 能 ー 般 形 | 使用 例 | 機 能 
/ 改行 子 円 メニ 2*3 乗算 演算 子 
CHR$(< 式 >) CHR$(4) 式 の 値 を ASCII コ ー ド と し て 出力 ング XY/3 除 
HEX$(< 式 >) HEX$( 一 121) 式 の 値 を 16 進 4 桁 で 出力 二 メニ メ +1 加 。/ 
HEX2$(< 式 >) HEX2$(^A”) 式 の 値 を 16 進 2 桁 で 出力 ー X ニ メー1 浅 ラル 
SPC$(< 式 >) SPCS$(3) 式 の 値 の 数 の スペ ー ス を 出力 > メ >1 関係 演算 子 
*< 凛 字 列 >? YHITOMIZ * ? で 囲ま れ た 部 分 を 出力 > ニ X> ニ = 
せく < 式 1>, < 式 2> せ 4, A < 式 1> の スペ ー ス を と っ て く X<1 
< 式 2> を 右 ず め 出 力 . < X<= 
= メー 
く > X<>1 
AND Xー1 AND メー2 論理 演算 子 
OR X ニ 1 OR X ニ 2 

















優先 順位 は 乗除 。 加減 , 関係, 論理 の 順 


ーー ニー マー エー ニニ ニュ ーッ ペッ ニン ェ ズ と っ v oe 拡張 K コ ン パ イラ ダン プ ・ リ スト 








Add  +OQ 二 1 +2 つ + さ +4 + ロ +6 + プ + 日 +9 +Q +B + ビ +D +E +F 
2000 C6 4C 1F 9B CE 44 00 8D 07 C6 OO 1F 9B 7E 94 7C 
2010 BD 4D 17 BD 4D OB 4B 20 4 く 3 4F 4D SO 49 4C 45 52 
2020 20 56 45 52 53 49 4F 4E 20 31 2E 32 00 BD 4D 17 
20 さ O BD 4D QB 4 く 3 4F 5O 59 52 49 47 48 54 20 さ 1 39 3 日 
2040 32 20 42 59 20 43 4F 4D SO 41 4 く 2E 00 BD 4D 17 
2050 BD 4D 17 BD 4D 17 BD 4D OB 4 く ミ 4F 4D SO 49 4C 49 
2060 4E 47 2E 2E 2E OO BD 4D 17 BD 4D 17 BD 4D 17 17 
2070 21 70 CC 4 くさ QO DD QO CC QO 01 DD 02 CC SO 00 DD 
208OQ O4 CC 44 OO DD 0O6 CC OO FF 9E 0O6 EZ B4 CC 4 FE 
2090 DD 08 CC FF OO E OB ED 4 CC 4B QO DD Qa CC 00 
20A0 OO DD QOC CC 00 OD DD OE CC 00 7F DD 10 CC 00 00 
20BO DD 12 CC 0O QO DD 14 CC 12 12 9E 0Q4 ED 4 CC C6 
20CO 4C 9E 0O4 ED 0O2 CC 1F 9B 9E QO4 ED 0O4 CC CE 4C 9E 
20DO Q4 ED 06 CC QO QQ 9E QO4 EZ7 QB DC Q4 CS 00 09 DD 


2370 CO 10 27 O1 BF 17 11 4 9E 16 4F E6 4 B さ OO 2C 』45 
2 さ BO 10 26 OO QA DC 16 CS OO Q1 DD 16 16 FF E7 9E 16 』:99 
2390 4F E6 4 3 0O 2F 10 26 0O0 14 CC 4D 17 34 06 17 :36 
2 さ RO 10 B4 さ 2 62 DC 16 C3 OO Q1 DD 16 16 FF CZ7 9E 16 61 























21 














&O 


拡張 K コ ン パ イラ ダン プ ・ リ スト 
OE BD 4D 
































2 ク 


拡張 K コ ン パ イラ ダン プ ・ リ スト 
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&0 


拡張 K く コンパ イラ ダン プ ・ リ スト 


OA 
さ 6 
3BFO _O2 























2 人 











拡張 K コ ン バ パイ ラ ダン プ ・ リ スト 





Add  +Q +1 +2 + さ +4 +5 +6 +7 + 日 +9 +Q +B + ビ +D +E +F Sum | | 4EEO 20 F9 さく 5C a6 45 E6 47 さ D ED 42 EC 45 3D EB 42 
4DQOQO 7E 4F 9B 7E 4F BQO BD 4F BS5 さ 9 0C 35 10 20 02 BD iaF 4EFO 9 OO ED 41 a6 44 E6 47 さ D E ミ 41 ED 41 a6 44 E6 
4D1Q EF QA6 日 Q 26 FQ 6E 日 4 6 QD BD ES 6 QQ 2Q E1 さ @6 :F さ る | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー・ 
4D<Q Q6 a6 4 さ さ D さ 4 Q6 EC 41 さ D EB E4 EZ E4 6 C4 E6 =:EA Sum: 4 ヨコ 1 AD 42 3C E6 9O さ 4 0O5 57 95 69 aC 1D 21 C4 
4D さ Q 4 さ さ D ER EQ QA6 EQ 1E 9 33 44 さ 9 BE QO QQO 34 10 siFA 
4D4Q さ 4 10 さ 4 1Q 4D 2 04 BD 40 63 61 6C 60 2B 40 5B :2 
4D5Q 49 2Q F 44 56 ED 64 EC C1 2 Q4 BD 2C 6 さ 61 6 si1 dd  +Q +1 +2 + さ +4 + 呈 +6 + プ + 日 +9 +Q +B +C +D + せ E+ ォ ド 
4D60 60 2B 1E SB 49 2Q FB 44 56 3 64 20 Q6 5B 49 24 :FB 4FOO 46 3D EB 41 9 OO ED C4 さ 9 34 06 EC C 1 BE 3D 
4D7Q F 昌 E さ 64 1C FE 2B Q2 1 O1 69 6 さ 69 62 6 60 2 :2C 4F10 09 さら 6 16 D CD EC 42 さ ミ 4 C さ OO 0 ミ ED BC Q9 3 る 5 
4DBO EC EC 62 6D 61 32 66 2 05S 43 53 CS 00 Q1 39 32 zi94 4F2O0 10 36 16 8D BD さく 48 さ 9 1C 2C 6 49 16 FE Sa 20 
4D9O 66 CC 7F FF さ 9 4D 2B F1 さ 9 3 C1 2F 2C CC QQO QQO i16 4F さ O 7 ビ 4F さ 4 さ B OO QO QO QO 0O QO QO 0Q QO QQ 0O OO 
4DQAO さ 9 aS C1 2E 24 CC OO OO さ 9 a3 C1 2D 1C CC QQO QQO se6D 4F40 OO OO FF FF OO QO FF FF OO OO FF FF QO OO FF FF 


4E さ O EC 60 5B 49 5B 49 5 49 5 49 EB BO ED 60 20 DE :B6 
4E40 BE QO OO 36 .10 さ 36 10 36 10 36 1Q 4D 2 Q5 63 40 iC5 
ES 17 QO D7 SB 49 ED 46 BE QQO OF C6 QS 1C FE a6 C5 AF 

















い ず パ 、| ハッ くい < 、 伸 還 当 FM- 日 用 チェ ッ ク ・ サ ム ブロ グラ ム 


竹 I/O エ ンジ ン ル ー ム 


プロ グラ ム を “RUN" させ る と , スタ ー ト ・ ア ドレ ス , エ た "Sum" は , 縦 1 列 の 合計 の 下 2 桁 で す 

ンド ・ ア ドレ ス を 聞い て くる の で , それ ぞ れ 16 進 数 で 入力 し 途中 で 止め た いと き は “ESC" キ ー を , 続き は 他 の キー を そ 
て くだ さい . れ ぞ れ 押 し て くだ さい . 

チェ ッ ク ・ サ ム の 見 方 で す が , 横 の “"・" の 次 の "Sum" は そ 

の 一 行 の 合計 の 下 2 桁 で 」 ブロ ッ ク の 一 番 下 の 線 で 区 切ら れ 





0 CLEAR 2OO。&H1FFFEDIM SUNM(15) 

10 DEFFNCH ま (E。F) =RTGHT も (BTRING ま (E。"O")+HEX 和 も (P) 。E) 

2O INFUT "Gtar モ add"』 ま =VQL ("HH リ +LEFT ま (生ま 。LEN( ま ) 一 1)+"OT) 

さき 0 INFUT"End add'sE ま :E=VQL_( "HH"+E ビ 中 ) 

40 FOUR =S TO E STEP 16』 SUM=Os IF RIGHT ま (HEX ま (QR) 。2)="OO" ロ R =S THEN BUSUE 90 

50 PF ま =FNCH ま (4。) す リリ 

60 FUR TIT=O TO 15iD=FEEK( エ + 人 n) = ビ 和 ま =P ピ も +FNCH ま (2。D)+ す "9gSUM=SUM+D』 SUM( 1 ) =BUM(T) +DiNEXT 
70 FFP ま + す リョ ミリ + ト FNCH ま (2 SUM ) : GHSUB 200』NEXTsGUSUB 110』CLUSEs END 3 

0 IF =S THEN 100 ELSE BUSUB11O 

100 F ま =CHR ま (1 さ )+" リ dd "sgFHR 1=O TH 1 P= ビ ます リキ リキ HEX ま (1) すり "saNEXT』P ま = ます "Sum "GT 
ロ 2OO 

110 F ま =STRTING ま (ロフ 。 リー") sBUSUB 2OO 

120 F ま =WGBums "siSUM=OsFUR 1=O TO 15:P ま = すり リ +FNCH 生 (G。 SUM(T ) ) 』 BUM=SUM( 1 ) +BUM』 SUM( エ 
〉) =OkNEXT』P ま = キリ ミリ + ォ FNCH ま (GS SUM ) +EHR ま (1O) +EHR 和 も (10) ょ BUM=O』 BHTO 2OO 

2O00_ PRINT P ま :RETURN 
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便利 な スク リー ン ・ エ ディ タ に よる カセ ッ ト テ ー プ ・ べ ベ 
ー ス の 6809 セ ルフ アセ ンプ ブラ で す . 2 バス 型式 で ラベ ル ・ 
シン ボル が 使え る ほか , 2 2 バス に より 複数 の ファ イル 
の リン ク が 可能 で す . 


文 セ レク ト ・ ス イッ チ 


アセ ンプ ブラ (エディ タ ) の 他 に 逆 ア セン プラ, モニ タ な 
どの ユー ティ リティ が 同時 に 常駐 し て お り , 表示 され る 8 
種 の 機能 の うち いずれ か を 選択 し ます . セレ クト ・ ス イッ 
チ に 戻る と き は [PF・1 | キー を 使い ます . 上 PF・2 |-[P_ 
F・1O | は ユー ザー に 開放 され て お り , あらかじめ \LDA? 
な ど を 入れ て お く と エディ タ で 利用 で きま す . 


太 モ ニタ 


* Monitor ?? に 対し アデ ドレ ス を 入力 し ます . オプ ショ 
ンカ が 25 由 りり あり 沈 PB は 2Z4 リ ング 出力 琴 。 証 AAY2 に の を 
は 出力 行 数 が それ ぞ れ 8, 4, 2 と な り ま す . 

カー ソル 移動 で メモ リ 内 容 の 変更 を 行なう の で す が , [E 
SC | に より モー ド の ASCII /16 進 切り 換え が で きま す . 


婦 送 アデ セン プラ 


モニ タ 同 様 。 アデ ドレ ス と オプ ショ ン (^P? の み ) を 入 
力 し ます . ブラ ンチ に 対し て は 行き 先 番地 も 表示 し ます . 
問題 は アデ ドレ シン グ の 記述 法 で , 表 1 の よう に 多少 風 変 わ 
りな 面 も あり ます が , 次 の 原則 に 従っ て いま す . 

数 値 は 以下 の 例外 を 除い て 16 進 数 で 記述 し , 前 後に 

Y$/, HH な どの キャ ラク タ は 付け な い . 

例外 1 ) 8, 16 ビ ッ ト ・ オ フ セ ッ ト に 限り `$? を プ 
レフ ィ ク ス と する . 

例外 2) 5 ビッ ト ・ オ フ セ モ セット に 限り 符号 つき 10 進 数 
を 用 い “ 欠 。 を プレ フィ クス と する . 

数値 ま た は シン ボル が ” に 続い た と き に は 即 値 演 

算数 を , 裸 で 表れ た と き は アド レス を , また , “マッ > で 囲 

まれ た と き は その 内 容 が アド レス を 表す . 
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静 1 アド レッ シン グ ・ モ ー ド の 記述 法 
( 過 述 例 ) 





圏 有 用 モード 
(inherent) RORA : ABX : SWI2 :INCB etc. 
アド レス ・ バ ス に | レジ スタ ・ モ ー ド 
賠 与 し な いも の PSHS X.Y : TFRD-PC な と 計 6 種 
イミ ディ エイ ト ・ モ ー ド 
ADDA 半 OA : CMPD せ symb etc. 
ダイ レク ト ・ ペ ー ジ ・ モ ー ド 
LDA ご P/OE : TST こ P/sym etc. 
エク ステ ンド ・ ダ イレ クト ・ モ ー ド 
SUBD 5CIE :INC symb etc. 
エク ステ ンド ・ イ ンダ イレ クト 
STD<5CIE> : LSL 
<symb> etc. 
イン デ ク ス LDD<X> : 
STD<S>$02 etc. 
イン デ ク ス ・ イ ンダ イレ クト 
ORA<<X>> : STA< く Y>$2A> etc. 


間 り 、 ク ム 


ファ イル は V-R AM 風 に 絶対 番地 に シー ケン シャ ル に 
割り 付け られ て お り , し た が っ て ステ ッ プ 数 一 定 (100) に 
な っ て いま す . 

アド レッ シン グ の 記述 は 逆 ア モン ブラ と 基本 的 に は 同じ 
で , ラベ ル は *@* に 。 コメ ント は “*※? に 続け ます 。 ま 
た 左側 7 文字 分 は ラベ ル に 使い ます . 複数 の ファ イル を リ り 
ンク する に は 次 の 手順 を 2 回 行ない ます . 


アド レス ・ バ ス に 
関与 する も の | イン デ ク ス ・ モ ー ド 

















〔LOAD) 
ORGN、Jh hhh 
ファ イル 1 . 3 
CONT 
〔 ア セン プル 〕  【 転 送 〕 
〔LOAD〕 
ORGN、.CONT 
ファ イル 2 . 
CONT 
〔 ア セン プル 〕 〔 転 送 〕 








2 回 目 に お いて “Undefined Label" が すべ て 0 に な 
れ ば OK で す . 転送 は “Transferor” で [YI| を 2 度 押し ま 


六 お わり に 


書き 尽 せ な か っ だ た と ころ も あり ます が , エラ ー に 対し て 
は タフ に 作っ た つも り で す の で 試行 錯誤 で や っ て みて くだ 
さい . 自分 で 打ち 込む 場合 . BASIC の 100 一 2000 お よび 
9000 一 が で きる と Monitor が 走り ます . する と 添付 リス 
ト と 同じ 型式 で リス ト が で きま すか ら 多 少 手 間 が は ぶ け る 
と 思い ます . 

プリ ンタ が な い 場 合 , 第 1 行 目 を “100 GOTO 500” に 
変更 し て くだ さい . 
参考 文献 
1 ) F-BASIC マニ ュ ア ル 
2 ) ASCII 出版 : 6809 ハ ンド プ ブック 
3 ) 1/O 誌 関連 記事 

( 家 2) イン デック ス ・ モ ー ド の オプ ショ ン 

















0 オフ セッ ト 、| <R> <<R>> 
ポス トイ ンク リ メ ン ト 1 く R > 
カ 2 く <R>+ 十 <<R>> 二 二 

ジレ ガク リ ント mm1 ー<R> 

カ 2 ーー<R> ーー<<R>> 
5 ビット ・ オ フ セ ッ ト <R > d 
8 ビッ ト ・ オ フ セ ッ ト <R>$hh < く <R>$hh> 
16 ビ ピッ ト ・ オ フ セ モット <R>$Shhhh <<R>$Shhhh> 
A オフ セッ ト <R> A <<R>′ A> 
B オフ セッ ト <R> B <<R>'B> 
D オフ セッ ト <R> D <<R>' D> 
PC 相対 8 ビッ ト ・ オ フ モ セッ ト [<PC>$Shh <<PC>$Shh> 
PC 相対 16 ビ ピット ・ オ フ モ セッ ト |<PC>$hhhh |<<PC>$hhhh> 











&O 


マシ ン 語 エリ ア ・ マ ッ プ 











3A40 
メイ ン ・ プ ログ ラム 
Y 
3C00 
内 
ダイ レク ト ・ ペ ー ジ 
1 スタ ッ ク 
まり 
3D00 
サブ ルー チン 群 
\ 
4000 
プ ブログ ラム 群 
ル 
4970 
テー プル 
Y 
5000 
ンー ス ・ フ ァイル 
v 
5C1C 
5C20 
ブッ の ェ ク ^ ド 
\ 
5D80 
シン ボル ・ エ リア 
Y 
5E00 
ラベ ル ・ エ リア 
Y 
6000 


フリ ー エ リア 





R…… ボ ポイ ンタ ・ レ ジス タ XX。 Y。U, S 
h…… 16 進 数 0。 1。 …… ね 大 


アセ ンプ ラ 擬 似 命令 





SET…… ド シン ボル 定義 例 :SET / カ ウン タテ 2 ビ 

SET Wwdata=5C6E 
ORGN…… オプ ジェ クト の ベー ス 設 定 

例 :ORGN 68A0O 

ORGN CONT 
CONT…… 現在 の オプ ジェ クト の PC を &H3C88 に スト ア 
END…… 以下 の ステ ッ プ を 無視 
LCLR…… ド シンボル / ラ ベル ・ テ ー ブ ル を クリ ア 
(inher ent mode) tn…… n 回 連続 命令 (1 一 6 回 ) 

例 LSLA t4 











主 な レジ スタ 








(DP : &H3C 内 ) 
10…: 転送 開始 番地 


ee 転送 先 番地 
6 クリ ア 開 始 番地 
98:nseo / 終了 番地 


80…… Orign レジ スタ 
BE CONT レジ スタ 
8 PF "secs5 エラ ー ラ ラグ 
905-- や < Undofined Label 
915cesss CRT 出 カラ イン 
082233< プリ ンタ 出力 ライ ン 


5 GE オプ ジェ クト ・ ポ イン タ 
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&O 





ASCII コ ー ド 表 (エディ タ ) 








特殊 キー EE2224LCEm 拉 
A Sa 0 1 アセ ン ブ ル (リス ト 
な し ) 
B Sx 0 2 アセ ンプ ブル (リス ト 
ーCRT) 
C Ex 0 3 ソー ス ・ フ ァイル ・ 
クリ ア 
D Er 04 ライ ン ・ デ リー ト 
(EL) E Eo 05 (dead) 
{BS〕 H Bs 0 8 Hx 一 9 
〔TAB〕) 1 Hr 0 9 ライ ン ・ イ ン サ ー ト 
〔HOME) に K Hw 0B Hx 一 16 
[CLEARJ〕 L Cr 0C CIRiT クリ ア 
[RETURN〕 M Cs 0D Hx 一 16 : Hy 
ーー Hy 十 1 
P Dg 1 0 アセ ンプ ブル (リス ト 
ーー プリンタ) 
{DUP〕) Q Di 1 1 (dead) 
〔INS〕 RR Ds | 直し 2 (dead) 
〔ESC〕 Ec 1B (dead) 
{DEL〕 Dr 『 休 ご (dead) 
と 1C カー ン ソン ル 移 動 
ォ ー l 閲 っ) 7// 
1 1E 7/ 
\ ) コ / 
その 他 1F 以 下 の コ ー ド | (dead) 
\ 5 C * ま ? 
人 5E 半々 
〔 3 C 4 
J 3E キッ 

















dd  +O +1 
3A40 10 FF 





Hx。 Hy : カー ソル 座標 
EE ウシ リー ン ・ ア セ 





ラベ ル お よび シン ボル 





ラベ ル …… *@? に 続 く 英 数 6 廊 字 以内 (た だ し 先頭 は 英字 ). 
2 バイ ト ・ シ ン ボ ル …… 英 数 6 廊 字 以内 (た だ し 先頭 は 英 小 壇 
字 ). 

・*/? に 続く 英 数 6 廊 字 以内 (た だ し 
先頭 に ヘーF は 除く ). 





1 バイト ・ シ ン ボ ル … 








テー ブル 





4970 一 4A6F 
4A70 一 4BOF 


Index Post Byee 
Code Format 


Page 3 4B10 一 4B3D 
Page 2 4B42 一 4BFF 
Page 1 4C00 一 4FFF 
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&O 


スク リー ン ・ ア セン プラ ダン プ ・ 
























4 70 DD 24 E6 9F :DB 
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10 


スク リー ン ・ ア セン プラ ダン プ ・ リ スト 

















ュー ミー > ミー キュ 2 = ーー | 
昌 間 昌 リ ー ン ・ ア セン プラ BASIC プ ロ グラ . ム 、 還 還 II 
ーー 











100 ロ PEN "ロロ"。1。"LPTOS"sGBHT ロ 5QO 
110 PUKE PP。INT(PD/256) : PHKE PP+1 。 INT (PD-256* (INT (PD/256) ) ) : RETURN 

SOO DEFINT 代 -NsDEFSTR 8-M 

6QQ_DEFUSRQO=&H4Q0OA』 DEFUSR1=&H4029』 DEFUSR2=&H405O』 DEFUSR さ =&H409C』 DEFUSR4=&H4OF2gD 
EFUSR5=&H416D 

700 DEF FNS2(P)=RIGHT ま ("0O"+HEX ま (FP) 。2) 

710 DEF FNSP2(F) =RIGHT も ("00"+HEX 和 も (PEEK (PF ) ) 。2) 

720 DEF FNS4(P)=RIGBHT$( "OO00"+HEX ま (P) 。4) 

7 さ O DEF FNSD(D)=MID ま (STR ま (D) 。2) 

740 DEF FNSRG(U』K) =MID ま (U 和 ま 。K。2+(42=QSC (MTD ま ( 有 U ま に K+1 ) ) ) ) 

75O DEF FNFL (5) =VAL ( "&H"+LEFT ま (RIBHT ま ("000"+8。 4) 。2) ) 

76Q DEF FNFR() =VaL ("&H"+RTGBHT ま ("0 リ +8。2) ) 

770_ DEF FNRE(P) =256* (PEEK(P) ) +PEEK(P+1 ) 

780_VPNT="XYUS" : VSBTACK=" ビ CKHKDPX※YXUSPC" = VEX ロ = "DKX※Y ネ ポリ K ロ ※P ビ ネネ ポポ 介 BKCCDP" 

BOO ON KEY(1) GUSUB 9999』KEY(1) ロ N 

B10 DIM AX(15) 。QY(15) 。G(12) 

B9B ” k 氷 。 ・ SELECT SMITCH ・ ・*% ※* 

200 CULUR6: HN ERRUR GUTU 9094 

10 MIDTH40。25sF= ニ Os LUCATE さ 。 さ : PRINT "1 。Monitor "saPRINTsFRITNT" 2.Transferor"sPRIN 
TiPRINT" さ .C1earer"sLUCATEB。 1 1 

920 CULUR7:FRTNT "4.Di=- 人 ssemb1er"sPRINTsFRINT" 5. ssembler"s LHCATE5。 1 日 
930 COLOR6』 FRINT "6。 ビ -Saver"sPRINTiPRINT" 7. ビ ー-Loader"sPRINTiFRINT" B.Skipper "is ビ 
LOR7 














30 


&O 


スク リー ン ・ ア セン プラ BASIC プ ログ ラム 














9 さ 2 LINES(12 日 。 112) 一 (14 さ 。 11 さ ) 。PSET。 6。BF : BET9A(12 日 。 112) 一 (14 さ 。11 さ ) 。B。6 

940 =INKEY$: じ =ASC (8) 

95O IF (C<4B)+(56<CE) THEN 940 

960 ON ビー-47 BHTD 5BOO。1000,5200,5400。2000, さ OOO 

970 ロ N ERRUR BHTU 950O 

980O ON C-53 BTD 5OOO。5020。5O40 

99B : * ※ ・ ・ MUNITOR ・・※* *※ 

100O MIDTH40:HX=0sHY=O: GBDSUB 1990 

1010 CULUR5: INPUT "Monitor "TP=VAL ("SH"+T) = MIDTHBO 

1020 EP=ー(Q く >TNSTR (T。"P") ) : EV=15+B* (O く >ITNSTR(T。"X") )+12K(O く >TNBTR(T。"Y") )+14*(O く < 
>INSTR(T。"Z") ) : EV=QBS (EV) 

103O =" +O +1 +2 + さ +4 +5 +6 + フ 7 + 日 +19 +Q +B +C +D +E ャ F 』Bum" 

105O LUCATEO。 1 : COLDR4:PRINT T 

106Q FUR J=O TO EV:zFM=P+16*J=T=FNB4 (FM)+" "=TF F THEN J=EV: NEXT: GT 90Q 

107O TB8=" ":FDR IT=O TO 15:D=PEEK (PFM+T ) : =T+" "+FNS2(D) : AY (J) =AY (J) +Ds AX(T) =aX(1 ) 
+Dz IF (D< さ 2)+(127=D) THEN 1074 

1072 TS=TS+CHR$(D) : NEXT:BDTU 110O 

1074 T5=TS+" 。 "= NEXT 

110O IF (J MOD 4=Q) THEN PRINT 

1110 CULDR5:PFRTINT LEFT ま (T。4) :COLHR7:LDCATE,CSRL IN-1 :FRINT MID$(T。6) :CULOR4:LDCA 
TE55。CSRL IN-1: FRINT "』"+FNS2(AY(J) ) :LDCATE60,CSRL TN-1 : CULUR6:FRINT TS:NEXT: IF EV 
<15 THEN 115Q 

1120 T=" Bum "kFOR 1=O TO 15:T=T+" "+FNS2(X(T) ) : 8=ZB+AX(T ) : NEXT: T=T+" く "+FNS4( 
ZS) すす は! 

113O CHLUR4:PRINT:FRINT T:COLDR7 

1140 IF EF THEN HARDC 

115O ENM=1: ロ N ERRUR BOTD 911 フ 7 

1160 BUSUB 18OO:CULDR フ 7 

1170 C=QSC(TNKEY$) 

11BO BUBUB 1HQQO IF (27<C) *(C く さ 2) THEN BUSUB 1850: GBDTO 116Q 

1190 IF (47<C) *(C く 5B) THEN 1210 ELSE IF (64<C) *(C く 71) THEN 1220 

1200 1F 12=C THEN 1000 ELSE ITF 27=C THEN 1 さ QO ELSE 116O 

1210 D=C-48: GDTU 12 さ Q 

1220 D=Cー55 

123O EPRTY=HX MDD 2:FM=F+HY*16+HX\2: DO=PEEK (FM) : DEFRTY*((DO 羊 16) *16+D)+(1-EFRTY) 
* (DX16+(DO MOD 16) ) 

1240 FDKE FM。D:GUSUB 1900:HY=HY- ( さ 1=HX ) : ビ =2 日 : SDSUB 185QO:GHTO 116Q 

1 さ OO EM=2: ON ERRUR BUTU 91 さ 2 

1310 BUSUB 195Q 

1 さ 20 =ASC(TNKEY*) : BUSUB 1950: IF (27XC) % (PC くさ 2) THEN GBDSUB 1B5O:BUTD 1 さ 10 

1 ささ 0O IF 12=C THEN 1000 ELSE IF 27=C THEN 115Q 

1 さ 40 FM=F+16*XHY+HX\2:FDKE FM。C: BUSUB 1900:HY=HY-(29 く HX ) : ビ =2 日 : BHSUB 15OGBUTD 1 さ 1 
O 

1BQOQO LINE3 (4+B* (HX+THX\2) 。24+BX (HY+HY 半 4) ) (5+BX (HX+HX 半 2) 。 さ 1+BX(HY+HY 半 4) ) 。 XR 。 ら 。 
BF: RETURN 

1B5Q_HX=(HX+ さ 2-EN* (2B=C) +EMX (29=C) ) MD さ 2:HY=(HY+EV+1 一 ( さ 1= ビ )+( さ 0=C) ) MDD (EV+1 ) :R 
ETURN 

1900 D=FEEK(FM) : LUCATE 6+ さ *(HX 羊 2) 。 さ +HY+HY 半 4:FRINT FNS2(D) 

1910 LUCATE 61+HX\2 。 さ +HY+HY\4: TF (D く < さ 2)+(127=D) THEN ="・": BHTU 1920 ELSE =CHR$* 
(D) 

1920 COLHR6:PRINT 8:RETURN 

195Q LINE9 (4BB+BX (HX 半 2) 。24+BX (HY+HY 半 4) ) (4955+BX (HX 半 2) 。 さ 1+BX(HY+HY 羊 4) ) 。 XUR。 7。BFsR 
ETURN 

1990 FUR 1=O TO 15:AX(T)=O:aY(T)=0:NEXT: AZ=O:RETURN 

1998 " * *※ ・ ・ DIS-ASSEMBLER ・ ・ *% * 

2000 CLSEUN ERRHR GTO 9200 

2100 COLOR5: INPUT "Address"sT:DUM=ASC(T) :FC=VaL ("H"+T) : EL=OiEF=TNSTR(T。"F") iTF E 
P THEN PRINT# 1。" ! 

2200 FRB=O:FLB=OQ:FS=O:FTND=O: IF F THEN 90Q 

2210 = "MA=V "iMBR=" ":PCO=FC:FD=FC: BDSUB 7O0O 

222QO IF D=16 THEN BUSUE 7 さ OO ELSE IF D=17 THEN GSUB 7400 ELSE BUSUB 72OQ 

23OQ DUM=D: DO=D: =USRO (DUM) 

2 さ 20 AF=QA\4:QL=R MDD 4:IF AL=O THEN ERROR 9O 

2 ささ O IF 人 F=7 THEN GOSUB 600O 

2 ささ 5 TF FIND THEN ERRDR 91 

2 さ 40 ITF FLB=O THEN 2 さ 7O 

2 さ 5QO AL= さ 

2 さ 70 IF 1=aL THEN 2440 

2400 FOR PIT=PC+1 TU FC+aLー1 ょ 罰 =M+FNBF2 (PT ) : NEXT: =HTD$(M。2) 

2440 D=DOsDN AF+1 GUSUE 日 100』BO00。B さ OO。BO20。 ヨ 020。BO40。B060 

2445 D=DO 

245Q TF(D=14)+(D=126) +(D=157 ) +(D=189) THEN 2OO ELSETIF (D=110)+(D=17 さ ) THEN B22O 
2500 CDLOR5:FRINT FNS4(FCO) : COLDR7: LUCATE14。CSRL IN-1 :FRINT USYMBDL ( さ O4,B* (CSRL 1 
N-1) ) 。 MA。 2。1。 フ ー さ *FRGB。O。 XR 

252O BYMEOL (96。BXCSRL IN 日 ) 。 SCUDE+M。 1 。 1 。7。O。XUR: TF O=EF THEN 2600 

2540 PRINT# 1.FNB4 (PCO) , SCDDE+M。U+MA 。MBR 

2600 PC=PC+AL :E レ =E し +1 = TF EL く 2O THEN 2200 ELSE 210O 

299 日 ” *※ ※ ・ ・ SCREEN EDITUR ・・* * 

さ QOO CLB:HX=16:HY=2 
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ミ 05Q LINE3(O。1 曲 ) (6 さ 9。 15) 。PSET 。6:LTNES(O。176) 一 (6 さ 9。 176) 。PSET 。 6 

さ O60 LINE3(14 さ 。12) 一 (144。14) 。PSET。6。BF:LINES (2555。 12) (256。 14) 。PSET, 6。BF 

さ 1OO SYMEL(B。0) 。"FM- 昌 SCREEN ASBEMEBLER" 。 1 。 1 。6 

さ 120 GODSUB 3900:LUCATEO』 10: TINPUT"Firt Line No."』EL:TF (EL く 1)+(EL>B1) THEN さ 120 
さ 1 さ O BODSUB さ 900:FHR 1=O TO 19:GYMBOL(O。BX エ +16) 。FNSD (EL+1 ) 。 1 。 1 : NEXT 

さ 140 FDR T=O TO 19:PUKE &HSC40。EL+T: UL=SPACE*$( さ 2) : UL=USR5 (UL ) 

さ 15O LHCATE 9。T+2:CHLOR4:PRINT LEFT$(UL』7) :LHCATE 16』T+2:CHLHR7:FRINT MID ま (UL。 日 
24) : NEXT 

さ 1O EP=0:EE=O:HN ERROR BHTU 9 さ 20: BHSUB さ BOO 

さ 200 =INKEY$:C=ASC (8) 

さ 210 GSUB さ BOQ: IF さ 1<C THEN ささ 20ELSE IF 27<C THEN さ 6QQ 

さ 21 昌 N C BOTO 4000。 さ 290。 さ 250。5600。 さ 180。 さ 1BO。 さ 1B0。3240,55OO, さ 1 ヨ O』 さ 2 さ O』 さ 120。 さ 220 
。 さ 180。 さ 1B0。 さ 30QO 

3219 BOTO さ 18O 

さ 220 HX=16:HY=HY+1: GT さ 62O 

さ 230 HX=16: GUTU さ 18O 

さ 240 HX=9: GUTD 3180 

3250 EXEC &H4156:GHTO さ 120 

さ 29O EB=1 

ささ OO EP=1: BUTD 400Q 

ささ 20 C=C+ さ 1※%((91= じ )+(9 さ = ビ ) ) + ロ 9* (94= ビ ) + 呈 6X (92= ビ ) : =CHR ま ( ビ ) 

ささ 90 LINES(16*HX』BXHY) 一 (16*HX+15。BXHY+7) 。 PSET 。 0。 BF 

さ 400 SYMEOL(16XHX。B*HY) ,B。2。 1 。 フ +(HX く 16) *※ さ 。O。PSET 

さ 410 PUKE &H5OOO+THX-9+ さ 1 (EL+HY- さ ) = ビニ 2 日 

さ 600 _HX=HXー(2 日 = ビ ) +(29= ビ ) : HY=HY- ( さ 1=C) +( さ 0= ビ ) 

さ 620 HX=(HX+22) MOD さ 1+9』HY=(HY+1 日 ) MDD 20+2:GUTO さ 180 

さ BQQ PUTSA(16*※HX。 日 HY+6) 一 (16※HX+1 王 。B*HY+ ア ) 。B。 XR: RETURN 

さ 3900 LINE3(O。 16) (6 さ 9。 175) 。PSET, 0。 BF s RETURN 

3998 " * % ・ ・ ASSEMBLER ・・ * * 

4000 LINE(O。177) (6 さ 9。 199) 。 PSET ,O。BF gs し INE3 (24。16) 一 (14 さ 。 17 ロ ) 。PSET 。0。BF : IF O=EF TH 
EN DF=15O: DR=150: BTO 4040 

401O LUCATEO,2 さ : INPUT"L TBT" 』T: DF=VAL (LEFT ま (" "+T。TNBTR(T。"ー") ) ) gs DF=ー1*% (0=DF ) +DF : 
DR=VAL (MID ま (T+" "。 INSTR (T。 リー") +1) ) : DR=-100*(O=DR) +DR MOD 256: ITF EB THEN MIDTHBO: 
CLOSE 1: ロ PEN"O"。1。 "BCRN: " 

4020 PRTNT 共 1 。CHR$ ま (10) +CHR 和 も (10) +"FM- 日 6B09-se1f Assemb1er Ver.1.0 DATE"+STR$( 
DATE ) +CHR$(10) 

4040 PO=&H5C2O: POO=PO』POKE &H さ C91 。ELー1 : PUKE SHSC92。EL+20』 FUKE SHSC9 さ 。DF-1:POKE 
HSC94 。 DR+ 1 

4050 PUKE &HSC9O』O:PKE &HSCBF 』 OiEXEC &HSA4Q 

4060 EEN=FEEK (&HSCBF ) : ELN=PEEK (&HSC40) : IF EEN THEN 4 さ OO 

407Q ITF (ELN=EL-1 )+(ELN=DF-1 ) THEN PO=FNRE (SH5SC1E) : BHTD 425O 

408O IF (EL-1= く ELN) * (ELN= く EL+20 ) + (DF-1= く ELN) * (ELN= く DR+1 ) THEN 4100 ELSE 4250 
410Q PF1=FNRE (&H5C1E) : PO1=FQ 

4110 M=" "kWHILE PO<P1 

4120 MM=M+FNB2 (PEEK (FO) ) 

41 さ O PO=PO+1 : MEND : ELHC=PO1-FPOO+FNRE (&H さ CBO) 

4140 IF (EL=<ELN) * (ELN= く EL+19) ※(O=EB) THEN SYMBL ( さ 2』16+BX (ELN-EL ) ) 。M。 1 。 1 6。Q。PS 











WI 

41SO_ IF (DF=XELN) ※(ELN= く DR) THEN 4170 ELSE 425Q 

4170 FRINT 提 1。 リ "TSTR ま (ELN)+"!。"。FNS4(ELUC)+" く リ +FNS4(FO1)+ リ SM,LEFT ま (USR5 (UL ) 。 
さ 1 ) 


4250 IF ELN=100 THEN 4270 

4260 EXEC &HSAEAI GUTO 406O 

4270 MUN="Undefined Labe15"+STR ま (PEEK (&H さ C9O) ) 

4280 MO="Hrigin="+FNSP2(&H さ CBO) +FNSF2 (&HSCB1)+" CONT="+FNBP2 (SHSCBB ) +FNSP2 (&H さ C 
89) : IF EF THEN_ PRINT 本 1』CHR ま (10)+CHR ま (10) +MUFRTNT 拉 1。MUN 

4290 IF O=EB THEN SYMBUL(400。 184) 。 MO。』 1 。1.7,O。FSET』 SYMBOL (400』 192) 。 MUN。 1 。1。6。O。FS 
ET GOTO 3 さ 18QO 

4295 IF F THEN CLOSBE 1』 ロ PEN"O"。 1。 "BCRNs " s BUTU 90OELSE 4295 

4300 UN EEN GUTH4 さ 10。 4 さ 20。 4 ささ O』 4 さ 40』 4 さ 50。 4 さ 60。 4 さ 70。 4 さ B0』 4 さ 90。 4400。4410。4420。 44 さ Q 
4 さ 10 ME="aAddr Err"sGHTU45SQQ 

4 さ 20 ME="Long Mnem"i BOTH4SQO 

4 ささ 0 ME="Long ddr "siBHTH45OQ 

4 さ 340 ME="Long Lb1 "』 GTO45OQO 

4 さ 5O ME= "GtFcCt ErF"』BHTO4SQQ 

4 さ 60 ME= "Syntx Err"sBHTU45QOO 

4 さ 370 ME= "Symb ロ vfw"sBOTO45QOQ 

43BO ME="Symb Err"s GTO4SOQ 

4390 ME="Obj Hvfw"s BHTO45QQ 

4400 ME="Remot LB1 "giBHTU4SOO 

4410 ME="Lb1 ロ vfw" gi BHTU4SQQ 

4420 ME="Lb1 Err "iBTU4SQO 

443Q ME="Mnem Err" 

4500 LINES(292。1 ヨ 4) 一 (571。 191 ) 。FSET。 2 。BF 

4510 _ SYMBOL ( さ QO』184) 。"Line No."+STR ま (ELN)+ す "ュー "+ME。1。1。7。O。FSET: GHTO さ 180 

4998 ? ※ ※ <・ ・ MHDULE ・ ・ ※ ※ 

SQOQO_ CLSI INFUT "Save"sTsSAVEM T。&HSQOQO。&&H5C1C。 SHSQOQQE BHTH 900 

502SO_CLSI INPUT "Load"』 TiDUM= 人 SC(T) : LOADM Ti BHTU 900 

5040 CLSs INPUT "GEip"s TiDUM=ASC(T) : SKIFF TiGHTO 900 

5199 " Tran 和己 上 ロ ヒ 
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52QQO 
5210 
5220 
52 さ O 
5240 
5250 
5260 


BOSUB 110 


5270 
5280 
529O 
5 さ 300 
5 さ 10 
5S さ SO 
5 さ 60 
5 さ 70 
5 さ 80 
399 
540Q 
5410 
5420 
54 さ 0 
544Q 
5499 
5S0Q 
5510 
5S2O 
5540 
55SQO 
5560 
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CLSiHN ERRHR BHTO 9552 

COLOR4: FRINT "ssembled Frogram で (Y。N) "COULDR7 

=INREY$ も : じ = 人 ASC() : IF じ =B9 THEN 5260 ELSE IF ビ =7 ヨ THEN 52 さ O ELSE 522Q 

INPUT "from"sTFs INFUT" 。 モ o"』TT 

FRKE _&HSC10。FNPL(TF ) : POKE &HSC1 1 。FNFR(TF ) 

PURE &H3C12。FNPL (TT ) : PDKE &H3C1 さ 。FNFR(TT) : BOTH 5270 

FF=&HSC10: PD=&HSC2OE BHSUB 110:FD=256XPEEK(&H5CE1E) +FEEE ド (SH5C1F ) 1 』FP=&HSC12s 


FRINTsFPRINTiPRINTi CHLUR4sFRINT "Refer to ロ RBN で (YN) "sg CHLUR7 
=INKEY ま : ビ =QSC(S) : IF ビ =B ヨ 9 THEN 5 さ 10 ELSE 1F C=7 THEN 529O ELSE 528O 
INPUT"Destination"』TD 

PUKE &zHSCI4,FNPL(TD) : POKE &HSC15。FNPR(TD ) : GTU 5350 

FUKE %&H3C14.FEEK (8&HSCBO) gsFHKE SHSC15。 PEEEK (&H さ CB1 ) 

FCT=O』 EXEC&H400O 

LCATE さ O』 16gFRTINT "HK。" 

IF INKEY$=CHR$(12) THEN 5S さ ヨ O ELSE ITF F THEN 900 ELSE 5 さ 7Q 

IF FCT THEN 540Q ELSE 52Q0QO 

* じ 1 呈 ビビ 

CLS:i CHLHR さ : FRINT "C1 ear "sg CHLUR フ ブ 

INPUT" 。 from'sTFs INPUT" to" TT 

PHKE &H3C96』FNFL(TF ) :』 FORKE SHSC97。FNFR(TF ) 

FORKE &HSC9B』。FNFL(TT) : PUKE &HSC99。FNFR(TT) 

EXEC &&H4BEF :FCT=1 : GHTU 5 さ 60 

? Insert 

PRKE &HSC12.&H5E』 PURE SHSC1 さ , SHFD 
FD=&H5O0O0+ さ 1 % (EL+HYー2) : FPP=&HSC10』GHSUE 110 

FD=FD+ さ 1 : PF=&HSC14:GBHSUB 110 

EXEC &H4000: PUKE &HSE40』 (EL+HY-1 ) :EXEC &H47EO 

FUR 1=HY-2 TO 19:PUKE S&HSC40』。EL+ エ UL=SFACE ま (さる 2) 
UL=USR5 (UL ) : LHCATE 9。 エ +2: COLOR4:FRINTLEFT 和 も (UL』。7) : LCATE 16。 エ +2: CHLUR7』FRTNT 





MID ま (UL。B。24) siNEXTs BOTH さ 3180 


5599 
560Q 
5610 
5620 
5640 
5998 
5999 
6Q00Q0 
6Q1Q0 
6020 
603Q0 
6040 
6050 
6060 
6070 
6100 
6110 
6998 
700Q 
7010 
7Q2Q0 
7 の の 
720Q0 
72 さ 0 
7240 
72S5O 
7260 
7299 
7300 
7310 
7 さ 3O 
7340 
7 さ 3SO 
7360 
7399 
7400 
7410 
7430 
7440 
アワ ウラ 
BOOO 
B02Q 
BQO40 
060 
099 
10Q 
12O 
日 13O 
B14O 


* De1 et 

POKE &HSC12。&HSC: PUKE &HSC1 さ 。&H1H 
PD=&HSQOQ+ さ 1*% (EL+HY- さ ) 』 PP=&HSC14:GUSUB 110 
PD=FD+ さ 1 』 PF=&HSC10』BHSUB 110 

EXEC &H4000』 FUKE &HSC40。100:EXEC &H47EOs BOT SS5S5O 
7?※ ※ ・ ・ SUBRHUTINE ・ ・ ※% ※ 

* Index PO= モ ーby モ ら 

PD=FC+1 s GHSUB 7000 
MR=MID*$(VFNT』 (6) +B( 呈 )+1 。1) 』 IF B(7)=Q THEN 610Q 
DS=D MOD さ 2:PUKE %&HSCSB 。 D5 

Mn=CHR$ (FEEK (FE+2) ) +EHR ま (PEEK (FC+ さ ) ) +SFACE ま (10) 
MaQ=USR4 (MA) 

AL=AL+1+FEEK(&H3C54) 』 IF QBC(MR) ジ 69 THEN 6Q060ELSE FIND=1:RETURN 
HR=INSTR(MA。"R"):IF HR THEN 6070 EPSE RETURN 

MID* ま (MA。HR) =MRsRETURN 

D5=D MD さ 2: ITF DSX16 THEN MDEC="%+ リ +FNSD (D5) : Ma=" く リキ MR+ "りら リキ MDEC IL=2 RETURN 
D5=D5ー さ 2 』 MDE ビ = リル ー リ + ャ FNSD (D5) 』 MA ベリ MR+ "うり +MDEC』 人 L=2 ェ RETURN 
FFPF=&H3COBs BHSUBE 110』EXEC &H4O0E ヨ 

FOR 1=O TO 7zB(1) =FEEK(&HSCOO+1 ) s NEXT 
D=FEEK (PD ) : DH=D 告 16: DL=D MD 16gRETURN 

FABE 1 

FUKE &HSC36』DiU="TFR ※" 

U=LEFT$(USR1 (U) 。4) 

IF (D=22)R(D=2 さ ) THEN 7250 ELSE 726Q 

FLB=1 

SCHDE=FNSF2 (FC) : RETURN 

7 PAGE2 

FC=FC+1 s FD=PCg GBHSUB 700Q0 

PUKE SHSC さ 6。 DiU="LDY ※" 

U=LEFT$(UBR2(U) 。 4) 

IF ASC(MID ま (U。 2。 1 ) ) く >66 THEN 7 さ 60 

FLB=1 

SCHDE="1O"+FNSF2 (FC) 』 RETURN 

7 FAGE さ 

PC=PC+1 』 PD=PCg GBHSUB 700Q 

PUKE &H さ C さ 6。 Di =" し 

U=LEFT ま (USR さ (U) 。 4 ) 

SCUDE=" 1 1"+FNS2 (PC) : RETURN 

7 addressing trinq 

RETURN 

M 人 =" 幕 "+ 和 Ms RETURN 

Mn=" く P/"+ ォ Mg RETURN 

Mn=Ms RETURN 

?Pain モ on JMP 


Ma=Ms ITF FLB THEN B14Q 
BR=VaL ("&H"+M) s TF BR く SHBO THEN 日 17O 


BR=BR-26』 GUHTU 170 
ZBR=VAL ( "&H"+M) = エ F ZBR く &HBOOO THEN BB160 
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15O ZBR=ZBR-655 さ 6 ! 

B160 BR=ZBR 

B170 FJ=PC+AL+BRs MBR= "0000"+HEX ま ( (PJ く 2 へ 16) ※ (一 ロゴ) +( ビ ゴ ッ =2 ペ 16) ※ (2 へ 16ーFJ ) ) 
B1BO LINES(408。BXCSRL IN) (48B』 ヨ CSRL IN+7) 。 XUR 。 6。 BF : MBR=R1GBHT ま (MMBR。 4 ) 
190 SYMBOUL(416。 ヨ CSRLTIN) 。 MBR』 2。 1。1.O。PSET』: RETURN 

B2O0 LINES ( さ O04 。 BCSRL IN ) (34 KCSRL IN+7) 。 XR 。 6。 BF : BHTD 250Q 

B22O _ LINES (304 。 ヨ *CSRL TIN 一 1 ) (4 さ 2。 日 CSRL TN+ フ ) 。 FPSET。 6。 Hz BHT 25QO 

B299 *Register addressin 

BOO ITF (D= さ 0)+(D= さ 1 ) THEN B400 ELSE IF (D=5 さ )+(D=55) THEN 35O 

B さ 10 FS=1 

B さ 49 * Gtack 

BSSO_FD=FC+1 : BHSUB 7000gM=" 

さ 60 FHR 1=7*FG TH 7※(1--FS) STEP 1-2*XFSzTF BEB(I) THEN ヨミ Z70 ELSE 8B3BO 
BS さ 70 MA=MA+FNSRG (VSTACK』 2 エキ 1 ) すり" 

BSBO_NEXT:FRG=1 

B390 Ma=LEFT ま (MA。LEN (MA) 一 1 ) :RETURN 

399 *EXG 

400 PD=FPC+1: GUSUE 7Q00Q 

B410 MA=" "+FNSRG(VEX ロ 。 2XDH+1 ) キリ ー"+ キ FNSRG (VEXB。 2XDL+1 ) 

B42QO_ FRG=1 : RETURN 

B998 " * ※ ・。 。 Error Trap・ ・ 水 ※ 

9000 FRINT ERR。,ERL』 STOF 

0974 ITF ERL=940 THEN RESUME 940 ELSE 900Q0 

9117 IF F THEN RESUME 900 ELSE IF ERL=1170 THEN RESUME 1170 ELSE 9000 
9132 IF F THEN RESUME 900 ELSE IF ERL=1 さ 20 THEN RESUME 1 さ 320 ELSE 9000 
9200 IF ERL=2100 THEN EL=O: RESUME 2200 

97210 IF ERR=9O_THEN ME=SCHDE+"Code Error" ELSE IF ERR=91 THEN ME="TIndex Error" 
LSE 9000 

7220 LINES (520。 BCSRL TIN-1 ) (6 さ 9。. 昌 CSRL TN+7) 。PSET 。2。BF 

9230 SYMBOL (52B,BXCSRL IN) , ME。 1 。 1。7。0O。PSET: RESUME 2100 

7 さ 20 ITF F THEN RESUME 900 ELSE IF ERL= さ 20Q THEN RESUME さ 200 ELSE 9000 
250O IF F THEN RESUME 900 ELSE STQP 

7552 IF ERL=5220 THEN RESUME 5S220ELSE IF ERL=52BO THEN RESUME52BOELSE 900O0 
本 け に 2 

2999 F=1』RETURN 





3 人 


所 














この アセ ンプ ブラ の 特徴 は , 
機能 は 必要 最小 限 と する . 
すべ て マシ ン 語 で ある . 
256 バ イト 単位 ($ ベ メメ 〇 〇 ) で ポジ ショ ン ・ イ ン デ ィ ペ ベン 
デン ト で ある . 
他 機種 へ の 移 殖 , メ モリ ・ マ ッ プ の 変更 が , 容易 で ある . 
BC 
FM-8 は , 他 の パー ソナ ル ・ コ ンピュータ と 違い , ほ と 
ん どの 入出 力 を サ プ CPU で 行なっ て いま す が , その BIOS に 
つい て は あま り 説 明 さ れ て いま せん . 
ここ で は , 私 な り に 次 の さ つ の 基本 的 ルー チン を , BIOS 
エン トリ ・ ル ー チ ン を 介し て 実現 し て いま す . 
⑯ キー ボー ド の 入力 を (A) に 入れ て 戻る (押さ れ な いと き は 
0 ). 
@ (A) の キャ ラク タ ・ コ ー ド を 画面 へ 出力 . 
 (A) の キャ ラク タ ・ コ ー ド を プリ ンタ に 出力 . 
これ ら の ルー チン が 使え る も の で あれ ば 移 殖 は 容易 に で き 


ま 69 
メモ リ ・ マ ッ プ 
現在 は 図 1 の よう な マッ ピン グ に な っ て いま す が , 本 体 
は ポジ ショ ン ・ イ ン デ ィ ペ ン デ ント に より RAM 中 の どこ へ 
置い て も か まい ませ ん . テキ スト と ラベ ル 領 域 に つい て は , 
本 体 バ ッ フ ァ 中 の $4038 お よび $4036 の 内 容 を , 使用 し た 
い ぃ 領域 の 先頭 アド レス に 換え る だ け で で きま す . 


























図 1 
BASIC ワー ク 
0500 
1000 
| テキ ュ メト 
4000 
本 体 
5500 
- | ラベ ル 
] シス テム ・ ス タッ ク 
8000 
BASIC(ROM) 
FFFF 





便 い 1 方 


残念 な が ら ス クリ ー ン ・ エ ディ タ お よび その 関連 する キ 
ー は 使え ませ ん . 使え る の は [BS | の み で す . 
MON コ マン ド に より BASIC の モニ タ ・ モ ー ド に し , G4000 

















[CR| を 行なう と 、 シ ステ ム の リポ ー ト と と も に >ー? を 表 
示し て , コマ ンド の 入力 待ち に な り ま す . 
コマ ンド を 表 1 に 示し ます . 

表 1 コマ ンド 一 覧 








コマ ンド | 機 能 
1 ラベ ル の 登録 
2 アセ ンプ ル 実 行 (リス ト SW オ ン な ら プ リン ト も 行なう ) 
B BASIC MON モ ー ド へ 
DXXXX〔, XXXX〕 | テキ スト の 削除 
IX メ X※X テキ スト の 追加 
L[X メ メメ 〕 テキ スト 表示 
MX メメ XXXX 行 を 削除 し 。 そ の 場所 か ら テ キス ト の 入力 を 行なう 
P プリ ンタ ・ ス イッ チ の ON/OFF 
R シス テム ・ リ ポー ト 
S テキ スト ・ ク リア 
MM アセ ンプ ブル 時 に ディ スプ レイ に 表示 し な い ( エ ラー の み 出 力 され る ) 








X メ メメ は 16 進 (4 桁 MAX).〔[ 〕 は 省略 可 . 


10 [CR | を 行なう と 改行 し て パー” だ け の 表示 と な り , テキ 
スト を 入力 で きま す . フォ ー マ ッ ト は , 








ーLABEL : 、LDA、.$1, X、,・ コメント [CR 


- コ メン ト の 前 に 必須 
オペ ラン ド の 前 に 必須 
「\ー ラ ベル の 後に 必須 (スペ ー ス ) は い ( つ で も 良い . 
例 . ABX [CR| 

















で すず 。 
CR | 入力 後 , フォ ー マ ッ ト ・ チ ェ ッ ク と ラベ ル を 除く ニモ 
ニッ ク の チェ ッ ク を 行ない ます . エラ ー が 出る と テキ スト 
は 追加 され な い の で , も う 一 度 入 力 し て くだ さい . 何 も 
入力 せ ず |CR | で 再び , コマ ンド ・ モ ー ド に 戻り ます . 
L| CR | で , 入力 し た テキ スト を 表示 し ます . 途中 スペ ー 
ス ・ バ ー を 押す と , リス ト が 一 是 止 まり ます . 続け た けれ 
ば , 再度 スペ ー ス ・ バ ー を , コマ ンド ・ モ ー ド に 戻る と き 
に は , 他 の キー を 押し ます (し マス 2 実行 中 で も 同様 で す ). 
アセ ンプ ブル を 行なう と き に は 必ず パス 1 で ラベ ル を 登録 
し て くだ さい . 『1』 が 不要 な の は ラベ ル の アド レス に 変更 
が な いと き に 限り ます . 『 1 』」 で ラベ ル 名 が 出 て くる の は 重 
複 で す .。 PGMERR は 本 来 出 る は ず は あり ませ ん が , その 場 
合 に は テキ スト の 内 容 が 何ら か の 影響 で , 変わ っ て いる こ 
と が 考え られ ます . 1 
パス 2 で アデ モン プル 実行 中 。 オプ ジェ クト に ご や ー ィ が 
表示 され る の は , オペ ラン ド に 使っ て いる ラベ ル が 登録 さ 
れ て いな いも の で , PGMERR は 相対 アド レス が オー バー し 
て いる こと を 示し ます . どちら も 正常 に は 動作 し ませ ん . 
テキ スト の SAVE, LOAD は 本 アセ モン ブラ で は 管理 し ま 
せん . “ び B?” コマ ンド で BASIC に 戻り SAVEM, LOADM 
で 行なっ て くだ さい . 






































きら 
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モニ ッ ク 
命令 は ほとん ど モ トロ ー ラ 仕様 に な っ て いる と 思い ます 
が , 擬似 命令 や ラベ ル の 使用 は か な り 使 い 方 に 制限 が あり 
ます . 
ぁ 擬似 命令 
FCB… 1 バイ ト 定 数 . 
EQU… ラ ベル の 登録 . 


FDB…2 バイ ト 定 数 . 
RMB… 領 域 の 割付 け . 
FCC… 文 字 デ ー タ . /” ス ラッ シュ で 囲む . 
ORG… オ プ ブ ジ ェクト の 先頭 アド レス . 
ーー か あな. の 68 EQU と 同 1 
Py 定 数 on ト の 
16 進 … ヾ $? 
Pe ) ク で 1 バイト の み 修 飾 
その他 ANDCC つ ANDC (4 バイ ト に 統一 の た め ). 


BLOーBCS. BHS-ーBCC. 

特殊 レジ スタ は , ダイ レク ト ・ ペ ー ジ (DP), 
コン ディ ジ ミジンコ ニギ ド (CCO。 ブ ログ ラジ が <・ 
カウ ンタ (PC) で す . 


ラベ ル ,。 定数 の 演算 


び づ の 演算 の み 許 し ます (ラベ ル 演 算 に は 先 に ラベ ル が 
ある こと か が 必要 : 1 十 LABET* は 許さ れ な い ). 


FCB …(10 進 , 16 進 , 文字 定数 の 演算 ) 

EQU…( / 2 

RMB…( / ま ) 

6 16 進 , 10 進 , 文字 定数 の 演算 ) 
7 ドレ ス 


オフ セッ ト 


ラベ ル が 使え る と 同時 に 演算 も 行 な を る た め , 次 の よう に 








モー ド を 決め ます . 演算 中 1 つ で も 10 進 以外 が あれ ば , す 
べ て HEX 形 式 の オフ セッ ト と みな し ます . 
HEX 形 式 … す べ て 16 ビ ッ ト ・ オ フ モ セット, 8 ビッ ト に す 
る に は <? で 強制 的 に 行なう . 5 ビッ ト 
・ オ フ セ モッ ト の 指定 は で き な い . 
10 進 形式 … 符 号 付 き と 見 て , 自動 的 に 5 ビッ ト , 
ッ ト , 16 ビ ッ ト ・ モ ー ド を 決め る . 


実際 使っ て いて の 問題 点 は , 擬似 命令 の 不足 や 。 ラベ ル 
使用 上 の 制限 より むし ろ , オブ ジェ クト に し て 2 K 以 上 に 
な っ た と き の ア セン ブル の 速度 と 作成 し た マシ ン 語 の テス 
ト の 方 法 に ある よう で す . アセ モン プル 速 度 は 表示 に 最も 時 
間 が か か っ て いる よう な の で , 不要 な 所 は 表示 せ ず に 行 な 
う よう に 改良 し た ほう が 良い よう で す . テス ト の 道具 と し 
て は 現在 BASIC の モニ タ が あり ます が , 割り 込み を 禁止 し 
て プラ ンチ する な ど , と て も 実用 的 で は あり ませ ん . FIRQ 
の ジャ ンプ ・ ベ クタ ー$FFF6 は 書換 可能 で すか ら , これ を 利 
用 し た モニ タ を 作成 する こと が 望ま れ ま す . 

参考 まで に 私 の 行なっ た デバ ッ グ 方 法 は . まず アモ ンプ ブル 
し た ら す ぐ オ ブ プ ジ ェ クト と テキ スト を テー プ に SAVE し ま 
す . 実行 する と , た いて い 制 御 不可 能 に な り ま す . この と き 
[STOP| を 押し な が ら [RESET | を か ける と , 運 が 良けれ ば BA 
SIC モ ー ド に 戻り ます (ダメ な ら テ ー プ か ら 戻 す ). 

リス ト を 調べ ,。 ハン ド ・ ア セン ブル で オプ ジェ クト を 直 
し ます (テキ スト を 直し て 再度 アセ モン ブル し な い 点 が ミソ ). 
2 バイ ト の 所 へ 3 バイ ト 命 令 を 入れ た いと き は , JMP や J 
SR で 他 の 所 で 処理 を し て 戻し て や り ま す . こう し て 同じ こ 
と を 繰り 返し , OK に な っ た ら テ キス ト を 直し て 正式 な アセ 
ンプ ブル ・ リ スト を 得 ま す . 長い も の な ら 何 回 も アセ モン ブル 
する より 効率 的 で す . 

避 参 考 文献 

1) “8080 対 話 型 2 パス ・ アセ モン プラ I/O, 1979 .11 

2) ヾ Z-80/8080 ア モン プラ ′ イン ター フェ ー ス ,1980.12 

3) *EM-8 ソ フト ウェ ア 概 説 下 。 イン ター フェ ー ス 。19 

81.11 


8 ビ 



































4) “6809 ハ ンド ブッ ク ” アス キー 出版 
アセ ンプ ブ プラ ダン プ ・ リ スト 
1 
dd _ +O +1 +2 + さ +4 + ロ + ら 6 + プ + 日 +9 + +B +C +D +E +F Sum 41aO_ QQO _a6 17 Q1 さ 3C 46 4D 2D 38 20 さ 6 3 30 
4000 1C OO 16 Q1 16 OO QQ QQ QO QO_QQO QQO 00 QQ _QQO QQO 49 41EO 5 さ 3 5 ミ 45 4D 42 4C 45 52 QD 4 45 58 54 
4010 00_ QQ_QQO QO _QO OO _QQO_ OO0 OO OO QO 0Q0 QQO_ QQO_ OO _ QQO ziQOO 41CO_QS ささ 9E 13 17 Q2 1B 17 0Q1 17 20 4C 41 
4020 Q0O _QO OO QO 00 OO QO OO QQO QO 0O 2 OD 3E 20 20 EC 41DO 3 OO 9E 37 6D B4 27 Q4 さ QO QB 20 F 17 
4030 e 0 OO D QQ OO _QO 00 65 41EO OQ FF 20 SO 52 49 4E 54 45 52 さ QQ 96 
4040 2 さき ト ) 64 41FO 17 QO EE 4F 4E QO 2O 07 17 QQ E6 4F 46 
4050 2 OK ES ラロ ーー ニコ ニニ テー ニー コラ ニニ ニニ ーー ニー ニー ニニ ーー ニーーーー ビ ーー ニー ジニ ー ニ ーー ニー ニラ ーー の ーー 
406Q が Sum: 56 FD 69 BE 2 QB DC 35 F4 79 D5 20 BE 24 7D SD :CB 
4070 さ CD 
4080_QO s さ O 
4Q090 さ E2 Rdd  +O +1 +2 + さ +4 + ロ +6 + プ + 日 +9 +Q +H +C +D +E +F Bum 
40AO に ル 4 4200 OO DF OD 4C 49 5 くさ 54 3 00 QD 10 27 Qa 17 OO D1 z98 
40BQO 35 4210 4F 46 46 QO 16 FF 16 17 QOQ CZ 4F 4E QQ 16 FF QD : さ 
40CO 5Q 4220 さ 4 56 さ O ヨ D FE 5a 8B6 SF BD 1E 6 QB 8BD 1a 8BD 54 :45 
4Q0DO さ 6E 42 さ 0 27 FC 日 1 QD 27 ea 1 QB 27 76 1 1D 27 72 1 20 :40 
40EQ さ O 4240 25 E4 BD 04 7 O 20 DE B1 QOD 26 QO9 BD 07 B6 Qa siaO 
40FO 96 4250 BD Q さ 6 QOD 39 さ 4 Q2 96 1D 35 Q2 27 02 8D 64 QOD : さ 
ーーー ニー コー トー ニー ニー ニー ニー ニー 4260 1F 26 02 BD 01 39 34 856 さ Q BD FD BF ささ BD FD C4 :92 
Sum: aa 15 76 DS FQ C2 7 QS D9 7D E8 4 35 CF 9a 5 iQ4 427O0 AZ7 C4 CC 14 QO ED 4 EF 0Q2 CC OO O1 ED Q4 AD FF :1 フ 7 
4280 FB FaA さ 5 D6 34 さ O さ 1 BD FD a9 6F 4 さ O BD FD 9B : さ 0 
429O CC 15 QO ED 4 10 AF Q2 QaD FF FH FQ A6 4 さ 35 HO :E さ 
dd  +O +1 +2 + さ +4 + ロ + せ 6 + キ 7 プ +B コ +9 + +B +C +D +4E +F GSum 420 B6 20 BD a4 6 OD 7 QO BD 9E さ 1 BD FD D2 35 D6 :S4 
41Q00 16 Q2 05 16 03 6C 16 Q1 さ F 16 02 2F 16 QS BC 16 si2 人 a 42BO 6D 1F 27 QC 日 6 2Q0 ヨ D 9O B6 QB BD BC BD 6 6F 2 : さ 1 
4110 Q さ 75 16 02 CD 16 Q さ 24 16 03 QO さ QO BD FE E6 1F =7 ミ 42CO 16 FF 63 さ 4 56 さ Q BD FD 62 3 ミ BD FD 67 a7 C4 CC :75 
4120 1Q0 1F BB QF 05 QF 1D OF 1Q QF 1F 2Q0 270 QF QS QF gsFA 42DO_QOE QQO ED 日 4 EF Q2 CC QQO QO1 ED 04 aD FF FE Fa 35 ziO4 
413O 1D OF 1F 6 QD 17 Q1 10 6 SE 17 O1 OB 17 QO EQO :E4 42EO D6 AE E1 a6 BO 27 05 17 FF SE 20 FZ 1F 15 BD F1 :F4 
4140 6 4 日 1 4C 10 27 Q1 CD 日 1 44 1Q0 27 QS 23 1 49 ziQa 42FO 43 4D 44 45 2 52 QD QO 16 FE さ 2 BD E4 46 4D 54 szG68 
OO あれ の の 0 くさ (4 日 は 5 さ TIDO4722 さ 0 の 2 ワ TB ま SWO 2 アキ OGZ2O。520。 | 、 ニ ーーー ビ マニ エーーー の o こ ビ ー ド ミニ] 
416Q 日 1 50 27 23 1 42 27 16 1 くさ 27 15 日 1 52 27 2D :52 Sumz: 19 90 43 QE 40 OB Ca 24 BE9 CD 96 eF 36 6 OF 15 :1D 
4170 1 54 10 27 0Q 1D 日 1 4D 10 27 Q4 FE 2O0 AF 7E AF =:2C 
0 2 っ フ oO OF 2O き 、s 王 
oe 464D ErF aee 
GO 2 コー が 4 さ OO 45 52 52 QD QO 6 Q1 さ 9 BD D7 50 47 4D 45 52 52 EZ 
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&O 


アセ ンプ ブラ ダン プ ・ リ スト 


4 さ 310 OD QO 6 Q1 39 Aa6 21 1 OD 27 CE 17 O1 ec フ 26 CE :Ca Rdd  +O +1 +2 + さ +4 +5 +6 + プ + 日 +9 + 人 aa +H +C +D +E ュ ォ F Sum 


4 さ 2O BC OO 00 2 フ 7 07 さ O 1F 20 0S BE OO OO 9F 11 17 0Q1 : ヨ っ 48OO さ 4 20 6 aO 17 FB FC 27 0O5 17 F Fa 20 F4 6 QD :B1 
4 ささ O CD 26 BB B6 OD 17 FF 10 10 9E 15 a6 a4 10 27 FD :aB 4B1Q 17 FB F さ 35 20 B6 Q1 39 さ 4 20 9E さ 7 C6 QB ao6 B4 :3B 
4 さ 40 EC BD 70 17 0S a5 さ O Q1 17 QO 97 6 2Q0 17 FE FB : さ Aa 482O 27 03 3 20 F9 C6 Q6 AG6 a4 B1 さ a 27 OB 日 1 さ D 27 :65 
435O 17 04 さ 36 a6 aA4 B1 さ B 27 49 C6 0Q6 17 OO a7 a6 AO =:97 483O_ 07 a7 ヨ O さ 31 21 5Q 2C EF 5D 27 Q5 ecF BoO 5a 20 F8 DF 


4 さ 6Q 日 1 3 さ Q 27 06 日 1 3D 27 ささ 6 20 17 FE DB C6 04 17 =: フフ 484O DE OB EF 1 6F 4 35 20 4F 39 6 32 97 Q5 BE 0Q0 :QO8 
437O OO 93 1 さ B 10 27 OO EE 17 FE PD さ 1 21 1 OD 27 5D 4B5O OO 9F Q6 96 OF 27 O2 97 1D 10 9E 39 BE QQO QO 9F :3B 
43BO 2D C6 QOE a6 a4 1 2F 27 19 17 0O 79 さく 1 21 1 OD zaB 4B6O 11 16 FB aA5 さ 1 BD FB 5 さ O D F7 D ミ OF 24 OF 28 :C ミ 
4 さ 90 27 09 さ 4 O2 6 20 17 FE aF 35 QO2 17 FE Aa 81 OD 54 4870 OF 25 C6 2 6F 0 5 26 FE さ Q BD F フ 7 C2 9F SB a6 : ヨ 2 
43QO 27 0OC C6 2B 17 QO 22 さ 1 21 6 OD 17 FE 9 17 QOS zoB 4BBO 4 B1 さ B 27 20 B1 さ D 10 27 OO 95 17 FB 7E 27 04 :E9 
4 さ BO DE 20 BB 17 FE CE 1 20 26 OE 17 FE C フ 7 27 FBH 日 1 Ba 4890 31 21 20 ER さ 1 21 17 0 4 27 OR 17 05 2 10 27 :EA 
43CO_ 20 27 Q5 3 06 16 FD 65 39 A6 a4 8B1 QD 27 12 17 se60 48AO Q6 1 16 FB 5B さ 9 1F 13 aA6 a4 1 OD 10 27 Q1 09 soOD 
43DO FE 76 さ 1 21 5Q 26 F2 A6 a4 B1 OD 27 04 31 21 20 :aD 48BO_B1 SB 10 27 O1 Q3 a6 C4 B1 FF 27 7 B1 FE 10 27 :36 
43EO F6 39 34 04 1F 10 17 00 53 96 OD 17 FE 5a 96 OE :Bo6 48CO_QO_ 1 1 FD 10 27 QO aF 1 FC 10 27 oo CB 1 FE :DD 
4 さ FO 17 FE 55 1F 9 17 QO 44 96 OD 17 FE 4B 96 OE 17 =: さ a 4BDQO 27 4E 日 1 FaA 10 27 QO 90 17 Q1 BF aA6 C4 4 10 1Q0 aeC 


ーー で ーー ニー デキ ーー 誠に に 4BEO 26 QO EC さ 1 21 さ 4 20 17 O1 70 35 20 日 1 2C 10 27 :79 
Sum: BO _A5 ミ O 19 DE CF C1 FB 7F BB EF さ 2 FB a6 56 EE : さ 3E 4BFO_Q2 19 a6 a4 01 6 B1 3C 10 27 Q1 CS 7F 











Sums 





4410 17 FE さ さ 1 21 5 2 ED 5C 20 EA 5D 27 0C 34 02 : さ 9 Rdd  +O +1 +2 + さ +4 + 量 +6 + プ 7 +B +9 + +B +C +D +E +F Bum 
4420 6 20 17 FE 23 35 Q2 Sa 20 F1 39 17 FE 1 5 2 :6C 49QO 日 1 5B 10 27 O1 DC a6 C4 4 Q2 27 96 Aa6 43 17 Q1 :9E 
4430 01 5C さ 1 21 6 4 B1 OD 27 E1 20 D4 さ 4 Q6 1F 9 :G65 4910 3F 17 Q3 9C 1F 10 17 Q1 1E 1F 9 17 O1 19 4F 39 :CA 
4440 4 OF 1 QaQ 24 14 BQ ミ O 97 OE 54 54 54 54 C4 OF DB 4920 さ 1 21 6 4 1 2 26 O1 39 17 QS DB 10 26 F7 DO 99 
445O C1 OA 24 OC CA さ Q DZ QD さ 5 6 BO Q9 9 40 20 E :EF 493 さ 0 9F OB 4F 39 さ 1 21 17 03 CE 10 26 F7 CS 9F 06 9F s9D 
4460 CO 09 Ca 40 20 FO 34 02 C6 10 17 FF AE さ 35 02 16 OO 4940 QB 4F さ 9 C6 14 さ 1 21 さ 4 QO4 17 03 BB 35 Q4 10 26 >:S 晶 
4470 FF さ Q B1 20 27 OE B1 OD 27 QA 1 さ a 27 06 1 3D zo6a 4950 F7 AE 34 04 1F 1O 1F 9 35 Q4 17 QO FS3 a6 a4 5 :aAa 
44B0 27 02 1 さ B 39 さ 4 20 さ 1 21 BE OO OO 6 O1 97 OC :7C ビ 4960 27 04 BB1 2C 27 DF 4F 39 6 Q1 97 25 31 21 17 0QS 1 
4490 A6 AO BO 3Q 25 54 日 1 OQ 25 1C oO Q7 日 1 1QO 24 4 :C1 4970 96 26 59 9F 26 4F 39 C6 14 さ 1 21 A6 aO B1 2F 26 sa 
44AO_ 2O 14 A6 aO BD 25 27 47 0 さ O 25 さ E 日 1 QQ 25 06 :6 さ 49O 4B QA6 aQ 1 2F 27 QD SD 27 42 1 QD 27 さ SE 17 Q0O 4 
44BQO BQO 07 1 10 24 さ 4 ミ さ 4 06 1F 10 5 49 5 49 5 49 :BC 4990 BF SQ 20 ED 4F さ 9 C6 Q さ 1 21 OF 24 5D 27 2D 34 sEB 
44CO 5 49 1F O1 35 06 1E 9 さ @ 20 D7 1 3B 27 1a 日 1 :52 4980 04 17 Q3 OC 1F 10 17 QO BE 1F 9 17 OQ 9 a6 a4 :5F 
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dd 

4DOQ 
4D10 
4D20 
4D3QO 
4D40 
4DS5O 
4D60 
4D70 
4D80 
4D9O0 
4DAQO 





し 5420 4E QO OO 21 42 53 52 00 QQ BD 42 56 43 QO OO 28 :E6 
add  +O +1 +2 + さ +4 + 品 +6 + プ + 日 +9 + +BH+C +D+E +F Sum 430 42 56 5 さ OO OO 29 4C 42 4 さ 4 42 24 4C 42 43 5 :B2 
5O00 41 42 5B OO 20 さ OO OO OO。41 44 4 ミ 41 QE 9 99 =:6B 5440 42 25 4C 42 45 51 42 27 4C 42 47 45 42 2C 4C 42 :QA 
5Q10 B9 A9 41 44 4 さ 42 OE C9 D9 F9 E9 41 44 44 41 OB :1Qo 545O 47 54 42 2E 4C 42 4B 49 42 22 4C 42 4C 45 42 2F :1E 
5O20 BB 9B BB QAE 41 44 44 42 OE CB DE FE EB 41 44 44 :FZ 460 4C 42 4C 5 さ 42 23 4C 42 4C 54 42 2D 4C 42 4D 49 :5S 
SO3O 44 07 C3 DS F さ E さ 41 4E 44 41 QB 4 94 B4 A4 41 : 昌 Z 5470 42 2B 4C 42 4E 45 42 26 4C 42 5Q 4C 42 2 4C 42 :1a 
5040 4E 44 42 OB C4 D4 F4 E4 41 4E 44 43 QB 1C QQO 0QO :89 4 ヨ 0 52 41 O2 16 4C 42 52 4F 42 21 4C 42 53 52 02 17 :B9 
SOSO _QO 41 5 4C 41 20 4 OO OO QQ 41 5 4C 42 20 5B :23 5490 4C 42 56 4 さ 42 28 4C 42 56 5S 42 29 QQO QO 00 00 :3 さ 
SO60_QO OO OO 41 5 く 4C OO 03 QO QB 78 6B 41 53 52 41 :F2 4QO OO OO OO 00 0O QO QQO OO QO QO OO QO 0O QO 00 0QO soO 
5070 20 47 QQO OO OO 41 5 さ 52 42 20 57 00 QO 00 41 5 ミ :9a 4BO 41 QO Q2 08 B6 FF 42 00 Q4 Q9 B5 FF 44 OO FF QQO :E6 
5OB0 52 OO 0Q3 00 07 77 67 42 49 54 41 OB B5 95 B5 a5 :D9 4CO BB FF 5B OO 10 QO1 FF QO 59 QO 20 Q2 FF 20 53 0O :DF 
SO50_ 42 49 54 42 OB CS DS FS ES5 43 4C 52 41 20 4F Q0 s さ 1 4DO 40 04 FF 60 55 OO 40 0 FF 40 4 さ 4 Q1 QQ FF FF iQ9 
BOAO_QO_QO_4 さ 4C 52 42 20 5F QO QO_Q004 さ 4C 52 QO GS :B6 4EO 5O 4 さ BO 05 FF ヨ C 44 5O OB OB FF FF 0OQO QQO 0Q0 QQO に 】 
SQRO _QO_QF 7F 6F 4 さ 4D 5Q 41 QB 1 91 B1 a1 4 く 3 4D 50 zeD 4FO _QO OO OO 00 00 QO OO OO OO Q0O OO QQ QQ QO QQO 0QO Q 
5OCO 42 OB C1 D1 F1 E1 43 4D 5O 44 47 ミ 93 BS a さ 4 さ :CB ーー| 
SODQ 4D 5QO 5B QO7 BC 9C BC AC 43 4D 5O 59 47 BC 9C BC :FO 
SOEO QAC 4 さ 4D 5QO 5 B7 BC 9C BC AC 43 4D 5O 55 B7 8 ミ =: さ 5 
SQOFO 9 さ 3 B3 さ 3 43 4F 4D 41 20 43 QQO OO QQO 4 4F 4D 42 :BD 
Sum: 99 02 CE C2 BS 4O 97 1E 76 11 5F 7B B 22 C9 D1 :aB 
dd +Q +1 +2 + さ +4 +5 +6 + フ + 日 19 +a +B +C +D +E+F Sum 
5100 20 5 さ QO QO OO 4 さく 4F 4D QO 0S QO_ 03 7 ミ 6 さ 4 57 :CB 
5110 41 49 20 3C QQO OO OO 44 41 41 OO 20 19 00 OO OO :E5 
5120 44 45 43 41 20 4 OO QO QQ 44 45 4 さ 42 20 5a oo:FF |]| 


3 る 8 


+QO 


+1 


の 


+ さ +4 








Sum 13 さ 0 QO OO 44 45 4 さ OO 03 QO Oa 7a 6 45 4F 52 41 OB :EF 
4F 14O BB 9B BB AB 45 4F 52 42 QB CB DB FB E 45 5B 47 :17 
うさ 15O QO 10 1E QO QO OO 49 4E 43 41 20 4C 00 QQ0 0QO 49 :FE 
: 3 160 4E 4 さ 42 20 5C OO QO QO 49 4E 43 00 03 QQ QC 7C :E4 
:57 170 6C 4 4D 5O OO Q ミ QO OE 7E 6E 4 53 2 0O 0 さ OO :42 
10 1BO 9D BD aD 4C 44 41 QQO OH 6 96 Bo6 a6 4C 44 42 QQ :2D 
OF 190 OB C6 D6 F6 E6 4C 44 44 00 07 CC DC FC EC 4C 44 :7E 
5F4 1AO 5B OO Q7 BE 9E BE aE 4C 44 59 OO 47 BE 9E BE AE :BF 
: DD 51BO 4C 44 5 さ OO 47 CE DE FE EE 4C 44 55 QO 07 CE DE :BA 
:ED 1CO FE EE 4C 45 41 5B O1 QO QQ QQ 3Q 4C 45 41 59 01 :7 さ 
:BA 1DO QO OO 0OO 31 4C 45 41 53 Q1 QO OO 00 32 4C 45 41 =:SB 
:FB 51EO 55 O1 QO QO OO さ 3- 4 5 さ 4C 41 20 4B QQ 0Q0 00 4C :69 
: 45 1FO 5 ミ 4C 42 20 5B OO OO OO 4C 53 4C OO 03 OO QB 78 =:CZ 
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エディ タダ ・ ア セン プラ の ソー ス を ど ジェ ネ レ ー ト / 


己 PA らら 


DISASSEMBLR 


逆 ア セン ブラ は 6809 に お いて も か な り 出 回 っ てい ます が 
案外 2 パス 形式 の も の は 少な いよ う で す . アセ ンプ ラ と 違 
っ て 解析 に は 1 パス で も 充分 と いう こと な の で し ょ うか . 
私 も これ まで BASIC で 書か れ た 逆 ア セン プラ を 使っ て いま 
す が , スピ ー ド が 遅い , JMP 先 を さがす の が 面倒 , オフ セ 
ッ ト が わか り に くい な どか な り 不 満 が あり ます 












⑩ 。 すべ て マシ ン 語 で 高速 . 省 ス ペー ス . 
@ 2 パス 方 式 で ラベ ル が 自動 作成 され , さら に 3 種 の パ 
ター ン が 指定 で きる . 
ラベ ル の 追加 , 削除 を 行なう 簡単 な エディ タ を 持つ . 
し か も 使っ て いる 命令 テー ブル が 同一 で ある た め , O 
P コ ー ド の 不一致 は まず 起こ り ま せん . 
256 単 位 ($ ぉ メ X0 0) で ポジ ショ ン ・ イ ン デ ィ ペ ン デ 
22 Ma 
ダイ レク ト ・ ペ ー ジ の 値 を 設定 で き , 値 を 正しく 指定 
すれ ば 正確 な ラベ ル を 与え を ます. 
オフ セッ ト の 表示 が 何 ビ ピット ・ モ ー ド か 明確 に し て い 
ま ま 9 
この プロ グラ ム は ,。 OP コ ー ド ・ テ ー ブ ル と 入出 力 な ど 
いく つか の サブ ルー チン を 2 パス ・ ア モン プ ブラ か ら 借 用 し 
て いる の で , 2.5KK 弱 と 2 パス と し て は 小さ くま と まり まし 
た . アセ モン プラ と 合せ て も 8 K 弱 で すか ら 充 分 両者 を 常駐 
し て 使用 で きま す . 
あの パタ ー ン と いう の は ラベ ル の 作成 に 次 の 制限 を 与 そ , 
場合 に より 不 必要 な ラベ ル の 作成 を や め よ うと いう も の で 


オプ ショ ン 
逆 ア セン プル 対象 内 の アド レス の ラベ ル の み 
上 お よび BRA や PC 相対 の よう な 相対 指定 の も の 
ダイ レク ト , エク ステ ンド を 含み すべ て 












当初 0 を 省略 モー ド に し まし た が , これ は 2 パス ・ ア セ 
ンプ ブラ の ソー ス と し て 出力 し た と き 未 登録 ラテ ベル と な ら な 
いた め の も の で し た . 後 で 範囲 外 の ラベ ル も ソー ス に 落と 
す よ うに し まし た の で , オプ ショ ン 1 が も っ と も 見 や すい 
と 思い ます . 

オフ ゼット の 表示 に つい て は , 5 ビッ ト を 符号 付 10 進 と 


悦 馬場 


し , 8 ビッ ト を ' ぐ ' 十 2 桁 の 16 進 , 16 ビ ッ ト を 4 桁 の 16 進 と 
し まし た . これ は アセ ンプ ブラ の 仕様 に 合わ せ た も の で す が , 
実際 5 ビッ ト は 10 進 指定 が 一 般 的 で すし , 見 や すい と 思い 
ます . 逆 に 16 ビ ッ ト は 10 進 で 使わ れる こと は まず な いと 思 
いま す . 湊 に 例 を 示し ます が , これ ら の 表示 に よっ て アセ モ 
ンプ ル の ソー ス と し て 使っ た 場合 も 同一 の オブ ジェ クト を 
与え を る こと が で きる わけ で す . 










A6 84 っ 。 LDA > 

A6 00 ーー ED が 0,X 

A6 88 00 っ 。 LDA く $00,X え 
A6 89 00 00 っ 。 LDA  $0000,X 








未定 義 の 命令 が 見 つか る と ,'FCB' と 16 進 で 出力 され ます . 
ASCIL ダ ンプ は あり ませ ん が , ソー ス と し て 出力 する の で 
どこ まで 出力 し て よい の か わか ら な い の で あえ そ て 付け ませ 
ん で し だ な た: 





ソー ス の 上 限 と ラベ ル の 上 限 の チェ ッ ク を 一 切 し て いな 
い ぃ い の で , あま り 無 茶 な 領域 の 設定 は し な いで くだ さい . 目 
安 と し て は 現在 の ポジ ショ ン で 2 一 3K ぐ らい で す . 長い 
も の を 解読 し た い 人 は , $6037-38 を 空い て いる RAM し て 
くだ さい . ソー ス と ラベ ル の 領域 は 。 アセ ンプ ラ と まっ た 
く 同 一 に し て いま す . それ と , BASIC で CLEAR し て お い 
だ た ほう が よい で す よ 









BASIC か ら EXEC & HH5600 [CR | また は , MON モ ー ド 
で G5600 [CR | で シス テム の 状態 リポ ー ト と と も に コマ ンド 
待ち に な り ま す (>ー 表 示 ). 

ラベ ル は A コ マン ド で , 追加 を 行ない ます . いっ たん クリ 
ア す る の で は あり ませ ん . 複数 の 領域 を 枯 ア セン ブル する 
場合 に . ラベ ル が 領域 (上 限 チ ェ ッ ク は し て いま せん ) を 
オー バー し な いよ うに し て くだ さい . 人 4 コマ ンド に オプ シ 
ョ ン が 設け て あり ます が , 長い プロ グラ ム で は ラベ ル 領 域 
が 不足 する , 不 必 要 な も の (定数 と し て 使っ て いる も の ) 
まで 行なっ て し まう , 2 パス ・ ア モン ブル の と まき 未 登録 ラベ 
リグ と ( が つづ で じ ま う 。 と いう こと で は 場 会 に RUN 仙人 の の 
2 まい LM だ 。 
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了 到 コ マン ド は ラベ ル の 追加 , 削除 を 1 単位 で 行う 簡単 な 
エディ タタ です. エディ タ ・ モ ー ド は (一 ') の み と な り ま す . 


前 除 | XXXX[GR] | 

T コ マン ド は 登録 きれ て いる ラベ ル を 出力 し ます . 途中 
リス ト を 止め た いと き に は , スペ ー ス ・ バ バー を 近 し , 続け 
る と き は 再度 スペ ー ス ・ バ パー を, コマ ンド へ 移る と き は 他 
の キー (何で も 良い ) を 押し ます . 

上 コマ ンド は 逆 ア モン プル を 指定 し た アド レス か ら 始 め 
ます . アド レス を 省略 すれ ば , W コマ ンド で 指定 し た アド 
レス より 始め ます . リス ト を 止め た いと き は T コ マン ド の 
と き と 同 じ で す . 

ラベ ル を まっ た く 登 録 し な く て も 上 コマ ンド は 実行 で きま 
す が , 多く の 1 パス ・ ア セン プラ の よう に 相対 アド レス を 絶 
対 ア ドレ ス に 変換 し て は くれ ませ ん (や る の は 人 簡単 で す が , 
あく まで アセ ンプ ブル 可能 な ソー ス 出 力 を 前 提 と し て いま す ) . 

ダイ レク ト ・ ペ ー ジ は 通常 0 に 設定 され て いま す が , 本 
ディ ス ア セン プラ で は 指定 し て や る こと が で き , 従っ て 


ダイ レク ト ・ モ ー ド も 適切 な アド レス を 設定 し て や れ ば 正 
常 な ラベ ル を 与え ます . 

ラベ ル の 形式 は ' く ' 十 16 進 4 桁 で 与 を . ダイ レク ト ・ モ 
ー ド また だ は PC 相対 8 ビッ ト は 前 に ' く "を 加え て リス ト し ま 
す . ラベ ル は 6 文字 まで で す . 





自分 と し て は 満足 し て お り ま す が , 私 も そう で す が , ど 
う も 人 の 作っ た も の は 合わ な いと 思う 人 が 多い と 思う の で , 
簡単 に ロジ ッ ク の 説明 を し ます . コン パク ト に まとまっ て 
いる と 思い ます が , JMP テ ー ブ ル は 一 切 使っ て いな い の で , 
リス ト を 追っ て いけ ば だ いた い 解 析 で きる と 思い ます . 

命令 テー ブル は 2 パス ・ ア セン ブラ の も の を 使っ て いま 
す . 構成 は 次 の よう に な っ て いま す . 


ABX00 ※X 3A OO 00 00 


生 w 


に 
レデ ユビ ピット 


7 : 2 バイ ト ・ オ べ ($11) 5 : イン へ 

レン ト 3: イ ミー ディ エイ ト 1: ダイ レ 
クト / エ クス テン ド 6 : 2 バイ ト ・ オ ペ 

($10) 4 : イン ヘレ ント ( 2 バイ ト ) 


2 : イ ミー ディ エイ ト (2 バ イト ) 0: イ 
ン デ ックス 
BRA 00X20 
| ユビ ッ ト 7 : 2 バイ ト ・ オ ペ べ ($11) 1 
6 : 1 バイ ト ・ オ ペ べ ($10) 


ロン ググ ラジ ンチ 





これ に よっ て , 命令 サー チ の 段階 で , 各 モ ー ド へ 分 岐 し 
ます . 

リス ト 出 力 は 分 析 中 に 行なう の で は な く , い っ た ん ワー ク ・ 
バッ ファ に 格納 し , TAB な ど は リス ト 専 用 の ルー チン で 処 
理 し ます . オプ ジェ クト も オプ ジェ クト ・ バ ッ フ ァ に 入り 
ます . し た が っ て も し 出力 フォ ー ム が 気にいら な いと き は , 
リス ト ・ レ ー チ ン を , ASCI ダ ンプ な ど が コメ ント と し て 必 
要 な と き は , 各 処 理 ル ー チ ン 中 に 加え て くだ さい . この と 
き , (A) 1 文字 を テキ スト ・ バ ッ フ ァ に 追加 する ルー チン 
($08 で 1 行 分 削除 も 行え を る ) と , (X) か ら (B) の 数 ま 
だ た は (X) 三 0 と な っ た デー タ ま で テキ スト を 追加 する ル 
ー チ ン が あり ます . 
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< く コ マン ド 表 > 


MON モ ー ド へ 

ラベ ル 領 域 ク リア 

ラベ ル 追 加 , 削除 

逆 ア セン グル ・ リ スト 

プリ ンタ ・ ス イッ チ (ON/OFF) 
シス テム ・ リ ポー ト 
ンー ス 出 力 ス イッ チ (ON/OFF) 


ラベ ル 登 録 リ スト 

アセ ンプ ブル 対 象 範囲 の 設定 

ラベ ル の 自動 作成 

0 : 対 象 内 の ラベ ル 

1 : 同上 お よび 相対 指定 の すべ て 
2 : ダイ レク ト を 含め すべ て 

ダイ レク ト ・ ペ ー ジ ・ レ ジス タ の 設定 


も っ と も 仕様 の 決定 と 発表 の た め の 整 備 の ほう が コー デ 
ィング より 長かっ た くら いで (デバ ッ ク は 実質 半日 で 非常 
に 調子 良く いき まし な た) 細か い 点 は 自分 で 解析 し て くだ さ 
い ぃ い . その だ め の 人 道具 で す よ 


WCS DX 
A [0] 






















いま だ に 80 時 代 の 考え 方 し ひか で きず , どう し て も XX を HL レ 
ジス タ Y を DE レジ スタ B ま た は D を BC レジ スタ と いっ た 
具合 に し か 考え られ ず , U や S を 効率 的 に 使っ て いる と は 
言え を ませ ん . 本 当 は 2 K で お さえ そえ る つも り で し た が …. 
参考 文献 

1 ) “ 乙 80 逆 アセ ンプ ブラ? イン ター フェ ー ス , 1980. 4 

2 ) 6809 ハ ンド ブッ ク , アス キー 出版 
〈① ラ ベル 未 登録 で 出力 


>W6248, 6282 [RETURN | 
>L [RETURN] 





プラ ンチ な ど が 
絶対 番地 に な っ 











て いま せん . 
これ で は 見 に く 
いで すね . 

ooo1 e248 B1oD CMPA #$OD 

ooo2 6248 2809 ENE  $09 

OoO さ 624C BDO7 BSR  $07 

ooo4 624E B60A LDA 0A 

Qoo5 6250 8DQS BSR  $0 さ 

ooo6 6252 8eoD LDA WOD 

OOQ7 6254 さ 9 RTS 

oooB 6255 RTS と PULS 

Oo09 6255 さ 402 FSHS A て PC を 含む と 

oooa 6257 961D LDA <$1D | 

OOOB 6259 さ 502 FULS A き 次 の 行 に 出力 

OooC 625B 2702 BED  $02 し ます . 

oooD 625D BDa4 BSR  $64 

OOOE 625F OD1F TST <$1F 

OOOF 6261 2602 BNE  $O2 

Oo1QO 626 さ BD01 BSR  $O1 

0011 6265 9 RTS 

oO12 6266 

0013 6266 3456 FSHS A,B,X。U 

OO14 626B 3OBDFDEF LEAX *FDEF。FC 

0O015 626C さ 3BDFDC4 LEAU $FDC4,PC 

oo16 6270 A7C4 STA 。U 

OOo17 6e272 CC1400 LDD  #%1400 

OO18 26275 EDB4 STD .X 

Oo19 6277 EFO2 STU 2,X 

OO1A 6279 CCOOO1 LDD OO01 

oo1B 627C EDo4 STD 4,X 

OO1C 627E ADFFFBFA SR 上 *FBFA] 

Oo1D 6282 35D6 PULS A,B,X,U,PC 

ooiE 2284 








② オ プシ ョ ン 0 で ラベ ル を 登録 し 出力 








0001 
0002 
OOO さ 
00Q04 
0005 
0006 
OO0Z 
0008 
0009 
00OA 
O0OB 
000C 
OoOD 
Q0OE 
OO00F 
QQ01O 
001 1 
Q012 
001 さ 
Q014 
OO15 
Q016 
0017 
0018 
0019 
001 谷 
OO1B 
QQ01C 
QO1D 
QO1E 


6248 
624 谷 
624 ビ 
624E 
625O 
6252 
6254 
6255 
6255 
625Z 
6259 
625B 
625D 
625F 
6261 
626 さ 
6265 
6266 
6266 
626 
626C 
6270 
6272 
6275 
6277 
6279 
627 ビ 
627E 
62B2 
624 


B1oD CHPA #OD 

2609 BNE  L6255 

BDo7 BSR Le255 

BaOA LDA  # き 0A 

BDO ESR し 6255 

BeoD LDA  #$OD 

3 の RTS 

3402 Le255 :PSHS A 

961D LDA < き *1D 

3502 PULS A 

2702 BE L625F 

BD64 BSR  *64< 葉 一 一 対象 範 囲 外 な の 
OD1F Le25F :TST <$1F で ラベ ル 付 され 
2602 ENE La265 2 
BDo1 BSR  L6266 3 
9 Le265 :RTS 

3456 Le266 :FSHS 人 。B,X,U 
OBDFDEF LEAX *FDBF FC 

さ 38DFDC4 LEAU *FDC4、PC 

a7C4 STA 』U 

CC1400 LDD  #$1400 

ED84 STD ,X 

EFO2 STU 2。X 

CCooOo1 LDD 0001 

EDo4 STD 4。X 

RDFFFBFA JSR 上 *FBFR] 

35De PULS A。B。X,U,FC 








エディ タ で ラベ ル を 意味 付け DPR を $60 に 設定 


L6255 : 6255 
SM1 :601D 
DSPDTA: 60 さ 4 





Q001 
Q002 
000 さ 
QQ004 
O005 
QQ06 
0007 
0008 
0009 
Q0Qa 
OQ0OB 
Q0Q0C 
O00D 
QQOE 
000F 
0010 
0011 
QQ012 
001 さ 
Q014 
0015 
QQO16 
0017 
QO18 
Q019 
QO01 
Q0O1B 
QQ01C 
001D 
QO1E 
OO1F 
Q020 
0021 
QQ022 
bo2 さ 





Add 
56OO 
S610 
562O 
563O0 
5640 
5e5O 
66O 
567O 
S68O 
690 
56aOo 
56BO 
SeCO 
56DO 
5eEO 
S6FO 








B1QD 
260 
BDQ7 
B60Aa 
BDO ミ 
B6OD 
3 


ミ 402 
ge1D 
3502 
2702 
BD64 
OD1F 
2602 
BD01 
39 


さ 456 


さ 3OBDFDBF 
ささ BDFDC4 


7C4 


CE14Q0Q0 


EDB4 
EFO2 


CCOO01 


EDQO4 


ADFFFBFA 


さ SD6 


625F 
:601F 
:FBFA 


SM1 
SM さ 


L626 :6265 
FRTOUT: 62C さ 
DSPLY :e624 日 


L6266 :6266 
RCB :602B 


=$601D 
=*601F 


FRTUUT= も 62C さ 


RCB 
DSPDTA 
DSFPLY 


日 
Le6255 


L625F 


ト L6265 


日 
L6266 


SBumz OF 12 DE さ O D9 EB 96 a2 4C 


=*602H 
ー 和 あら 60 さ 4 


: EMF 
BNE 
RSR 
LDA 
BSR 
LDA 
RTS 


: PSHS 
LDA 
FULS 
BEG 
BSR 
sTST 
ENE 
BSR 
kRTS 


:FSHS 
LEAX 
LEAU 
STA 
LDD 


解析 し て わか っ 
た ら ラ ベル に 意 
味付け し て ソー 
ス に 出力 し セー 
プレ まし ょ 3 


A。B。X。U 
RCB。PC 
DSFDTA。FC 
ぁ U 

菩 ま 1400 








41 B9 E2 








000 さ 
Q0004 
OO05 
0006 
0007 
Q008 
Q0009 
QQ0Qa 
QQOOB 
QQ0Q0C 
OoOOD 
QQ0OE 
OOOF 
QQ1O 
QO11 
Q012 
001 さ 
90014 
QO15 
QO16 
0017 
Q018 
Q0019 
Q01a8 
QO1B 
001C 
001D 
001E 
Q01F 
002O 
O021 


1 の 


⑧ オ プシ ョ ン 1 で ラベ ル を 登録 し 出力 





対象 範囲 外 の ラ 





624 L62C さ = まま 62C さ 1 

624 L602H =$602B べ 

624 昌 L60 さ 4 =$60 さ 4 AddPOA2o 

624B B1OD CMPA # 叶 OD す . 

624A 2609 BNE  L6255 

624C BDO7 BSR  L6255 後 で 付け 加え た 

624E B6Oa LDA  ##$Oa 3 

6250 BDQO さ BSR  L6255 0 

6252 B6QD LDA  #$OD か げ て 2.25K で 

6254 さ 9 RTS お さま ら な く な 

0 L6255 :PSHS A だ 9 人 
アズ 日 ュ 。 

6257 961D LDA <*1D 3 の も な ん で す 

6259 さ 502 FULS A が 非常 に 便利 で 

625B 2702 BEQ  L625F す . 

625D BD64 ESR  L62C さ BEST BE の 

625F OD1F L625F :TST <$1F 3 の 

6261 2602 ENE  L6265 範囲 以外 に 参照 

626 さ BDO1 BSR  L6266 され て いる も の 

6265 さ 9 L6265 :RTS < 回 

の 3 8 が 3 つ あ る こと 

6266 さ 456 L6266 :PSHS A。B,X。U が すぐ わか り ま 

626B さ OBDFDBF LEAX L602B。PC すね 

626C ささ BDFDC4 LEAU L60 さ 4。PFC 

6270 a7C4 STA ,U 

6272 CC1400 LDD  $1400 

6275 EDB4 STD ,X r 

6277 EFO2 STU 2。X 

6279 CCOOO1 LDD 0001 

627C EDO4 STD 4,X 

627E ADFFFBFA JSR 【[*FBFA コ 

62B2 さ 5D6 FULS A。B,X。UjFC 

62B4 





〈④ オ プシ ョ ン 2 で ラベ ル を 登録 し 出力 





OO01 
QQ002 
000 さ 
QQOQO4 
Q0005 
QQQ6 
O007 
QOQ8 
Q009 
QOOa 
Q0OB 
QQQ0C 
OOOD 
QQQE 
QOOF 
QQ1O 
0011 
Q0012 
001 さ 
Q014 
0015 
Q016 
0017 
Q018 
0019 
Q01a9 
QO1B 
QQ1C 
oO01D 
QQO1E 
QO1F 
Q02Q 
O021 
0022 
O02 さ 
Q024 
O025 





624B L62C さ 

6248 L6O2B = (何で ゼラ ベル 守 
6248 Le0<4 

624 昌 Loo1D け す れ ば 良い と 
6248 LoO1F いう も の で は あ 
624B L140O 49 り ま せん ね : 
6248B LOOO1 =*OQO1 本 

6248 B1QD CMFA #*OD これ ら は 本 来 定 
624 2609 BNE  L6255 数 で す . 

624C BDQO7 BSR  L6255 

624E B60a LDA 0OA 

6250 BDO さ BSR  L6255 

6252 B6OD LDA  #*OD 

6254 さ 9 RTS ダイ レク ト ・ ペ 
6255 : Y 3 ク ら と 
a255 さ 402 Le255 :PSHS Aa の 2 定 周 大 
6257 961D LDA <LOO1D 00 

6259 さ 502 FULS a 

625B 2702 BE  L625F 

625D BD64 BSR  L62C さ 

625F OD1F L625F :TST <LOO1F 

6261 2602 BNE  L6265 

626 さ BDO1 BSR  L6266 

6265 さ 9 L6265 :RTS 

6266 日 

6266 さ 456 L6266 :FSHS 人 。B。X。U 

626B さ OBDFDBF LEAX L602BR,FC 

626C ささ BDFDC4 LEAU L6034,FC 

627O a7C4 STA ,U 

6272 CC140O LDD #L1400 

6275 EDB4 BTD。』X 

6277 EFO2 BTU 2,X 

6279 CCOOO1 LDD LOQO1 

627C EDO4 STD 4,X 

627E ADFFFBFA JSR [LFEFA] 

62B2 さ 5D6 FULS A。B,X,U。FC 

62B4 5 



























































人 1 


ん 


ディ ス ア セン プラ ・ ダ ンプ ・ リ スト 





dd  + 〇 O 1 +2 + さ +4 +5 +6 + プ + 日 +9 + 全 +B + ビ +D*+E 

BOO FS 35 94 ヨ D 65S 26 91 1F さ 1 D DD 17 QA D さ 20 
SB10 45 4C 45 54 45 OD OO 17 FF 49 1F 10 3O 48 9F 
SB20 9 さく 19 C3 QO Q1 1F Q2 17 OD 4D 16 FF 41 34 60 
SB さ O 1E 26 OB 9C 15 25 OB 9C 13 22 04 BD 2D 26 04 
SB40 O1 35 EO D 3 27 FB C6 06 a6 4 17 QOC 7D 27 
SBSO _A6 AO a7 CO SA 26 F2 C1 OS 2a E4 SD 27 QOS eF 
SB6O 5A 20 FB aF C1 6F C4 4F 35 EO DE 3Z 6D C4 27 
SB7O_AC 46 27 04 さ 33 4 20 F4 4F 39 6 0O1 39 CC OO 
SBBO DD 29 さ 4 3O 9E さ Z7 C6 0O6 D7 22 17 15 BE 3 BO 
SB9O 05 27 07 BD DS 26 02 1F 31 39 さ 4 さ O 31 BD 0Z 
5BAO 6 4C a7 a4 1F 1O 17 OB 9 さ DE OD EF 21 1F 9 
SBBO OB Ba DE OD EF 2 さ eF 25 17 FF 72 35 BO 17 09 
SBCO 日 1 20 26 OE 17 09 BD 27 FB 1 20 27 05 35 06 
SBDO FD 3B 3 さ 9 OF OS 6 21 1 さ 1 26 02 97 10 日 1 32 
SBEO 6B 97 1O 20 67 日 6 さ 2 97 OS 9E 39 Aa6 O 26 FC 
SBFO 1F 5F O9 OD OF 27 04 6 O1 97 1D a6 21 日 1 OD 





Sums 1 さ B2 ヨコ 2 3 さ 5 59 67 CB CD CS 42 44 D2 CZ DC 79 


Rdd  +O +1 +2 + さ +4 +5 +6 + フ + 日 19 +Q +B + ヒ +D+E 
59OO 4B 17 OB 1 10 26 FD SO 20 44 OD OS 10 27 0O1 
5910 OD OB 1Q 26 Q1 15 6D C4 27 2B AE 46 9C 15 25 
5920 9C 1 さく 2F 1D 1F さく 1 C6 0O6 17 O1 F3 B6 さ D 17 01 
S93O_ B6 01 97 21 AE 46 17 Q4 DO 6 OD 17 O1 EE 33 
5940 39 ささ 4 日 20 D1 6 01 97 OB 16 OO DF 9E 15 9F 
595O BE OO O1 9F 11 DE 3Z OF OB 17 FF 61 OF 26 0F 
5960 OF 25 3O BD O6 D9 9F 3 さ B OF CO 96 10 1 32 26 
597O 6 O1 97 1E 20 02 OF 1E 9E 06 9C 13 10 2E FC 
S9BO BD BB 9E 11 BD 27 さ O O1 5F 11 9E 06 D6 26 さ 
599O 06 QD 24 27 C4 3 さ O ヨ D O6 66 9F 3B B6 さ B 7 CO 
5S9AO OD 97 C1 9E 11 ヨ D 06 3 さ O O1 9F 11 20 6C 34 SO 
59BO OS 27 76 OD 20 27 12 DE O9 31 BD 07 QOS a6 a0 
5S9CO CO B1 OD 26FH 6F C4 DF O9 17 Oa 16 17 05 53 
59DO Q6 17 Qa _OE 17 QOS 5O 3O BD 06 64 C6 0S 5D 27 
59EO 9C 3B 27 OB 6 O 17 15 BB Sa 20 F1 17 05 ささ 
59FO 26 Fa 17 05S さ 2 さ 1 BD Q6 CZ a6 a4 日 1 3B 27 1D 


BA SC 55 B6 55 4C 56 Q1 DE 





dd  +O +1 +2 + さ +4 +55 +6 + フ プ + 日 +9 +Q +B + ピ +D +E 
5AOO Q6 17 OA O1 aA6 AO 17 OB さ SF C6 04 17 09 FZ7 a6 
5a10 17 OB 35 1 OD 27 12 C6 OF 17 09 E9 17 08 29 
5A2O QD 27 06 さ 1 21 6 QA4 20 F さ 35 DO 34 さ 0O 10 9E 
5A さ O OD O5 27 1 1F 21 17 FE さ 1 26 OE 1F 31 C6 06 
5Q40 QO DC 6 さ A 17 QO E5 20 Q5 6 20 17 00 DE 5F 
SASO Aa4 日 1 11 26 O4 C6 BO 20 06 B1 10 26 09 C6 40 
SA60 21 QC 26 17 OF Ea _D7 25 a6 aA4 17 OF E さ 0C 26 
Sa7O BD 15 BD 6D 4 27 34 E6 04 C4 CO D1 25 26 28 
SABO O4 C4 さ C 27 04 1 Q5 27 さ C E6 04 C4 0Q02 27 0C 
5A90 06 10 27 O1 日 F A1 07 10 27 O1 F さ E6 04 C4 01 
SAAO 06 A1 OB 10 27 O2 02 3O 09 20 CB 3O BD 19 21 
SABO B4 27 2D E6 04 C4 CO D1 25 26 06 Aa1 OS 10 27 
SACO BC さ O O6 20 EA E6 O4 C4 20 10 26 QO 7B E6 04 
SADO 10 1O 26 OO Ba E6 04 C4 0 10 26 QO1 BA 16 01 
SEO QD QS 27 2E さ 30 BD OS DB ae6 0 B1 20 27 0Q6 1 
SAFO 27 02 20 F4 6F 4 さ O BD OS 45 9F さ B 3O BD 0O 


Sumi 1D AC C1 11 72 4 SF 5C BB B9 2 くさ 47 B6 4E SB 











add +O +1 +2 + さ +4 +5 +6 + フ + 日 +9 +Q +B +C +D +E 
SBOO C6 O5 BD 1a Aa6 9D O4 FE 17 OF 45 17 04 1F 86 
SB1O BD 1 6 O1 97 26 35 BO 46 4 く 42 20 24 QO 34 
SB20 A6 BO 27 22 SD 27 1F BD 0O3 5a 20 F4 34 10 3O 
SB3O OS BE 6D 4 27 QO4 さ O O1 20 FB 1 QB 27 06 AZ 
SB40 6F O1 35 90 6F 1F 35 90 OD 05 27 11 1 さ 9 26 
SBSO C6 Q1 D7 24 C6 O4 BD Ce6 6 OD 17 FF CF 35 BO 
SB6O0 26 OD OS 27 FB C6 O4 17 FF B4 86 20 17 FF BD 
SB70 21 17 OE DC a6 aA4 日 1 1E 27 56 1 1iF 27 52 3O 
SBBO 19 2E 6D 4 27 42 A6 21 aA4 02 26 04 さ 3O 06 20 
SB9O E6 02 C1 FF 27 F6 C1 O 26 04 日 6 O1 97 24 C1 
SBAO 27 OC C6 02 17 FF 77 6 2C 17 FF BO 20 DE 3O 





Sums QB BB AE BE CS D フ 7 QO2 44 Oo4 FB BD DS5 52 5aA DE 


dd +O +1 +2 + さ +4 +5 +6 + プ +B +9 +a +B +C +D +E 
SCOO 3O Q6 20 FO 1 OF 1O 27 FE D6 SD 27 OF Co6 02 
SC10 FF OC 6 2C 17 FF 15 5F Ao 21 20 D4 C6 02 17 
SC2O FD 16 FF さ 4 OF 21 OF 27 C6 Q4 17 FE F1 6 20 
SC3O FE FQ A6 21 17 OE 19 OC 26 OD 27 27 O5 86 2 さ 
SC40 FE EA OD 21 26 11 OD 27 26 2E 6 さ C 17 FE DD 
SCSO 21 96 2 く 1F O1 20 09 ae6 22 17 OD F4 OC 26 6E 
SC6O 17 FC 2C QD 05 26 02 35 BO 4D 26 QC C6 06 1 フ 7 
SC70 AD 86 OD 17 FE B6 さく 5 BO B6 24 17 FE aF a6 21 
SCBO 02 QB OD 21 27 05 Ao6 22 17 02 a2 16 FE Ca 86 
SC9O 97 21 OF 27 16 FF 91 6 O1 97 27 OF 21 16FF 
SCQO_B6 O1 97 27 97 21 16 FF 7F OF 26 さ 1 21 a6 aA4 
SCBO OD 9E C6 O4 17 FE 67 6 20 17 FE 7O OF 28 0F 
SCCO QA6 Qa4 B4 BO 27 66 Aa6 A4 4 1O 27 09 6 O1 9Z 
SCDO 6 SB 17 FE 57 a6 aA4 4 OF B1 O4 27 76 1 0O 
SCEO 27 OO BS 1 O1 1O 27 OO BB 1 0O2 1O 27 OO 89 
SCFO 0O3 10 27 OO BD 1 OB 10 27 0OO BB B1 0O9 10 27 

















人 42 





























と の 】 






































































上 2 
ョ 9 
1 キー 

















es 





嗣 央 陸 届 議 下 痛 区 周 事 

1111 | | | に 
| | | | | | 全便 人 
ーー 壮 時 只 | 和 較 
















ーー ご 革 條 









テッ 提 


















































間 腸 
EEEEREEEEE 





















MZ の S.R.D を 目標 に この プロ グラ ム を 制作 し まし た . 


| プロ グラ ム 9 特 後 


ダイ レク ト ・ ペ ー ジ ・ レ ジス タ の 活用 に より , 256 バ イ 


ト 単 位 で の リロ ケー タブ ル と な っ て いま す . また だ, ハー ド 
ウェ ア と の イン ター フェ イス は すべ て BIOS を 通じ て 行 
な っ て いる の で , メモ リ 上 に は BIOS の みあ れ ば OK で 
す . た だ し , デバ ッ ガ 自身 を 起動 する プロ グラ ム は 必要 で 























コマ ンド ・ リ スト を 表示 し ます . 
M コ マン ド 
図 1 この コマ ンド 使用 中 に 限 
り , テン ・ キ ー 部 分 が 16 進 
キー に な り ま す ( 図 1). ま 
ーー F だ 。 16> そ ネイ ト 人 少 ご と io べべ 








ル が 鳴り ,、 チェ ッ ク ・ サ ム 
を 表示 し ます . アド レス の 
変更 は に で バッ ク , IS PI で 






































L コ マン ド 

ロー ド の コマ ンド で す . アド レス を 指定 する と , その ア 
ドレ ス か ら ロ ー ド を 開始 し ます . 

IV コマ ンド | 
カセ ッ ト と メモ リ の 内 容 を 照合 し ます . 
W コ マン ド 





画面 の 横文字 数 を 変更 し ます . 
1 コマ ンド 
指定 アデ ド レス か ら 入 力 さ れ な た 文字 列 を キャ ラク タ ・ コ 
ー ド に し て スト ア し ます . 

IP コマ ンド | 
指定 され た メモ リ 領 域 を 同一 の デー タ で 埋め ます . 
[IX コマ ンド | 
ブロック 転送 の コマ ンド で す . デバ ッ ガ 自身 も 転送 で き 
まま 9 
IR コマ ンド | 
レジ スタ ・ バ ッ フ ァ の 内 容 を 表示 し ます . カー ソル を 移 
動 し て エディ ッ ト が で きま す . 

[@ コマ ンド | 
F-BASIC の Motor ON と 同様 で す . 
| 馬 = に と 
F-BAISC へ リターン し ます . 
? コマ ンド 
C RT 画面 の ハー ド ・ 


ラン 人 
































ヨコ A 王 を) ほ ま る -。 








イン クリ メン ト し ます 。 他 
の キー 入力 で コマ ンド 持ち 
に な り ま す . 






































G コ マン ド 
指定 アド レス へ ジャ ンプ し ます . ユー ザー プロ グラ ム 

















の 最後 に RT S が ある と FEF-BASIC へ 戻り ます . 
C コ マン ド 
レジ スタ ・ バ ッ フ ァ の 値 (PC と SP は 除く ) を 各 レ 


ジス タ に 入れ て コー ル し ます . 実行 後 は レジ スタ の 値 を 

バッ ファ に スト ア し て , コマ ンド 待ち に な り ま す 

S コマンド 
セー プ の コマ ンド で す . F-BASIC と 同じ し フォー マッ ト 
で 記録 し ます . 














全 4 


メモ リ ・ ブ ロッ ク の 比較 コマ ンド で す . 
[IA コマ ンド | 
ディ ス ア セン ブル の コマ ンド で す .。 プリ ンタ へ も 出力 で 
きま す . 

D コ マン ド 
D [RET| で 以前 に ダンプ し た 次 の アド レス か ら 64 バ イト 分 
メモ リ ・ ダ ンプ し ます . 

D (アド レス ) [RET| で , 指定 アド レス か ら 64 バ イト 分 ダン 
パウ まあ 9 

D 先 頭 ア ドレ ス , 最終 アド レス で 指定 アド レス 間 を ダン 

















プ し ます . それ か ら オ プシ ョ ン A で ASCII, C で 縦横 チェ 
ッ ク ・ サ ム 方 式 で ダン プ し ます . また だ , 一 度 画 面 に 表示 さ 
れ た も の は カー ソル ・ エ ディ ッ ト で きま す . 一 度 に 複数 行 


の 変更 が 可能 で す . 


衝 コ マン ド の 注意 ・ その 他 





⑯S,L, ソ コマ ンド お よび プリ ンタ 出力 中 に [STOP| を 押す 
と , F-BASIC へ 戻っ て し まい ます 

@D, A,Z コ マン ド に つい て は ESC| で 一 時 停止 [CTRL [C| で 
中 断 し ます . 1 
1I,P,X メ コマ ンド に つい て は コマ ンド 実行 前 に “Are 
you sure?? と 確認 し て くる の で , [\ ま た は 回 を 入力 し て 
くだ さい . 





























ログ ラム に つい て 





前 に も 書い た よう に 2 5 6 バイ ト 上 単位 で の リロ ケー タプ 
ル と な っ て いる の で xxX00 か ら ロ ー ド し て 使え ます . また , 
ジー ニク ・ 諾 の 克 と 人 で アグ アロ グラ ベベ の 先頭 まり 前 に 2E5.6 
バイ ト 必 要 な の で 注意 し て くだ さい . た と えば プロ グラ ム 
を B1000 か ら ロ ー ド し た 場合 , $OF00 一 SOFFF が ワー 
ク ・ エ リア と な り ま す . 


それ か ら , スタ ッ ク は F-BASIC で セ モット され た エリ ア 
を 使う の で , 
さい . 


必要 に 応じ て CLEAR 文 で 変更 し て くだ さ 





カセ ッ ト ・ ベ ー ス の 小さ な アセ ンプ ブラ を 使っ た た め , 何 
ん と 7 回 に 分 け て アセン ブル し まし た . で すか ら , プロ グ 
ラム 中 に か な り ゴ プ ゴミ が あり ます . 大 き な ア セン プラ を 使っ 
て 再 ア セン ブル すれ ば , か な り 短 緒 で きる と 思い ます . 

また , 初め ミニ アセ モン ブル や トレ ー サ も 内 蔵 さ せる 子 
定 だ っ た の で す が , まだ 完全 で は な い の で , 今回 は カッ ト 
し まし た . 数 バイ ト の 変更 で それ ら を リン ク で きる よう に 
な っ て いる の で , 完成 し た ら 紹 介さ きせ て いた だ きま す . 


コマ ンド ・ リ スト 


&O 


機能 的 に は まだ 充分 で は あり ませ ん が , F-BASIC の モ 
ニタ より は 役立つ は ず で す . ぜひ 使っ て みて くだ さい . 

























































































コマ ンド 表 
コマ ンド | | 書式 。 欄 能 

H Help コマ ンド ・ リ スト の 表示 

M メモ リ ・ チ ェ ン ジ M アド レス [ RET 

S | セー プ ブ S 先頭 アド レス , 最終 アド レス , 実 
行 開始 アド レス | RET 

1 ロー ド L [RET 

L ロー ド 開 始 ア ドレ ス [ RET 

V ベリ ファ イ カセ ッ ト と メモ リ の 昌 合 

@ モー タ ON F-BASIC の MOTOR ON と 同じ 

! クィ ッ ト F-BASIC ヘリ ター ン 

? 人 バード:・ コ ピー 画面 の ハー ド ・ コ ピー 

W | ワイ ス ・ チ ェ ン ジ | 画面 の 横文字 数 の 変更 

G ジャ ンプ G アド レス [RET 

C コー ル C アド レス [RET 

R スク リー ン ・ エ ディ ッ ト 可 能 

X トラ ンス ファ X 先頭 アド レス , 最終 アド レス , 転 
送 先 ア ドレ ス [ RET 

P クリ ア P 先頭 アド レス , 最終 アド レス , ク 
リア ・ デ ー タ [RET 

I 文字 列 書 き 込 み 先頭 アド レス , 文字 列 | RET 











N 一 















































Z メモ リ ・ ブ ロッ ク 比 較 先頭 アド レス , と 比 
較 先 先頭 アド レス [R (, P) 
A ディ ス ア セン プル A 先頭 アド レス , 呈 料 アド レス で P) 
A , P で プリ ンタ 出力 [RET 
D メモ リ ・ ダ ンプ D [RET 
D 先頭 アド レス , 最終 アド レス 
RET | (,,P) 
D 先頭 アド レス , 最終 アド レス , オ 





プシ ョ ン (,P) [ RET 
オプ ショ ン A : ASCII ダン プ 
C : チ ェ ッ ク ・ サ ム 
AC : ASCII& チェック 
サム 


























各 コ マン ド の 実行 例 





6B09 Super DERUGGER FM- Versian 1.0 sR 
Copyright (C) 1982 By HIRO/ETF Lab. 
He1p 

: Memory Change 

: Jump (User Prog・) 

Ca11 (User Praq.) 


: Memory Paint 

: Transfer 

: Mini Assembler 

』 Memary Dump 

: Register Display 
: IMemory Compare 


コー の いい コ ウロ ゃ < で ロ こぐ こ に ロロ ロミ エ 





* 人 A-00 B-0Q0 CC-00 DP-55 X-1111 


iP 1000,2000,0 
Are yau sure ? (Y/N) Y 
si 1000,iyd I/O 


:X 5000,5500,1000 
re you sure ? (Y/ZN) Y 


Y-aaQO U-QQQ0 5-0000 PC-1234 


Save re you sure ? (Y/N) Y 
Load iD 1000,1010,8C 
Verify Rdd  +0 +1 +2 + さ +4 +5 +6+7++9 + +B +C +D +E +F Sum 
』 Midth Change 1000 49 2F 4F 20 49 2F 4F 20 00 00 00 00 00 00 00 00 iCE 1/ ロ 17 
人 SCI1I Mrite 


1010 00000000QQQ0O0Q0QoO0QQ0Q〈QQ〈0Q0000 00 00 0 に に に に に に レー レー 


Sumi 49 2F 4F 20492F4F20000000000000 QQ 0O0 CE 











: Motar QN H 
』 Duit 日 
』 CRT Copy 4 
4 

1 お コス | 6809 デ バッ ガ 


FM-8 Version1.0 ダン プ ・ リ スト 





dd  +O 二 1 +2 + さ +4 +5 +6 + プ + 日 +9 +Q +B +C +D +E +F Sum 
6OO 34 OB 1F 5O 4 1F BB 16 CO さ 4B 5F 52 DD S4 B6 14 siBF 
6810 97 5O 3O BD FF さ 7F 03 1 くさ oE 9F FB Fa 97 5 6 』E9 
6B20 OE 20 0O4 97 5B ヨ 6 14 975O3OBgDFF2B9F5S2B8EzO8B 
63O OO O1 9F 54 20 DC 34 16 Do6 さ 1 27 OB 3 27 O9 17 』i08 
6840 O4 7 35 96 BD DD 35 96 BD D さ さ 35 96 6 OD BD E6 saD 
68S5O 86 OQ 20 E2 96 さ 1 43 27 0O8 6 11 D D9 6 07 BD 』E2 
686O DS 39 日 6 20 20 DO 34 12 6 17 20 0O4 さ 4 12 6 16 szBD 
6870 97 59 6 10 97 5O 3O BD FE DC 9F 52 BE OO O4 9F 』26 
6BBO 54 OF S6 OF 57 6 OC 97 SB 17 FF 6 35 92 BD D6 :e6 
6890 8BD OD 2O DB 34 14 C6 13 DZ 5O BE OO OO 20 15 34 :D1 
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&O 


6809 デ バッ ガ FM-8 Version1.0 ダン プ ・ リ スト 





Rdd  +O +1 +2 + さ 3 +4 +55 +6 + プ 7 + 日 キワ 9 +A +B + ピ +D +E +F Sum 
6900 35 B1 59 35 92 8D 02 1F 9 34 02 47 47 47 47 D 』FB 
6910 02 35 02 4 OF B1 Oa 25 0O2 BB 07 BB 3O 16 FF 16 』F6 
6920 B6 20 a1 BO 27 FC 3O 1F 39 32 7E 日 6 07 17 FE F さ zBZ 
693O 32 62 39 BD EB QA6 BO 27 F2 1 2C 26 EE 39 3O BD 』i3B 
6940 FE 6E BD DC Aa6 4 27 E3 8BD 2C 24 DF 34 06 BD DO siSC 
6950O OF 32 OF 33 6 0O4 97 34 aA6 4 BD 1a 24 OB BD OB se6a 
6960 さ O O1 Oa さ 4 26 F2 35 日 6 C6 O4 OB ささ 09 32 5a 26 s02 
6970 F9 9Q 3 さ 97 33 39 日 1 3O 25 10 0 3O B1 Oa 25 OB gi1a 
69O 1 11 25 O6 BO 0O7 B1 10 25 O1 4F 39 3O BD OO OE 4E 
6990 9F 52 6 1O 97 5O BE OO OB 9F 54 16 FE 74 OO 00 zB2 
69a0 O1 OO 28 19 0O 19 OO O1 OO EO 20 36 3 3O 39 20 :5 さ 
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』0O 








72S0 E2 17 F6 EE DC 32 93 3 C さ OO O1 1F 02 17 F6 DS 7D 
7260 17 F6 DF 6 FF 97 52 6 O1 97 50 17 F5 aA4 6 OaA 』O8 
7270 BE OO OO さ O 1F 26 FC 4Q 26 F6 OF 35 17 OO 55 6 9B 
72B0 02 BD 6C C6 OB 4F BD 67 5a 26 Fa BD 76 5F 6 FF 』70 
7290 8BD 4C SA 26 FB OC 35 4F BD 55 1F 20 BBD 4D DC さ a 』F5 
720 8BD 49 QA6 CO BD 49 さ 1 さ F 26 FB 6 FF BD 41 CC 0O 

72BO OO BD 3 日 DC 32 BD 34 BE O4 3D 9C さ E 27 0O2 BD 4 さ 36 
72CO 86 O1 BD 1 B6 3C BD 16 86 FF BD 12 4F BD OF 8D 』2F 
72DO0 03 16 FE 1 C6 OE 日 6 FF BBD O4 5Q 26 FB 39 34 12 』9C 
72EO 97 52 6 O2 97 5O 17 FS 29 35 92 BD 02 1F 9 34 zCE 
72FO 10 9E 3E AZ O 9F 3E OC 36 96 36 日 1 FF 26 02 BD 』 さ さ 


Sums CA AaC 57 6E 26 OB CB 61 0 D2 97 1 33 10 55 49 gzFF 


fdd  +O +1 +2 + さ 3 +4 + 口 + せ 6 + プ 7 + 日 +19 +Q +B +C +D +E +F Sum 
7300 02 35 90 34 10 BE O4 3D 9F 3E 6 O1 BD DO 6 3C 』5D 
7 さ 10 BD CC 96 35 BD CB 97 3Z7 96 36 OF 36 8D CO 1F 89 si4D 
7320 9B 37 97 37 Aa6 BO BD B6 9B 37 97 3Z 5a 26 F5 96 siB4 
7330 37 BD AB 17 FF 9E 35 90 17 F5 11 17 F6 OO DE 32 』22 
7340 17 F5 FO 17 F5 FC DC 32 DD さ C 17 F5 E6 17 F5F2 si1B 
735O 10 9E 32 17 FSS CA Aa6 日 O 27 1 さ 3 1 2C 10 26 F5 C9 』B7 
7360 17 F5 BD Aa6 4 日 1 5O 10 26 F5 BE 03 31 a6 C4 1 』EC 
7370 A4 27 24 1F 3O 17F5 8BD 6 2D 17 F4 B9 a6 C4 17 』CF 
73B0 F5 7 17 F4 DD a6 a4 17 F5 7F 6 2D 17 F4 a7 t#F 』BD 
7390 20 17 FS 71 17 F4 BS5 17 F5 さ E 1 OS 26 O1 39 31 sBC 
73a0 21 33 41 11 9 さ 3 さ C 25 CS さ 39 16 F4 aO 16 F4 DF 16 sz41 
73BO F5 90 16 FS 6B 16 F5 71 16 F5 1D 16 F4 7 16 FS :2C 


Bum: B4 46 C1 36 


Add +O +1 +2 + る 3 +4 +5 +6 + フ Z + 日 +19 + +B +C +D +E +F Bum 
7400 1 5O 26 B1 
7410 27 07 11 9 さく 
7420 FF AB 3O 8D 
743O 27 07 EC 1 
7440 3 17 FF 8O 
745O BoO 17 FF 6 
7460 63 SQ 26 FA 
7470 F2 9B 34 20 
7480 27 04 17 FF 
7490 17 FF 31 1 フ 7 
74A0 BD F2 4 34 
74BO B6 3O BD F2 
74CO 97 2 17 00 





























Sums 76 3F D9 FE 


Rdd  +O +1 +2 + さ 
7500 04 EZ7 3 E6 
7510 EE C1 54 26 
7520 Ce6 1 3 Oa 
7530 57 26 OD Oa 
7540 96 03 4 FO 
755O 84 OF 10 27 
756O 36 96 03 B1 
7570 OC 26 SE E6 
758O 86 53 SF 20 
7590 86 53 SF OA 
BD 03 8A 


67 6 aZ 


dd  +O 1 +2 + る +4 +55 +6 + プ + 日 +9 +Q +B +C +D +E +F GSum 
760O0 O2 C1 BO 25 4 C1 CO 25 03 6 42 8C 6 41 C4 OF :47 
7610 C1 03 26 O4 6 44 20 31 C1 OC 25 2D C1 OD 26 12 2E 
7620 E6 4 C1 64 27 EE C1 91 27 O2 SF C C6 09 6 20 :7F 
7630 20 18 D6 0O2 C1 CO 24 0O4 6 58 20 OD Do6 02 C4 OF :eF 
7640 C1 OE 24 O3 日 6 44 BC 6 55 SF 16 FF 4C C4 FO C1 :5C 
765O 60 24 OF C1 40 25 OE 26 03 日 6 41 BC 6 42 C6 OS iD4 
7660 2O EB SF 20 C9 C1 1O 24 O4 C6 06 20 C1 Ci 2 26 gzFD 
7670 06 6 42 97 OB 20 B5 C1 3O 26 21 D6 02 C4 OF C1 :E6 
768O O4 24 O4 C6 OB 2O a7 C1 OB 24 O4 Co6 O1 20 9F C1 :F9 
7690 OC 26 03 C6 04 BC C6 03 6 20 20 aE De6 02 C4 OF :7 さ 3 
76QO C1 OE 25 O4 C6 02 20 6 C1 OD 27 Ea C1 Oa 25 0O6 :3B 
76BO C6 04 日 6 43 20 94 C1 09 27 DC C1 O6 25 DB C6 Oa saB 











76CO 20 D6 E6 CO D7 04 OF 2C 34 O4 54 54 54 54 31 BD 』FB 
76DO FO 3C 31 21 D 19 C6 2C EZ aO 35 04 3O O1 C4 OF szDa 
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ESESESBSBeBsBsEsBssB33 
半 前 アー イー ドド 6 
寺 昌 電導 上 時 時 有 才 
HH 

oQAooQooQAOoQooQod o 

提 

指 昌 時 3 
1 
6QooQooQooQooQod 
時 





と き , 





こ は イ ニ 
た だ 





詳細 を 述べ ま 
際 ( 
ー ル し 
で す 
こ call す る と 止ま っ て 
タ へ 戻り ます 
: マク ロ .OM/OFF 


トレ ー ス と プレ ー ク と 2 つの 使い 方 
実 
: ROMSTT 





イン ト と トレ ー ス と の 両刀 使い が で きる . 



























































SG 
40 16 
や り 
ペグ ョ ペン 
し お 
=) ペン 
っ ) 必 ke 中 
98999gooeOoonod 1 hn 古 ト 
隊 抽 ヾ て 5 . A 
SAS5AS5AS5Ae】 4 3 ト PRN 忌 マ で で な の 入 
1 昌 9 ャ 還 せ も ポ | 2 
四 移 の NB RBBSK N 
8 ・ の ゃ 6 ら で ッ N 
Hs で や = KS ら つ る る ロ き 
NN 公 を びさ 9 k て] 
時 8 計 Nkes85 っ ES き 2 電 1 3 
mm Po さま ・ ミ 
808898808898809509 の 占 和 と 生 品 ゝ | 
了 明 間 王 S iRs ss LN AYA 2 中 b 中 
HH 38 ベ 晶 し こう EK | の さく 所 科 品 ミ 
前 時計 28936 5 抽 8 . 人 及 *KRPS 拉 や ャ マー 
ee 0 人 0 9 2 に : 
前 凍 hd ふく < らし ャ 6 列 人 鐘 や ぐ パャ な 人 S キ うく 5 しき 
生 53803 | 製 回 と が マセ 0 GRY2ROR で ニュ Pi < ーー モニ ME 
本 0 、 問 | <G 瑞 六 SG K 中 
義 2 8898 ト き 日 9 NN 近 WNP の | に だ 
3 軒 有 38 と 直 つ 所 夫 か 良 | |k 上 1 * ゃ 
和 5 3 回 史 き リ S セ | 江 に ベル ャ S で Ia ら し 
2 6 の 3 を に を 守 
日 目 提 電 肛 EIC ジア 
3 に 
3 0 へ 感 編 ー 寺 1 る な 広 
HEREGHt 財 3 に 本 き : 『 谷 で ① 5 半 い 際 SEEl*l ] SB ャ 
人 上 SS 上 SS 回 り 全 人 
| 回 全 寺 款 965 りつ 還 へ VN K KC に 
3 < 遇 RS 才 8 た 5 まま 
boVooVooVo oVooVo へ < く 2 ト に っ 
oOo oOo80o8Vo 1 〇 3 で 
昌 昌 hh NAS 0R 張 (人 ブ 
際 細 時 時 ne に っ gi の 8 所 て Re0 を ire 上 s 8 
9 ミト RM の も ONE 0 っ eS 
eSizhid3 光 3 。・ 上 ら  S 玉 層間 屋 休 や | ら 上 EoS 和 Ac 回 に かす 2 
GAG5AS5AS5AS 症 ふ 昌 G 了 の IS 選 普 人 所 避 テ 1) に 3 人 E FN 人 ロ 回 
人 半 bBdHSHEH3 まや 1 回 還 
 B 3 卓 | Ku N あめ る 本 SN e 父 記 | り 9O 共 上 省 衣 2 る 1 
EE X 8 さく | 嗜 .< ミヤ Am ン ン 嘱 に っ 滞 沈 。 此 | 選民 
ヘ < 二 田 > X 
EE ww IN Il 本 弄 し ゼ PSGPSN と か" 交 か 還 釧 員 き 藤宮 辻 和 | nn 
| 織 SASAS5MeA35A3 4 RC に | 量 上 甘 四 じ 芯 ふ 6 NN | 入 。|、Ap 科 往き そる | を さす を る 川 @ 和 1 を ょ 
旦 ー 寺 8S3543 に aa 評 る SS 問う つ 如 雪 S 谷 1 し I ト 攻 
の 間 抽 E 上 時 NN 失 旧 葉 て や うう SG 衣 る や よ さく る |、 ょ る 5 ] 
星 和 ーー 2383 > 舞 N 計 SE RM へ の SI 記 柱 na elzEWXie $ 
リ 『 軍 8433 EX テ つ 回 を る く 料 を よる 式 天 ター 66 き OE ポ | > ギヤ 
aa HH FNG モ を ン 」 台 を 財 | llN 因 と. へ く | 
二 0 し 」 ヽ 臣 3 ュ n…・Ag さ ASNSANAP ス さ i 
ト 998989082B2S69 の = さ 旬 マー て 1 有 ま エ 
23835A35AS RIP si SN 抽 生 (2S pg さ 
AEAS5AS5A35A は = いふ じ も 回 へ 則 nhnS ま お 0 まお 人 mn ロ Sn 
8098 E ネ KG ロ | kotk2。 
09693588085085A9548543835A35A354354383 い 放 左 さ ロ 曲目 ほ ヶ と ピ 尻 上 惨 














EA 
4HEX 


@ 


メレ ジス タ 
り U り ポイ ンタ 


S S ポ イン タ 
P 選 カ ウン タ 


文 : ア キュ ムレ ー タ 
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レジ スタ 表示 :R 

ここ が 最大 の 特色 で , 他 は すべ て お まけ と いっ て よい 
ほど 主要 な 部 分 を 成 し て いま す . 

CODE と は マシ ン 語 の こと で , MPU の 最大 語 長 の 5 バ 
イト 表示 し ます . 

EFHINZVC と は CCR の こと で , な , な ん と バイ ナリ 

で 表示 し ます . クリ ティ カル な 点 や きめ の 細か な プロ 
グラ ム 作 り に は 強い 身 方 と な る で し ょ う . 

以下 お きま り の レジ スタ 群 が 続 きま し て STOP,UTOP 
の 各々 1 ワード, そし て EA, (EA) が 出 て きま す .STOP 
の 表示 は サブ ルー チン 内 で の ロー カル 変数 の 管理 に , UT 
OP は パラ メー タ に , EA は JMP。 イ ンダ イレ クト , イン 
デック ス 命 令 な どの バグ 取り に 役立つ で し ょ う . 
W レ ジス タ 変 更 :r 

変更 な し は [SPACE | キー, [RETURN | で 終了 で す . 
⑳ メ モリ ・ テ チェ ンジ : M < 形式 1> 

< 形式 1> と は , 1 ワー ド 入 力 の こと で R で D レ ジス 
タ 。 又 ,Y, S, U,P は それ ぞ れ の レジ スタ ,。@ は 定数 , 
1 は EA, \ は 直前 に 使っ た アド レス , 16 進 級 な ら そ の も 
の , と な っ て いま す . 
[SPACE | で 決 に 進み , [ 信 | で 戻り [RETURN | で 終 
了 , [K] で ASCI1 入 力 と な っ て いま す . 
⑯ 字数 変更 :@ 

その も の で す . 


プレ ー ク ・ ポ イント 


実行 : G < 形式 1>.g 
























































で は アド レス が 表示 され る の で , 内 容 を 確か め た 上 
表 2 
パッ チ ・ エ リア アド レス | 元 の デー タ 変更 後 
プリ ンタ で , CR/LF の と き , 
CR で 改行 され な いも の は , 5226 27 21 
INCHA0 1 交 字 一 AccA 5251 | D336 
OUCHA0 AccA… 表 示 5233 D352 
中 ニタ ジャ ンプ 595E | AFA5 
5468 ] 
AFA 
5969 ) 9 
SWI ベク トル 513F 1 FFFA 
5961 
INCHA ルー チン 524 選 
ー5259 
OUCHA ルー チン 521E 
ー5236 
OUTPTR 
D |F 
ACCAG2ZUP> 522 935 

















コマ ン ド 道 加 。 51AB か ら 51B7 ま で 


「 




















コマ ンド 名 アド レス ー5178 
51AB| = | 
AE | | 
B 1 | | 
に 語り 





B7 0 0 一 お わり に 必ず 入れ る . 





に ーー ゴ ュ 負い 四 コ ョ 人 











で IY| を 押し て くだ さい . 
g は 現在 の PC か ら で , すぐ に 実行 し ます . 
プレ ー ク ・ ポ ポイント: 日 
登録 済 の BP (ブレ ー ク ・ ポ イン ト ) を 表示 し , 次 の コマ 
ンド を 受け 付け ます . 
C/X : 以下 を キャ ン セ ル し ます . 
ON : BP を SET し ます . 
OF : BP を クリ ア し ます (B が 呼ば れ た 時 点 で すでに ク 
リア する の で 和 無 意 味 ) . 
16 進 キー : BP の 変更 . 
[RETURN | キー で コマ ンド 終了 . 


トレ ー ス 
⑯ シ ング ル ・ ス テッ プ : . 

上 限 領域 に 入る と, BEEP し て 戻り ます . また サブ ル 
チン を call す る と き 登 録 き され て いれ ば , 表示 し て トレ ー 
ス を 一 時 中 断 し ます . 
トレ ー ス : 本 <2HEX> 

2 桁 を 入力 し , その 回 数 だ け ト レー ス し ます . な お , 
00 の と き は 256 を 意味 し , [STOP | キー で アボ ポー ド し ます . 
@ 領 域 設 定 : X <4HEX> 
サブ ルー チン 登録 : S(D, S, C) 

SD : 登録 中 の も の を ダン プ し ます . 
SS : 登録 
SC: 抹消 











JMP, 広 な ど は LEAPC。 文 





の よう に , LEAPC と 変え て 考 
えれ ば J MP 命令 時 の イン デック 
ス の 怪 と か , イン ダイ レク ト の 
亡霊 。 1NDIRECT プ ラス オー ト ・ 
イン クリ メン ト の 錯乱 か ら の 脱 
出 が 可能 と 思わ れ ま す . 

SWI ベク トル ($SFFFA 一 B) 


フラ グ は を $AFA7 と 変更 すれ ば , いと も 
<⑱1 昌 … プ リン タク …0 二 な し | 簡単 に プレ ー ク 処理 が 楽し め ま 
<〈1C… エ コー…… 0 三 あ り 


す ( 一 度 や っ て みて くだ さい な ノ 
な ぜ F - BASIC の 文法 書 に 書か な 
い の か 不思議 な くら いで す ). 











実行 例 





> 
>R 


DDR CODE EFHINZVCE A B DP X 


60Q00 1605270000 OO0010100 0O05a OO CaAAG CB3O_ 0QO さ 40 6000 70A5 


\ 


この プロ グラ ム を 活用 され , 皆さん の マシ ン 語 プロ グラ 


ム の 開発 へ の 手助け と な れ ば 幸い で す . 





U PC に ) STQF_UTOF _ E 全 


C9C6 545S 


(ER) 
65S 全 17FF 
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SUPER_THACER 





DDR CODE 


652a 17FFSDA68BD 
64 ヨ 人 さ QBDO さ EQO16 
648E 16FECSE68QO 
6 さ 56 680 昌 104S フ 
6 さ 358 B104S7048D 
6 さ 5 人 2704BDBESQ 
6 さ 5C じ BDEE2OF6 さ 9 
6 さ 1 ビ 16FD198D12 
603B 347DBD685F 
60 さ 介 ED6B5FEBE6 
685F さ 40 ヨ 8C6001F 
6 ヨ 861 C60Q01F9EC6 
6 コロ 6 さ 1F9BC614BD 
6865 じ 614BD6 ヨ 91 
6867 BEBD6B91S さ 508 
6891 さ 416BE6 ヨ 6 
689 さ BE68BA5A706 
6896 7Q06E784CC 
689B_ E78B4CCOQO1 
689 人 CCOQOO1EDO4 


介 DDR CUDE 


6 ヨ 9D EDO4RD9FFH 
689F AD9FFBFAS5 


SUBRUTIN F2D8 


6 ヨ Ba さ さ 596140068 
6B6Q さ 5OB39 さ 408 
66C 3 さ 9 さ 408C6Q0Q 
60 さ D BE6B6D さ 5FD 
6040 3 さ 5FD さ 47DBD 
6 さ 5E 2OF639862D 
6 さ 56 AaA680B10427 
635B 10427048D 
6S さ Sa 2704BDBE2QO 
6 さ 5C BDEE2OF6 さ 9 


EFHINZVC 
10010100 
100101Q0Q0 
1QQ01Q00Q 
1Q0Q1QQQQ 
1001QQ0Q0Q 
1Q0Q01QQQQ 
100100Q00 
1001Q0QQ0Q0 
109100QQ 
1001Q0000 
1001QQ000 
100100Q0Q 
1001010Q 
1001Q1Q00 
10010Q000 
10010Q000 
10010000 
10010000 
1001Q0Q0Q 
1001QQ000 


EFHINZVC 
1001Q0Q000 
10010000 


1001Q0Q000 
10010000 
10010000 
10010000 
10010QQ00 
10010000 
1001Q0000 
10010000 
1001Q0Q000 
10010000 


全 H 

QQ05a 
QOS5a 
Q05a 
QOS5a 
445 谷 
445 ロ 人 
445 谷 
445 谷 
445 全 
445 谷 
445 人 
445 谷 
4400 
4400 
4414 
4414 
4414 
4414 
4414 
4414 


Aa B 
Qoo1 
OQO1 


QQQO1 
4414 
4414 
4414 
4414 
445 谷 
445 谷 
495Aa 
495a 
495 谷 


QO 


AG U PC に ) STP UTF ER (ERA) 
CB さ O_ 0 さ 40 652Q 7085 CC6 5452 64BQ 3OBD 
CB さ O 03 さ 40 64 ヨ QA 708 さ 652D 5452 6B3E 4449 
CB さ O_ 0340 64BE 708 さ 3 652D 45S 6 さ 56 68QO 
CB さ O_Q さ 40 6 さ 56 708 さ 652D 545S 6B3E 4449 
CB さ O 0Q さ 40 6358 708 さ 652D 45 
CB さ QO_Q さ 40 63 さ 5 708 さ 652D 5452 63 さ SC BDEE 
CB さ SO 0 さ 40 6 さ 5C 708 さ 652D 5452 6 さ 1C 16FD 
CB さ O_Q さ 4Q 6 さ 1C 7QQ1 635E 5452 _ 603 さ 47D 
CB さ O_Q さ 40 603 昌 70R1 63S5E 545 
CB さ O_Q さ 4Q 6Q03 さ A 7098 905Q 5452 6 ヨ 5F 40QH 
CB さ O_ 0340 6B5F 7096 603D 4 
CB3O_Q さ 40 6B61 7095  QQO6Q 5545 
CB さ O_0340 6 昌 6 さ 7095 OOQO60 54S2 
CB3Q_Q さ 340 665 7095  QQ6Q 5452 
CB3O_ 0O さ 40 6 昌 67 7095  QO6Q0 5452 6891 さ 416 
CB さ SQ 0340 6B91 7Q9 さ 68B6 54S2 
CB さ O 0 さ 40 6B9 さ 3 70BF 4414 5452 
CB さ O_0340 6B96 708BF 4414 5452 6BaE 44QQ 
CB さ Q_0 さ 40 68B98B 7OBF 4414 5452 68A5 1400 
CB3 さ O_ 03 さ 4Q 6B ヨ 9 7QBF 4414 5452 


bd U FC 5 STOP UTOF EAA (EAN) 
CB さ O_ 0Q さ 40 6B9D 7Q0 ヨ F 4414 5452 6BQA9 QQQ1 
CB さ O_0O340 6B9F 7OBF 4414 545S2 F2DB さ 47F 


CB さ O_0340 6BA さ 7QOBF 4414 5452 6B6A 3SQ8 
CB さ O 0O さ 40 6B6A 7095 0060 5452 

CB さ Q 0340 6 ヨ 6C 7Q096 603D 5452 6Q3D BE68 
CB さ O_O さ 40 603D 7098 905Q 545S2 686D さ 408 
CBSO_Q さ 40 6040 709H 905Q 5452 6 さ SE SQOF6 
CB さ O_QO さ 40 635E 70 さ 652D 5452 6 さ 56 a68QO 
CBSO_Q さ 40 6356 70 さ 652D 545S2 6B3F 495 さ 
CB さ O_ 03 さ 40 6 さ 5B 7OA さ 652D 5452 

CB さ O 0Q さ 40 6 さ 5Q 70 さ 652D 5452 635C BDEE 
CB さ QO_0340 6 さ 5C 7OA さ 652D 5452 6 さ 1C 16FD 








Add 

510O 
11Q 
120 
51 さ O 
5140 
515O 
5160 
5170 
518O 
519O 


dd 
52Q0 
5210 


| 523O 


525O 
526O 
5270 
52B8O 


52aO 
52BQO 
52CO 
52DO 
2EO 
2FO 


add 
5300 
5 さ 1O 





5220 O 


5240 3 


529O さ 


+Q 
20 
DF 
10 
18 
FA 
QQO 
BO 
EC 
A2 


64 Q 


+ フ ア 


0 0O1 


DD 
QB 





















5 さ 


r ー+ 
5 さ 20 29 OD QQ QO QO QQ 04 QD OQ 20 20 43 43 SD 20 20 s9E 
5S さ O Q4 20 20 44 さ D 20 Q4 20 20 44 50 3D 20 Q4 QD QA siSS 
5 さ 40 20 20 5 さ D 20 04 20 20 59 3D 20 04 20 20 55 SD CS 
535SO_ 20 04 20 20 5Q 4 さ 3D 20 Q4 QOD QaQ 20 20 3 54 4F :a5 
5360 5O 20 20 3D 20 Q4 20 20 55 54 4F 50 20 20 さ D 20 16 
5370 O4 QD Qa 20 20 4 さ 4F 44 45 さ O さ 1 さ D 20 04 20 20 7 
53BO 4 さ 4F 44 45 さ 2 ささ 3 さ D 20 04 20 20 43 4F 44 45 34 =70 
539O 3D 20 Q4 QOD QOa 4D 41 4 さ 52 4F 20 Q4 OD Qa 3 55 iCD 
53QO 42 52 55 54 49 4E 20 Q4 00 00 00 00 00 00 00 QQO iFB 
53BO 20 0Q3 1C FE 39 1 Q1 39 00 Q0 00 QO 0Q 00 DS 36 iDS 
53 さ CO _D さ 52 F9 35 F2 DB OO QO 0 Q0 1 Q1 1 01 Q1 01 :a さ 
53 さ DO_Q1 QQ_Q2 Q さ QQO Q1 Q2 0Q さ QO QO 02 QQ 00_ 02 02 00 gi12 
5SEO O2 0O2 02 02 02 QQ 02 02 2 02 01 0O1 O1 01 00 00 96 
53FO ヨミ 03 QO Q1 O2 OO 02 O1 日 2 2 12 12 12 12 12 12 >sFC 


dd 

54Q0Q 
5410 02 
5420 Q 
543O O 
544Q 
545O 
460 Q 
547Q 
54Q 
5490 2 
54AO 
54EO 
54CO 
54DO 
54EO 
| 54FO 





dd  + 〇 1 +2 + さ +4 + 呈 +6 + プ + 昌 +9 + 各 +B + ヒ +D +E +F Sum 
5500 DD 2C EC Q2 DD 2a EC 4 DD 2 1Q0 2 Q1 38 1 BD >F4 
5510 26 OD 03 14 6 Q2 97 1F 6 20 97 2 16 QO1 7 日 1 siDC 
5520 CD 10 27 Q2 BD 4 4F 1 QD 26 Q2 03 14 6 さ 0 94 iaD 
553O 2 26 29 C6 02 6 QF 94 2 B1 Q3 27 12 1 07 10 sE5 
5540 27 02 9F 8B1 QOC 27 OB B1 OE 10 22 Q2 95 26 Q02 C6 siCA 











S0 








SUPERH TRACER 

















呈 7DO BB6 9C OC 24 QOD aA6 84 97 96 6 ミ SF 7 4 10 DE QA :9E Add +O +1 +2 + さ +4 + +6 + プ 7 + 日 +9 + +B +C +D +E +F Sum 
57EO さ 5 FF B6 07 17 FA 37 16 F9 65 9E OE 20 E1 9E OE :D6 SBOO 17 F6 F7 5C 04 26 F9 39 9E 02 B6 さ F 30 02 9C 04 : さ さ 
57FO DE 00O ささ CB 2E EC C1 27 F1 AC 5E 26 FB さ QO BD FB :aC SB10 27 OB QA1 94 26F6 E6 BB 10 E7 94 20 EF 39 9E 02 :64 
2 生 ニ ーーー ニーーー ーー に ーー ニー エミーー ニ ーー こそ 5 に モコ お 5B2O EE 2A B6 さ F さ O 02 9C O4 27 12 11 A さ 3 4 27 F5 a1 =:DD 
Gum: D1 B2 4E 1 7E 15 61 OB B1 60 22 1 ミ F2 Q9 19 BD :OB SB さ O 94 27 F1 E6 94 E7 BB 10 a7 94 20 EB 39 BD BA 17 :7F 


SB40 F6 9C BD C4 9E Q2 30 02 9C 04 10 27 F6 0Q1 17 F6 zi90 
SBSO FA 1 OD 10 27 F5 FB 1 1 27 2 B1 4F 27 14 17 :Bo6 











AddI +O +1 +2 キ 3 +4 5 もら + キ 7 +B キ 9 + B+C +D +E +F BU 5B60 F7 さ O 25 29 17 F6 FZ 17 F7 02 25 D1 ED 84 17 F6 :FD 
5BQOO 9B 17 F9 E4 DC OE 17 F9 FD 17 F9 D2 20 BB 17 Fa 154 5B7O BD 20 DS 17 F6 D5 1 4E 26 04 BD aA2 20 02 BD BB :C1 
5B10 49 10 25 FF CD 4 97 1D 20 87 17 F9 C1 <O BD Fa :97 BBO 16 F5 CC 6F BO 6F BO 9C O4 26 FB 20 BO 34 10 3Q0 :B7 
5B20 B2 17 F9 C4 16 FC 91 17 F9 BE 1E 1 1 フ 7 F9 CD 17 :1 ピ 5B9O BC 07 17 F6 53 35 10 20 aD 20 20 20 20 O4 5O 1D :F6 
5B さ O FA 19 B1 OD 27 OE B1 20 27 07 17 Fa 1F 25 09 a7 :aA SBQO CC 4E 43 54 52 20 50 1E C2 59 54 45 20 20 SO 1F :F4 
5B40 1F 1E さ 1 39 1 O1 20 F9 6 07 17 F9 D1 B6 09 17 :EF SBBO C3 4B 4R 20 20 20 50 20 CS 4F 44 20 20 20 5O 28 :S4 
SB5O F9 CC 20 DE 17 F9 91 1E 1 さ 17 F9 9E 17 F9 EC 1 :BD SBCO DS 55 42 52 53 20 50 2E C2 SO 20 20 20 20 50 6 :15 
5B60 QOD 27 11 B1 20.27 QA 17 F9 F2 17F9 FF 25 09 ED :4 さ SBDO C2 50 45 20 20 20 50 96 C2 55 46 20 20 20 5O A6 iSO 
5B7O 1E 1E さ 1 さ 9 1 0O1 20 F9 6 07 17 F9 a1 日 6 09 17 :BE SBEO DS 57 49 S6 45 4 さ FF FA C9 4E 43 48 41 30 DS 36 :66 
5BBO F9 9C 20 DB 17 F9 57 3O BD Fa 9C 1F 2 BD 98 25 :D さ SBFO CF SS 4 さ 、4B 41 さ O DS 52 CF SS 54 50 54 52 F9 3 iE1 
5B5O2F :BD 1 ろ 52BIEBD 詞 9OZ2BH278 晶 DNS の き 25.(BDB5 ま 25 2 時 | | ーーーー 計 = こっ だ ご ニーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーー ニー ピ ーー ニーーーーーー 
BBAO 1F BD B1 25 1B BD AD 25 17 BD A9 25 13 EE 28 BD :24 Sumz 9C A2 25 2 FE SE 45 C7 9F F6 E2 B2 1 さ D7 24 24 s98 
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F-BASIC で は , 1/O デ バイ ス の アク セス を 日 | 
OS (Basic Input Output System) と 呼ば れ 
る モジ ュー ル が 一 括 し て 行なっ て いま す . I/O 
の アク セス ・ ル ー テ チン を 1 簡 所 に 集め て モジ ュ 
ー ル 化す る 手法 は , CP/M や FLEX な ど , OS 
で は 一 般 的 な 手法 で す が , F-BASIC で も この 
手法 を 採り 入れ て いま す . 


に 





テー テー テー テー 





BIOS モジ ュー ル の 採用 で , 次 の よう な 効果 
が 期待 で きま す . 
(1)F-BASIC の た め に 開発 され た I/O ルー チン 
(BIOS) を , ほとん ど そ っ くり その まま , 他 
の シス テム (CP/M や FLEX。 UCSD PASCA 
L, アプ リケーション ・ プ ログ ラム な ど ) で も 使 
そる. 
(2/O0 デバ イス の アク セス ・ ル ー チ ン の 開発 , 
メン テ ナ ン ス が 一 本 化 で きる の で , 開発 の 効率 
が よく , ソフ トウ ェ ア の 信頼 性 も 高く な る . 
また , BIOS を 採用 し た 背景 に は , FM-8 で 
は , 全 ア ドレ ス 空 間 64KB が RAM に な る モー ド 
が あり , この 場合 、ROM が な い の で , ROM 
モニ タ を 常駐 さき せる こと が で き な い と いう こと 
が あり ます . 

以後 の 文章 で は , 番地 に “H" を つけ て いな 
く て も 16 進 表示 で ある も の と し ます . 


=】【@ たのん: モヨ 


さて , BIOS が 現在 サポ ー ト し て いる 1/0 は , 
次 の 9 個 で す . 

伯 サ プシ ステ ム (キー ボード と CRT デ ィ ス プ 
レイ ,。 タイ マ ) 

@ ミ ニ フ ロ ッ ピ ー デ ィ ス ク (最大 4 台 ) 

プリ ンタ (ビッ ト ・ イ メー ジ ) 

磁気 バブ プル ・ カ セッ ト (2 ユニット) 

ベル (連続 音 ) 

オー ディ オ ・ カ セッ ト (富士 通 独自 方 式 ) 

の アナ ログ ・ ポ ボ ポート (4 チャンネル ) 

⑩ 音 声 合成 

⑨ 沿 字 ROM (JI S 第 一 水準 ) 

BIOS と ユー ザー の 情報 交換 は 、RCB (Requ 
est Control Block) と 呼ば れる 8 バイ ト の イ 
ンタ ー フ ェ イ ス 領 域 で 行なわ れ ま す . BIOS の 
エン トリ ・ ポ イン ト は 一 つ だ け で 、 BIOS の 中 
の どの 1I/O ルー チン を 使用 する か は , RCB の 
先頭 バイ ト に 設定 する リク エス ト 番 号 に より 指 
定 し ます . RCB の 8 バイ ト の うち 先頭 の 2 バ 
イト (リク エス ト 番 号 と ステ ー タ ス ) は 常に 共 
通 で す が ,。 残り の 6 バイ ト は リク エス ト 番 号 に 
より , 各 バ イト の も つ 意 味 が 決定 され ます . 

現在 。 BIOS の I/O ルー チン は , 28 個 用 意 さ 
れ て お り , リク エス ト 番 号 は 0 番 か ら 27 番 まで 
で す . 以下 に リク エス ト 番 号 と 処理 の 内 容 を 示 
し ます (10 進 数 で 示す ). 





0| アナ ログ ・ ポ ー ト ・ デ ー タ の リー ド 
1| オー ディ オ ・ カ モッ ト の モー タ ON/OF エ F 
2| オー ディ オ ・ カ セット 1 バイ ト ・ ラ イト 
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0 








FM-8 メ モリ ・ マ ッ プ 


RAM 
領 域 


(プロ グラ ム 用 ) 





ワー ク 
RAM 
(896B) 


共有 RAM 


/O 

領 域 

(128B) 
F 


D7F 
( ザ サブ プ ッ シ ステ ム ) 











バ ペデ プル ・ メ モリ ・ イ ニシ ャ ライ ズ 
CRT 画 面 の ハー ド ・ コ ピー (HARDC2) 
バブル ・ カ モッ ト n ペ ー ジ ・ ラ イト 

2 ジレ 0 や on トペ ー ジ ンー ド 
シー ク ・ ト ラッ ク ・ ゼ ロ 

ジロ ッッ ピー ディ スズ クマ セグ クタ ・ ラ イト 


ロッ ビー ディ スク で キモ の タリ りー ド 
音声 合成 スタ ー ト 

ベル ON 

ベル OF エ F 

プリ ンタ 出力 

CRT 画 面 の ハー ド ・ コ ピー(HARDC1) 
サ プ シ ステ ム ・ ア ウト プッ ト 

サブ プシ ステ ム ・ イ ンプ ッ ト 

サブ プシ ステ ム 1 行 入力 

サブ プシ ステ ム 継 続行 入力 

サブ システム 1 行 出力 

サ プ シ ステ ム 1 文 字 キ ー 入 力 

漢字 ROM リー ド 

プリ ンタ の ステ ー タ ス ・ 
BIOS イ ニシ ャ ライ ズ 


チエ ウ グ 








25 
26 
27 


音声 合成 パラ メー タ の 転送 
音声 合成 デー タ の 転送 
音声 合成 イニ シャ ライ ズ 


現在 わか っ て いる ステ ー タ ス の 値 の 意味 は 次 
の と お り で す (10 進 数 で 示す ). 
0 : ノー エラ ー 
(BIOS シス テム ・ エ ラー 
1 : RCB エ ラー 
2 : デバイス ・ ア デン アベ イラ プル 
(5 も) フロ ッ ピ ー デ ィ ス ク ・ エ ラー 
10: ドラ イブ プ ・ ノ ッ ト ・ レ ディ 
SA ゲネポス ズ スクライド 。 バ ブロ デ ク ド 
12 : ハー ド ・ エ ラー 
シー ク ・ エ ラー 
ドー タデ ラー 
レコ ー ド ・ ノ ッ ト ・ フ ァ ウ ンド ・ エ ラー 
13 : CRC エ ラー 
14: デリ ー テ ッ ド ・ デ ー タ ・ マ ー ク 検出 
15 : タイ ム ・ オ ー バ ー エ ラー 
(c^ バ ブル ・ カ セッ ト ・ エ ラー 
30 : 未定 義 @ マ マン ド 











s エ ラー 


31 : マー カ 未 検出 
32 : 不良 ルー プ が 多い 
29 プッ バー ク で ドジ アテ ケー ビデ ラー 
34 : CRC エ ラー 
35* が ペー ジェ ア テレ ッ シ ン エラ テー 
37・ デ バイ ス ・ ノ ッ ト ・ レ ディ (バブ ル ・ み カ 
セッ ト 未 装着 ) 
(9 プリ ンタ ・ エ ラー 
50 ふ プリ ンタ ょ ペー が 二 エ ンプ デ ティ 
51: プ リ シ タ ・ ブ フット ・ レ ディ 


BIOS は メイ ン ・ シ ステ ム の FC80』ーFDFFg 
を 主 に アク セス し て , 1/O デバ イス を コン トロ 
ー ル する モジ ュー ル で ある わけ で す . 


BIOS の 使用 法 


さて , 実際 に BIOS を 使っ て みよ うと する と , 
決め られ た 手続 き を し た 上 で , BIOS を コー ル 
し な けれ ば な り ま せん . そこ で 。 今度 は BIOS 
の 使い 方 を 説明 し ます . 

BIOS を コー ル す る に あたっ て , 最低 限 必要 
な こと は 前 に も 述べ た RCB (Request Control 
Block) と 呼ば れる 8 バイ ト の イン ター フェ イ 
ス 領 域 の セッ ト お よび CPU の ミレ ジス タ へ RCB 
の 先頭 アド レス を セッ ト す る こと の 2 点 で す . 

一 し まで の 説明 で BIOS 自体 の 使い 方 は あ 
る 程度 お わか り 頂 けた こと と 思い ます . し か し , 
R CB の 各 バ イト の 意味 が わか ら な く て は 実際 
に BIOS を 使う わけ に は いか な い の で , 現時 点 
で わか っ た RCB の 構成 な ど を 招 介 し た いと 思 
いま す . 

(0)ANALGP アナ ログ ・ ポ ー ト 入力 ルー チン … 

…F 33C 

4 ch ある アナ ログ ・ ポ ボー ト の うち , 指定 し た 
チャ ン ネ ル を 指定 し た 電圧 レン ジ で 読み 取る (8 
ビット) ルー チン で す . 












RCB : 00m RCBSTA 
RCBCNL RCBRNG 
| RCBAPD | 一 で | 
国 RCBSTA : BTOS の ステ ー タ ス の 格納 され る 
場所 で す . 


この ルー チン は 常に 正常 終了 する の で , 00』 
が セッ ト さ れ ま す . 

田 RCBCNL : チャ ン ネ ル 番 号 で , 0 か ら 3 の 値 
を と り ま す . 入力 し た い チ ャ ン ネ ル を これ に 
よっ て 選択 し て くだ さい . 

田 RCBRNG : 電圧 の 範囲 を 指定 する た め の パ ラ 
ニーク 

*H": 0V 一 2.5V の 電圧 範囲 を 指定 し ます . 
*L": 0V 一 0.625V の 電圧 範囲 を 指定 し ます . 
この ルー チン で は “H" の ASCII CODE (48 
Hg) が ここ に モッ ト さ れ て いる か どう か で 電 
圧 レ ンジ を 切り 換え て いま す . 

田 RCBAPD : 入力 され た アナ ログ 値 に 対す る デ 
ジタル 値 が セッ ト さ れ ま す . 

関係 する 1/O0 アド レス …FD0C 

(1) オ ー デ ィ オ ・ カ セッ ト の モー タ ON/OFF ル 
ー チ ン …F 3FE 
オー ディ オ ・ カ セッ ト の モー タ を 指定 し た 状 
態 (ON/OFF) に する ルー チン で す . 


RcB: RCBSTA 


RCBMOT 












圏 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 
この ルー チン は 常に 正常 終了 する の で , 00』 
が セッ ト さ れ ま す . 
圏 RCBMOT : モー タ の 状態 を 指定 する た め の パ 
ラメ ー タ で す . Y 
FFg: モー タ ON を 指定 し ます . 
00 ョ ーFEn: モー タ OFEF を 指定 し ます . 
関係 する Ir/O アド レス …FD00 
(2) オ ー デ ィ オ ・ カ セッ ト 1 バイ ト ・ ラ イト ・ ル 
ー チ ン …F 40B 
オー ディ オ ・ カ セッ ト へ 1 バイ ト 書 き 込 み を 





BIOS フ ロー 


1O 


チャ ー ト 









メー (RCB 先 頭 ア ドレ ス ) 

RCB セ ッ ト 

2 の 
各種 パラ メー タ 

必要 な ら バ ッ フ ァ ・ セ ッ ト 


| _cALLglos 
ステ ー タ ス に よる 処理 










RCB 


X リク エス ト 番 号 


各種 パラ メー タ 


つの ちち oo 一 ら 








行なう ルー チン で す . 

FM-8 で は , オー ディ オ ・ カ セット の デー タ の 
記録 に 1.600 ボー の サッ ポロ シテ ィ ・ ス タン ダ 
ー ド 方 式 を 採用 し て いま す . 

RCB: 02g 


RCBDAT 


較 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 和 常に 正常 終了 する 
の で , 00g』 が セッ ト さ れ ま す . 

田 RCBDAT : オー ディ オ ・ カ セッ ト へ 書き 込む 
1 バイ ト の デー タ です . 

関係 する 1/O0 アド レス …FD00 

(3) オ ー デ ィ オ ・ カ セッ ト 1 バイ ト ・ リ ー ド ・ ル 
ー チ ン …F 484 
オー ディ オ ・ カ セッ ト か ら デ ー タ を 1 バイト 
読み 出す ルー チン で す . 


RCB: | 03m | RcBSTA 


[Resp4m トーーーー | 
生 ューー | 
ーーー | 


田 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 
圏 RCBDAT : オー ディ オ ・ カ セッ ト か ら 読 み 出 
し た 1 バイ ト の デー タ が 格納 きれ る 場所 で す . 
関係 する 1/O0 ア ドレ ス …FD02 
(4)NTBBL バブ プル ・ カ セッ ト イニ シャ ライ 
ズ ・ ル ー テ チン …F 511 
磯 気 バ ブル ・ カ セ モット を イニ シャ ライ ズ す る 
た め の ル ー チ ン で す が , ハー ドウ ェ ア 的 に バブ 
ル に 対し て リモ セット を か ける よう な 作業 を 行 な 
っ て いま す . 


RCB: | 











RCBSTA 


















04n RCBSTA 


























DPー FD 


1/0 ル ー チ ン へ の ジャ ンプ ・ テ ー ブ プル 参照 
Yー (ジャ ンプ ・ テ ー ブ ル の アド レス ) 


メレ ジス タ 退 避 
| CALLI/O ル ー テ ン | 
メレ ジス タ 復 帰 


CC レジ スタ 復帰 
ステ ー タ ス の セッ ト 









キャ リー フラ グ ・ ク リア キャ リー フラ グ ・ セ ッ ト 


エン トリ ・ ポ イン ト $F2D8 





1/0 領 域 の 上 位 バ イト の セッ ト 





1/O ル ー チ ン か ら BIOS へ 復帰 
する と き ア キュ ムレ ー タ A に 
no ステ ー タ ス が セッ ト さ れ て いる . 


た だ し ,CC レ ジス タ を 除く . 








較 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 
関係 する 1/O アド レス …FD11, FD12, FD13 
(5)SCREEN CRT ス クリ ー ン ・ イ メー ジ ・ コ 
ピー ルー チン シン …TF 997 
CRT ス クリ ー ン の 画面 イメ ー ジ を プリ ンタ 
に コピ ー す る ルー チン で す . この ルー チン の 機 


能 は F-BASIC の コマ ンド の HARDC2 に 相当 し 
ます . CRT 画 面 上 の ドッ ト の 色 と プ リン タ 上 
の ドッ ト の 色 は , 次 の よう に 対応 し ます . 

プリ ジ ク タク 上 


CRT 画 面 上 
黒 以外 





RCB: 








画 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 
画 RCBBDA : 作業 用 バッ ファ 209 バ イト の 先頭 ア 
ドレ ス を 指定 し ます . 
関係 する 1T/O ア ドレ ス …FD00, FD01, FD02, 
FD05 
(6)WRTBBL 
ン …F553 
磁気 バブ ル ・ カ セッ ト へ デー タ を ヵ ペ ー ジ 分 
(1 ペー ジ は 32 バ イト ) 書き 込む ルー チン で す . 
RCB: 06m | RCBSTA 
RCBDBA | 
RCBPA | 
RCBPC | 


画 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す : 
遼 RCBDBA : バブ ル ・ カ セッ ト に 書き こみ を 行 
うべ き デ ー タ の バッ ファ ・ ア ドレ ス で す . 
硬 RCBPA : バブル レル ・ カ セ モット 上 の ペー ジ ・ ア ド 
レス で す . 値 の 範囲 は , 次 の よう に な り ま す . 
0000H 一 03FFg (ユニ ッ ト 0) 


バブ プル n ペ ー ジ ・ ラ イト ・ ル ー チ 
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10O 


8000g 一 83FFa (ユニ ッ ト 1 ) 
圏 RCBPC : 書き 込み た い ペ ー ジ 数 を 指定 する 
フィ ー ル ド で す . 
0001a 一 0400』 の 範囲 で 指定 し ます . 
関係 する 1I/O ア ドレ ス …FD10, FD11, FD12, 
FD13, FD14, FD15, FD16, FD17 
(77REDBBL バブ プル n ペ ー ジ ・ リ ー ド ・ ル ー チ 
ン …F553 
磁気 バブ ル ・ カ セッ ト か ら デ ー タ を ヵ ペ ー ジ 
分 (1 ペー ジ は 32 バ イト ) 読み 出す ルー チン で 
9 す 3 





RCB: 07s | RcBsTA 
RCBDBA 
RCBPA 

RCBPC 

















圏 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

田 RCBDBA : バブル か ら 読 み 出さ れ た デー タ を 
格納 する た め の バ パッ ファ の アド レス . 

田 RCBPA : バブ プル ・ カ セッ ト 上 の 読み 出す べき 
ペー ジ ・ ア ドレ ス . 取り 得る 値 の 範囲 は , 次 
の よう に な り ま す . 

0000 ぉ 一 03FFg (ユニ ッ ト 0) 
8000g ョ 一 83FFg (ユニ ッ ト 1) \ 
圏 RCBPC : 読み 出し た い ペ ー ジ 数 を 指定 し ます . 

0001 ョ 一 0400』 の 範囲 で 指定 し ます . 
関係 する 1/O アド レス …FD10, FD11, FD12, 
FD13, FD14, FD15, FD16, FD17 

(8)RESTORE リス ト ア ・ ル ー チ ン …FE02 
指定 され た ディ スク ・ ド ライ プ ・ ユ ニッ ト に 

対し て リス ト ア (シー ク ・ ト ラッ ク 0) を させ 

る ルー チン で す .。 これ に よっ て 。 ヘッ ド は トラ 

ッ ク 0 の 位置 に セッ ト さ れ ま す . 


08m RCBSTA | 





RCB: 








RCBUNT 





田 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

回 RCBUNT : フロ ッ ピ ー デ ィ ス ク ・ ド ライ ブ ・ 
ユニ ッ ト の 番号 を 指定 し ます . ドラ イブ ・ ユ 
ニッ ト の 番号 は 0, 1, 2, 3 の いずれ か を 
選択 し ます . 
関係 する 1/O アド レス …FD18, FD1D, FD1F 

(9)DWRITE フロ ッ ピ ー1 セ クタ ・ ラ イト ・ ル 
ー チ ン …FE05 
フロ ッ ピ ー デ ィ ス ク に 1 セクタ (= 256 バイ 

ト ) 書き 込み を 行なう ルー チン で す . F-BASIC 

の レベ ル で は セク タ の 指定 は 1 一 32 で す が , BI 

OS の レベ ル で は 1 一 16 で セ モク タ を 指定 する と 同 

時 に 0, 1 で サイ ド の 指定 も 行なっ て 物理 的 位 

置 を 決定 し て いま す . 


| mm | mcmsra 
RCBBDA N 


RCBTRK RCBSCT 


RCBSID RCBUNT 


圏 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 
一 RCBBDA : 書き 込み デー タ ・ バ ッ フ ァ テ 256 バ 
イト の 先頭 アド レス を 設定 し ます . 
圏 RCBTRK : フロ ッ ピ ー デ ィ ス ク の トラ ッ ク 番 
号 (0 一 39) を 指定 し ます . 
圏 RCBSCT : フロ ッ ピ ー デ ィ ス ク の セク タ 番 号 
(1 一 16) を 指定 し ます . 
一 RCBSID : フロ ッ ピ ー デ ィ ス ク の サイ ド 番 号 
(0 また は 1) を 指定 し ます . 
田 RCBUNT : フロ ッッ ピー ディスク の ドラ イブ 番 
号 (0 一 3) を 指定 し ます . 
関係 する I/O アデ ドレ ス …FD18, FD19, FD1A, 
FD1B, FD1C, FD1D, FD1E, FD1F 
(10DREAD フロ ッ ピ ー1 セ クタ ・ リ ー ド ・ ル ー 
チン …FE08 
フロ ッ ピ ー デ ィ ス ク か ら 1 モ クタ (=256 バ 
イト ) を 読み 出す ルー チン で す . 







RCB: 









5 














RCB : 0An 。 | RcBSsTA | 
RCBDBA 
RCBTRK RCBSCT 
RCBSID | RCBUNT | 





較 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

画 RCBDBA : 読み 出さ れ た デー タ を 格納 する た 
め の バ ッ フ ァ 256 バイ ト の 先頭 アド レス を 指 
定 し ます . 

較 RCBTRK : フロ ッ ピ ー デ ィ ス ク の トラ ッ ク 番 
号 (0 一 39) を 指定 し ます . 

画 RCBSCT : フロ ッ ピ ー デ ィ ス ク の セク タ 番 号 

(1 一 16) を 指定 し ます . 
画 RCBSID : フロ ッ ピ ー デ ィ ス ク の サイ ド 番 号 
(0 また は 1) を 指定 し ます . 

画 RCBUNT : フロ ッ ピ ー デ ィ ス ク の ドラ イブ 番 
号 (0 一 3) を 指定 し ます . 
関係 する 1/O ア ドレ ス …FD18, FD19, FD1A, 
FD1B, FD1C, FD1D, FDIE, FD1F 

(⑪ 音 声 合成 スタ ー ト ・ ル ー チ ン …FB63 
音声 合成 パラ メー タ , 音声 デー タ が 合成 器 に 

送ら れ た 後 の 音声 合成 を スタ ー ト させ る た め の 

ルー チン で す . 

RCB: 


に 生き | 
に 
4 





| 0Bm | 
は 
IN ここ 
1 


圏 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 常に 正常 終了 する 
の で , 00g が セッ ト さ れ ま す . 
関係 する 1/O アド レス …FD03, FD08, FD0A 

(BEEPON ベル 音 発 生 ル ー チ ン …F5C1 
ベル 音 ( 連 統 音 ) の 発生 を 行なわ せる ルー チ 

ン で す . 次 の BEEPOF ル ー チ ン を 実行 させ る ま 

で 音 は 鳴り っ ぱな し に な り ま す . 





RCB: 0Cj RCBSTA 


画 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 常に 正常 終了 する 
の で , 00g』 が セッ ト さ れ ま す . 
関係 する 1/O ア ドレ ス …FD03 
な お , 実験 し た 結果 この アド レス に 偶数 また 
は 00 ョ 一 3Fg を 書き 込む と BEEP0, 40 ョ ー7Fg 
の うち の 奇数 を 書き 込む と BEEP ま た は PRI 
NT CHRS(?⑦), 80g 一 FFa の うち の 奇数 を 書き 
込む と BEEP1 と いう 下 -BASIC の コマ ンド に 
相当 する 機能 が 得 ら れる こと が わか り ま し た . 

BEEPOF ベル 音 停止 ルー チン …F5C4 
BEEPON ル ー チ ン に よっ て 発生 し た ベル 音 を 

停止 きせ る ルー チン で す . 





RCB: 0Di RCBSTA 


田 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 和 常に 正常 終了 する 
の で , 00』 が セッ ト さ れ ま す . 
関係 する 1/O アド レス …FD03 

(9LPOUT プリ ンタ 出力 ルー チン …F5CA 
プリ ンタ に 廊 字 を 出力 する た め の ル ー チ ン で 

す 。 
この ルー チン は 行 と いう 概念 を も っ て いな い 

の で 。 改行 を 行なう た め に は , その た め の コ ー 

ド も 印字 デー タ と 共に バッ ファ 内 に モッ ト し て , 

プリ ンタ に 送っ て や る 必要 が あり ます . 
出力 の 途中 で , 紙 ぎ れ , オフ ライ ン な どの 理 

由 に よっ て プリ ンタ が ノッ ト ・ レ ディ の 状態 に 

な り , その 後 再び レデ ィ 状 態 に 戻っ た よう な 場 

合 に , その 行 を 打ち 直す と いう よう な 処置 は 行 

っ て いま せん . 





RCB: 0Em | RCBSTA 


| 
RCBDBA | 
| 








RCBLN 


田 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

画 RCBDBA : プリ ンタ に 出力 し た い デ ー タ を 格 
納 し た バッ ファ の 先頭 アド レス を ここ に セッ 
ト し て くだ さい . 

画 RCBLN : デー タ ・ バ ッ フ ァ の 長き を ここ に セ 
ッ ト し て くだ さい . 
関係 する 1/O0 ア ドレス …FD00, FD01, FD02 

9HDCOPY CRT ス クリ ー ン ・ ハ ー ド ・ コ ピー 
ルー チン …F7D6 
CRT エ スク リー ン の イメ ー ジ を プリ ンタ に コ 
ピー する ルー チン で す 。 この ルー チン は (5)SC 

REEN ル ー チ ン と は 異な り , スク リー ン 上 の 1 

ドッ ト が プリ ンタ 上 で は 4 ドッ ト で 表現 され ま 

す . この 結果 , 白 灰 黒 の 濃 湊 の つい た プリ ント 

・ イ メー ジ が 得 ら れ ま す . 
スク リー ン 上 は 8 色 の カラ ー が 出力 可能 な の 

で , 各々 の 色 と 濃淡 は 1 対 1 に 対応 し な い の で , 

RCRCDT に よっ て その 対応 を 指定 し ます . この 

ルー チン の 機能 は F-BASIC の コマ ンド の 理 AER 

DC1 に 相当 し ます . 


RCBSTA 
RCBDBA 
RCBCDT 


田 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

國 RCBDBA : 作業 用 バッ ファ 210 バ イト の 先頭 
アド レス を 指定 し ます . 

画 RCBCDT : 上 位 バ イト は , 黒 に 対応 する 色 を 
指定 し ます . 下位 バイ ト は , 灰 に 対応 する 色 
を 指定 し ます . 


76543210 
時 RCBCDT 上 位 バ イト 
灰 RCBCDT 下 他 パ ト 
自 黄 客 緑 紫 赤 青 時 


各色 に 対応 し た ビッ ト が 1 な ら ば , その 色 が 
指定 の 濃 肖 レベ ル で プリ ント され る よう に な っ 
て いま す . 上 位 バ イト , 下位 バイ ト で, 両方 同 
し ビッ ト が 1 に な っ て いる 場合 に は , 黒 で プリ 
ント され ます . 

濃 湾 レベ ル は 黒 灰 白 の 3 通り に な り ま す が , 
これ ら は プリ ンタ の ドッ ト 表 現 で は 次 の よう に 
な り ま す . 
















RCB: 










関係 する 1/O アド レス …FD00, FD01, FD02, 
FD05 
0 サ プ シ ステ ム ・ ア ウト プッ ト ・ ル ー チ ン … 
F611 
サ プ ブシ ステ ム に 対し て コマ ンド を 出す と き に 
使用 する ルー チン で す . この ルー チン は , レ 
ー ズ ・ ス クリ ー ン な どの よう に , コマ ンド の 実 
行 結果 が 返さ れる 必要 の な い 場 合 に 使用 し ます . 





RCB: | 10』 | RCBSTA 





RCBDBA 








画 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

田 RCBDBA : サ プ シ ステ ム へ 送る デー タ ・ バ ッ 
ファ (最大 128 バ イト ) の 先頭 アド レス を 指定 
し ます . 

田 RCBLNT : サブ プ シ ステ ム へ 送る デー タ ・ バ ッ 
ファ の 長 さ を セッ ト し ます . 


関係 する 1I/O アド レス …FD05 
(9 サ プ シ ステ ム ・ イ ンプ ブッ ト ・ ル ー チ ン …F611 
サ プ シ ステ ム に 対し て コマ ンド を 発行 する と 
き に 使用 する ルー チン で す . この ルー チン は , 








キー 入力 の よう に , コマ ンド の 実行 結果 が 返さ 

れ な けれ ば な ら な い 場合 に 使用 し ます . 
RCB・: 11m | RcBsTA | 
RCBDBA | 








RCBLNT 
RCBLNR 


画 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

圏 RCBDBA : サブ プシ ステ ム へ の 送受 デー タ ・ バ 
ッ フ ァ (最大 128 バイ ト ) の 先頭 アド レス を 
指定 し ます . 

田 RCBLNT : サブ プシ ステ ム へ 送る デー タ 
ファ の 長き を セッ ト し ます . この ルー チン が 
終了 する と き , ここ に は RCBLNR の 内 容 が コ 
ピー され て いま す . 

圏 RCBLNR : サ プ シ ステ ム か ら 受 け 取 る デー タ 
・ バ ッ フ ァ の 長 さ を セッ ト し ます . 
関係 する T/O0 アド レス …FD05 

(90 サ プ シ ステ ム 1 行 入 力 ルー チン …F675 
サ プ シ ステ ム か ら 1 行 分 の デー タ を 受け 取る 

だ た め の ル ー チ ン で す . サブ 部 と の 共有 領域 は 128 

バイ ト し か な いた め 1 行 全部 を 受け 取れ な か っ 


・ バ パッ 

















た 場合 、 ユーザ ー は 決 の サブ プ シ ステ ム 継 続行 ん 
ー チ ン を 使っ て , 1 行 全部 の 情報 を 受け 取る こ 
と が で きま す . 
RCB: 12』 RCBSTA 
RCBDBA 
RCBLNT 
RCBKNR 





画 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

一 RCBDBA : サブ プシ ステ ム へ の 送受 デー タ ・ バ 
ッ フ ァ の 先頭 アド レス を 指定 し ます . 

田 RCBLNT : サブ プ シ ステ ム へ 送る デー タ ・ バ ッ 
ファ の 長き を セッ ト し ます . この ルー チン が 
終了 する 時 , ここ に は 1 行 入 力 デ ー タ の バイ 
ト 数 が モッ ト さ れ て いま す . 

田 RCBLNR : サ プ シ ステ ム か ら 受 け 取 る デー タ 
・ バ ッ フ ァ の 長 さ を セッ ト し ます . 
関係 する IT/O ア ドレ ス …FD05 

(9 サ プ シ ステ ム 継 続行 入力 ルー チン …F733 
サ プ シ ステ ム か ら 継 続行 の デー タ を 受け 取る 

た め の ル ー チ ン で す . サブ 部 と の 共有 領域 は 128 

バイ ト し か な いた め , 行 の 長 さ が 長い と き に は , 

この ルー チン を 何 回 か 使用 する こと に な り ま す . 


RCBSTA 
RCBDBA 


RCBLN 


RCB: 13g 








RCBLNR 


較 RCBSTA : BIOS の ステ ー タ ス が 格納 され れ 
る 場所 で す . 

画 RCBDBA : サ プ シ ステ ム か ら 受 け 取 る デー タ 
・ バ パッ フ ァ の 先頭 アド レス を 指定 し ます . 
画 RCBLN : サ プ シ ステ ム か ら の 継続 行 入 力 デ 

ー タ の バイ ト 数 が モッ ト さ れ ま す . 

田 RCBLNR : サブ プシ ステ ム か ら 受 け 取 る デー タ 
・ バ パッ ファ の 長 さ を セッ ト し ます . 
関係 する 1/O ア ドレ ス …FD05 

0OUTPUT CRT 出 力 ルーチン …F74D 
RCBDBA に よっ て 示さ れる バッ ファ 上 の デー 

ター, RCBLN に よっ て 指定 され た バイ ト 数 分 


CRT に 出力 させ る ルー チン で す . この ルー チ 
ン で は 表示 色 を 変え たり (F-BASIC の COLOR 
女 ), 表示 開始 位置 を 決め る (F-BASIC の LO 
CATE 文 ) 機能 まで は 持っ て いま せん . 





14H RCBSTA 


RCBDBA 


| RCBLN | 
| 


圏 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

画 RCBDBA : CRT へ 出力 させ る デー タ ・ バ バッ 
ファ の 先頭 アド レス を 指定 し ます . 

田 RCBLN : デー タ ・ バ ベッ ファ の 長 さ を 指定 し ま 
す . 
関係 する 1/O アド レス …FD05 

KEYIN キー ボー ド 1 文字 入力 ルー チン … 
F7AD 
キー ポー ド か ら 入 力 さ れ た 廊 字 の コー ド を 受 

け 取 る ルー チン で す . 





YS 




















RCBSTA 


本間 GRBBDBA | 
BSRNe4。 


RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . 

田 RCBDBA : キー 入力 デー タ ・ バ ッ フ ァ の 先頭 
アド レス を セッ ト し ます . バッ ファ は 2 バイ 
ト 用 意 す れ ば よい だ け で す . RCB の 8 バイ 
ト の 最後 の 2 バイ ト が 使わ れ て いな い の で , 
これ を バッ ファ と し て 用 いれ ば エリ ア の 節約 
に な り ま す . 

較 RCBLN : キー 入力 デー タ の バイ ト 数 を 表し ま 
す が , 常に 00024 が セッ ト さ れ ま す . 


RCB: 







キー 入力 デー タ * バ ベッラ テア 
KEY | EN | 
KEY : 入力 キー の コー ド 
EN : キー 入力 の 有無 
0 ギュ バカ な し 
1 : キー 入力 あり 


関係 する IT/O ア ドレ ス …FD05 
22 漠 字 ROM リ ー ド ・ ル ー チ ン …F37A 

JIS の 漢字 コー ド に 対応 する 漢字 の ドッ ト ・ 
パタ ー ン 32 バ イト を 読み 出し , 指定 され た 領域 
に 転送 する ルー チン で す . 





RCB: | 16m | RcBsTA 
| RCBDBA 


RCBJKC 


較 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 和 常に 正常 終了 する 
の で , 00gd が セッ ト さ れ ま す . 

画 RCBDBA : 漢字 ROM か ら 読 み 出さ れ た ドッ 
ト ・ パ ター ン 32 バ イト を 格納 する た め の デ ー 
タ ・ バ ッ フ ァ の 先頭 アド レス を 指定 し ます . 

田 RCBJKC : 漢字 の JIS コー ド を セ モット し ます . 
関係 する 1/O ア ドレ ス …FD20, FD21, FD22, 
FD23 

29LPCUK プリ ンタ の レデ ィ チ ェ ッ ク ・ ル ー チ 
ン …F5E7 
プリ ンタ の レデ ィ チ ェ ッ ク を 行う ルー チン で す . 

















RCB: 17g RCBSTA 








iO 


一 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . プリ ンタ が レディ で あれ ば , 正常 
終了 を 示す た め に 00g が セ モット され ます . エラ 
ー が 発生 し た 場合 に は , 次 の よう な エラ ー 番 
号 が セ モット され ます (10 進 数 表示 ). 

50 : ペー パー エン プティ 
51 ブ フッ ト ・ レ ディ 
関係 する 1I/O ア ドレ ス …FD02 

BIOS イニ シャ ライ ズ ・ ル ー チ ン …FB8A 
現在 の と ころ , この ルー チン は べ ベル 音 を 停止 

させ る だ け の も の で す . 

RCBSTA 


RCB: 18g 














圏 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 常に 正常 終了 する 
の で , 00』 が モット され ます . 
関係 する 1/O0 アド レス …FD03 

05 音声 合成 パラ メー タ の 転送 ルー チン …FAF7 
音声 合成 を 行なう に は , まず 音声 合成 パラ メ 

ー タ を 送ら な けれ ば な ら な い が , その 転送 を 行 

な う の が この ルー チン で す . 





19g 


RCBSTA 
| RCBPBA 


RCB: 














PCBLN 


圏 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 常に 正常 終了 する 
の で , 00』 が セッ ト さ れ ま す . 

田 RCBPBA : 音声 合成 パラ メー タ が 格納 され て 
いる バッ ファ の 先頭 アド レス を 指定 し ます . 

田 RCBLN : バッ ファ の 長 さ を セッ ト し ます . 
関係 する 1I/O ア ドレ ス …FD08, FD09, FD0A 

06 音声 合成 デー タ の 転送 ルー チン …FB3A 
音声 合成 を 行なう に は , まず 音声 合成 パラ メ 

ー タ を 送り , つぎ に 音声 デー タ を 合成 器 の バッ 

ファ に 送り , 音声 合成 を スタ ー ト させ る と いう 

手順 が いる が , 音声 デー タ を 合成 器 の バッ ファ 

に 送る の が この ルー チン の 役割 で す . 





RCBSTA 
RCBDBA 


RCB: 





RCBLN 








画 RCBSTA : BTOS の ステ ー タ ス が 格納 され る 
場所 で す . 

田 RCBDBA : 音声 デー タ が 格納 され て いる バッ 
ファ の 先頭 アド レス を 指定 し ます . 

田 RCBLN : バッ ファ の 長 さ を セッ ト し ます . 
関係 する 1I/O ア ドレ ス …FD08, FDOB 

7 音声 合 成 イ ニシ ャ ライ ズ ・ ル ー チ ン …FB79 
音声 合成 器 を イニ シャ ライ ズ す る ルー チン で 

す . 

RCBSTA 


RCB: 1Bg 











画 RCBSTA : BIOS の ステ ー タ ス が 格納 され る 
場所 で す . この ルー チン は 常に 正常 終了 する 
の で , 00g』 が セッ ト さ れ ま す . 
関係 する I/O アデ ドレ ス …FD08,FD0A 


サブ シス テム の 使用 法 


サ プ シ ステ ム に 対し て コマ ンド を 発行 する 
ルー チン は , BIOS の 中 に 存在 し , 今回 は リク 
エス ト 番 号 17 (=11』) の “サブ プシ ステ ム ・ イ 
ンプ ブ プッ ト ・ ル ー チ ン " を 使用 し て 実験 し まし た . 
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咽 風 








この ルー チン で は RCB 中 で 指定 する バッ フ 
ァ ・ ア ドレ ス か ら 始 まる バッ ファ の 内 容 を FC 
80 番 地 か ら 順 に 転送 する こと に よっ て コマ ンド 
を 発行 し サ プシ ステ ム に 仕事 を させ ます . 
その 後 , サブ プシ ステ ム か ら 返 され る デー タ を 
同じ バッ ファ に 転送 し ます . 従っ て この バッ フ 
ァ の 内 容 を 適当 な 組合 せ に すれ ば , サブ プ ・ シ ス 
テム は 働く は ず で す . 
そこ で 各 番 地 の 意味 を 試行 錯誤 で 調べ て みた 
と ころ , FC82 番 地 に 書き 込む 数 値 が コマ ンド 
・ コ ー ド で あり , FC83 番 地 以降 へ 書き 込む 数 
値 は その コマ ンド に よっ て 意味 を 持つ パラ メー 
タ と な り ま す . FC80・FC81 番 地 に 書き 込む 
数 値 の 意味 は わか り ま せん が , お そら く コ マン 
ド や パラ メー タ を 送っ た こと を , サブ シス テ 
ム へ 知ら せる た め の も の で は な いか と 思わ れ ま 
す . 今回 この 2 バイ ト は と も に 00』 と し て 実験 し 
まし だ 。 
(1NIT 
コン ソー ル 機 能 の 初期 化 . 
FC82 : コ マン ド ・ コ ー ド 01g 
FC83 : 背景 色 コ ー ド (0 一 7) 
FC84 : 横文字 数 (80 ま た は 40) 
FC85 : 継 行 数 (25 ま た は 20) 
FC86 : スク ロー ル 開 始 行 
FC87 : スク ロー ル 行 数 
FC88 : PF KEY 表示 スイ ッ チ 
FC89 : 画面 消去 スイ ッ チ 
FC8A : コンソ ー ル ・ カ ラー スイ ッ チ 
F-BASIC の WIDTH, CONSOLE 文 に 相当 
し ます . WIDTH, CONSOLE 文 を 実行 する と 
画面 消去 も 行なわ れ ま す が , 文字 数 も 行 数 も 変 
更 し な けれ ば , 画面 消去 スイ ッ チ を OFF (00s) 
に し て この コマ ンド を 実行 すれ ば , 画面 は その 
まま 残す こと が で きま す . 
(2)ERASE 
画面 お よび コン ソー ル ・ バ ッ フ ァ を 初期 化 . 
FC82: コマ ンド ・ コ ー ド 02g 
FC83 : 消去 範囲 コー ド 
に 全 画 面 
01: スク ロー ル 画 面 
02 : ペー ジ 1 画面 
03 : ペー ジ 2 画面 
FC84 : 背景 色 コ ー ド 
FC85 : 文字 色 コ ー ド 
F-BASIC の CTLS 文 に 相当 し ます . 
(3)PUT 
文字 列 を 表示 する . 
FC82: コマ ンド ・ コ ー ド 03』 
FC83 : 表示 文字 数 
FC84 : 表示 文字 列 


た だ し , 次 の よう な 特別 の 意味 を 持つ 廊 字 列 
も あり ます . 


| 1 | 字 色 コ ー ド 
Al InSN き | 
13| 績 反し 数 | 表示 娘 字 コー ド 


この コマ ンド に 対し て は BIOS で 1/0 ルー チ 
ン が 用 意 き れ て お り , リク エス ト 番 号 20( 三 14a) 
の “ サ プ シ ステ ム 1 行 出力 ルー チン " を 使用 す 
れ ば よい . F-BASIC の PRINT 文 に 相当 し ます . 
(4)GET 

オペ レー タ に よる 入力 を 可能 に し , 変更 され 
た 最初 の フィ ー ル ド を 取り 込む . 

FC82: コマ ンド ・ コ ー ド 04a 

FC83 : 表示 文字 数 

FC84 : (出力 ) 表示 廊 字 列 









COLOR 文 の 機能 
LOCATE 文 の 機能 
STRINGS 関 数 の 機能 
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サ プ シス テム が BUSY 

サ プ シス テム を HALT 

サ プ シス テム を START 

サ プ シス テム か ら ATTENTION 
サ プ シス テム を ABORT 


(入力 ) 変更 文字 数 
FC85 : (出力 ) 表示 廊 字 列 
(入力 ) 変更 文字 列 


この コマ ンド に 対し て は BIOS で 1I/O ルー チ 
ン が 用 意 さ れ て お り , リク エス ト 番 号 18( 三 12a) 
の “サブ プ シ ステ ム 1 行 入力 ルー チン " を 使用 す 
れ ば よい . F-BASIC の INPUT “プロ ンプ ト ・ 


' メッ セー ジ " に 相当 し ます . 


(5)GETC 

GET 後 の 未 転送 の 変更 きれ た フィ ー ル ド を 取 
り 込 む . FC82: コマ ンド ・ コ ー ド 05s と 思わ れ 
る . 

この コマ ンド に 対し て は BIOS で I/O ル ー チ 
ン が 用 竜 さ れ て お り , リク エス ト 番 号 19( 三 13』) 
の “サブ プシ ステ ム 継 続行 入力 ルー チン " を 使用 
すれ ば よい . 
(6)GET Character Block 1 

指定 枠 内 の 文字 コー ド を 取り 込む . 


FC82: コマ ンド ・ コ ー ド 06a 

FC83 : (出力 ) 横 方 向 キ ャ ラク タ 座 標 メ 
(入力 ) 入力 文字 数 

FC84 : (出力 ) 給 方 向 キ ャ ラク タ 座 標 Yi 
(入力 ) 入力 文字 列 

FC85 : (出力 ) 横 方 向 キ ャ ラク タ 護 標 Xs 
(入力 ) 入力 文字 列 

FC86 : (出力 ) 縦 方 向 キ ャ ラク タ 座 標 Y 
(入力 ) 入力 文字 列 

FC87 : 


(出力 ) 入力 字 列 


F-BASIC の GET@ 文 形式 1 に 相当 し ます . 
(7)PUT Character Block 1 
指定 枠 内 へ 文字 を 表示 する . 
FC82: コマ ンド ・ コ ー ド 07』 
FC83 : 横 方 向 キ ャ ラク タ 座 標 X 
FC84 : 縦 方 向 キ ャ ラク タ 座 標 Y 
FC85 : 横 方 向 キ ャ ラク タ 座 標 X2 
FC86 : 縦 方 向 キ ャ ラク タ 座 標 Y2 
FC87 : 表示 文字 色 
FC88 : 表示 文字 数 
FC89 : 表示 廊 字 列 


下 -BASIC の PUT@ 文 形式 1 に 相当 し ます . 
(8)GET Character Block 2 
指定 枠 内 の 文字 コー ド と アト リピ ビュート 文字 
を 取り 込む . 
FC82: コマ ンド ・ コ ー ド 08』 
FC83 : (出力 ) 横 方 向 キ ャ ラク タ 上 座標 メ 
(入力 ) アト リ ビ ュ ー ト 字 数 十 入 力 
女 字 数 
FC84 : (出力 ) 縦 方 向 キ ャ ラク タ 座 標 Y 


$FD05 の ビッ ト 7 が オン (Read) 
$FD05 の ビ ピット 7 を オン (Write) 
$FD05 の ピッ ト 7 を オフ (Write) | 
$FD04 の ビッ ト 0 が オフ (Read) | 
SFD05 の ビッ ト 6 を オン (Write) 





(入力 ) アト リピ ュー ト 文 字 


FC85 : (出力 ) 横 方 向 キ ャ ラク タ 座 標 X2 
(入力 ) 入力 廊 字 
FC8686 : (出力 ) 縦 方 向 キ ャ ラク タ 上 座標 Y2 
(入力 ) アト リピ ュー ト 廊 字 ) 
FC87 : (入力 ) 入力 文字 
FC88 : (入力 ) アト リピ ュー ト 文 字 ) 
(入力 ) 入力 文字 


FC89 : 


F-BASIC の GET@ 文 形式 2 に 相当 し ます . 
(9PUT Character Block 2 
指定 枠 内 へ アト リ ビ ュ ー ト 付き の 文字 を 表示 


: コ マン ド ・ コ ー ド 09a 

: 横 方 向 キ ャ ラク タ 護 標 X ュ 

: 縦 方 向 キ ャ ラク タ 座 標 Y 

: 横 方 向 キ ャ ラク タ 護 標 X2 

: 縦 方 向 キ ャ ラク タ 座 標 Y2 

: 未 使用 

: アト リピ ュー ト 文 字数 表示 文字 数 
: アト リピ ュー ト 文 字 ) 

: 表示 文字 コー ド 


F-BASIC の PUT@ 廊 形式 2 に 相当 し ます . 
(10GET Buffer Address 

現在 の コン ソー ル ・ バ ッ フ ァ の バッ ファ ・ ボ 
イン タ の 値 を 取り 込む . 

FC82: コマ ンド ・ コ ー ド 0Ag 

FC83 : (入力 ) 横 方 向 キ ャ ラク タ 座 標 X 

FC84 : (入力 ) 維 方 向 キ ャ ラク タ 座 標 Y 
0⑩⑪TABSET 

タプ 停止 位置 を 設定 する . 

FC82 : コマ ンド ・ コ ー ド 0Bi 


FC83 : タブ 停止 位置 (ビッ ト ON の 位置 0eS7 
FC84 : / 8 一 15 
FC85 : / 16 一 23 
FC86 : 4 24 一 31 
FC87 : (7 32 一 39 
FC88 : / 40 一 47 
FC89 : / 48+-55 
FC8A : / 56 一 63 
FC8B : 64 一 71 
FC8C : ル 72 一 79 


(2CONSOLE Control 
種々 の コン ソー ル 機 能 の 選択 . 
FC82: コマ ンド ・ コ ー ド 0C』 
FC83: コン トロ ー ル ・ コ ー ド 
各 ビ ッ ト の 持つ 意味 は 次 の 通り で ある . 


詳し く 説 明 す る と , 
・ カ ー ソ ル ・ ス イッ チ 
oo カー ソル を 表示 する . 
0 カー ソル を 表示 し な い . 
・ コ ント ロー ル ・ キ ャ ラク タ ・ ス イッ チ 
1 コン トロ ー ル ・ キ ャ ラク タ の コン トロ ー 
ル 機 能 を 有効 に する . 
OSkcg コン トロ ー ル ・ キ ャ ラク タ の コン トロ ー 
ル 機 能 を 無効 と し , 文字 と し て 表示 する . 
・EESC キ ー ス イッ チ 
1…ESC キ ー を 有効 に し , ESC キ ー に よ 
る 1 行 毎 の 表示 停止 が 行なえ る . 
0…ESC キ ー を 無効 と する . 
・ 2 行 改行 スイ ッ チ 
1 … 行 (改行 コー ド ま で ) と 行 と の 間 に 1 行 
入れ る . 
0 … 行 と 行 と を つめ る . 
*RX 行 スイ ツチ 
1 … 改 行 コ ー ド 以外 で は 改行 し な い . す な わ 
ち 横 の 女 字 数 を 例え ば 80 字 と する と , 81 
字 以 上 に わた る 行 は , 改行 せ ず 同 じ 場 所 
に 表示 され る . 
0 … 改 行 コ ー ド 以外 で も 横 の 文字 数 を こえ る 
行 は 。 そ の つど 改行 する . 
9Clear Screen 
画面 の 初期 化 
FC82 コマ ンド ・ コ ー ド 0D』 
FC83 : 消去 範囲 コー ド 
00 : 全 画 面 
01: スク ロー ル 画 面 
02 : ペー ジ 1 画面 
03 : ペー ジ 2 画面 
FC84 : 背景 色 コ ー ド 
FC85 : 文字 色 コ ー ド 
下 -BASIC の CLS 文 に 相当 し ます . 現在 解 
読 し た 限り で は “ERASE" と 同じ で す . F-BA 
SIC の CLS 文 は こちら の コマ ンド を 使用 し て い 
F- 
⑯⑭0LINE 
線 また は 四角 を 描く 
FC82: コ マン ド ・ コ ー ド 15』 
FC83: 
FC84 : 


04 : XOR 
横 方 向 ドッ ト 座 標 (上 位 ) 
FC86 : 横 方 向 ドッ ト 座 標 (下位 ) 


FC85 : ] 
FC87 : 縦 方 向 ド ッ ト 座 標 (上 位 ) ] 
) 


X ュ 


FC88 : 炎 方 向 ドッ ト 座 標 (下位 ) 」 


FC89 : 
FC8A : 
FC8B : 


横 方 向 ドッ ト 座 標 (上 位 ) 
横 方 向 ド ッ ト 座 標 (下位 ) 
縦 方 向 ド ッ ト 座 標 (上 位 ) 


2 


jm 


FC8B : 縦 方 向 ド ッ ト 座 標 (下位 ) 





01: PRESET 





02: OR 

03 : AND 

04 :XOR 
FC85 : 指示 座標 数 
FC86 : 横 方 向 ドッ ト (上 位 ) 1 
FC87 : 横 方 向 ドッ ト (下位 ) 」^「 
FC88 : 縦 方 向 ド ッ ト (上 位 ) y 
FC89 : 縦 方 向 ド ッ ト (下位 ) 」「“ 
FC8A : 横 方 向 ドッ ト (上 位 ) ] 、 
FC8B : 横 方 向 ドッ ト (下位 ) 」* 
FC8C : 災 方 向 ド ッ ト (上 位 ) ] 
FC8D : 縦 方 向 ド ッ ト (下位 ) 」 
FC8E : 横 方 向 ドッ ト (上 位 ) | 、 
FC8F : 横 方 向 ド ッ ト (下位 ) 」" 
FC90 : 継 方 向 ドッ ト (上 位 ) ] 
FC91 : 総 方 向 ド ッ ト (下位 ) 」““ 
F-BASIC の CONNECT 文 に 相当 し ます . 

(6POINT 横 

点 を 表示 し ます . 
FC825 コ マン ド ・ コ ヨード 17j』 
FC83 : 表示 点数 . 


3 
: 横 方 向 ド ッ ト 座 標 (下位 ) 」“「 
1 アト 1 
: 継 方 向 ド ッ ト 座 標 (下位 ) 
テー コ ー ド 1 


横 方 向 ドッ ト 座 標 (上 位 ) 
横 方 向 ド ッ ト 座 標 (下位 ) 
縦 方 向 ドッ ト 座 標 (上 位 ) 
縦 方 向 ドッ ト 座 標 (下位 ) 
み カラー コー ド 2 

機能 コー ド 2 


FC8A : 
FC8B : 
FC8C : 
FC8D : 
FC8E : 
FC8F : 


js 
jy 


F-BASIC の PSET 廊 . また は PRESET 文 に 
相当 し ます . 
⑩⑰)PAINT 

指示 座標 か ら 境界 色 (複数 ) の 内 部 を ぬる . 


FC85 : 


FC86 : 


FC87 
FC88 
FC89 


FC8A : 
FC8B : 
FC8C : 
FC8D : 


ド -BA 
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00 : ノー マル 

01 : 90" 左 回 転 
02 : 180" 左 回 転 
03 : 270" 左 回 転 


: 総 倍 率 

: 横 方 向 ドッ ト 座 標 (上 位 ) 1 

: 横 方 向 ド ッ ト 座 標 (下位 ) 
縦 方 向 ドッ ト 座 標 (上 位 ) ) 

縦 方 向 ドッ ト 座 標 (下位 ) 

表示 文字 数 

表示 文字 列 


SIC の SYMBOL 廊 に 相当 じす る 


(9Change COLOR 
指定 枠 内 の 色 を 任意 の 組合 せ で 変え る . 


FC82 
FC83 
FC84 
FC85 
FC86 
FC87 
FC88 
FC89 


FC8A : 
FC8B : 


FC8C 
FC8D 
FC8E 
FC8F 
FC90 
FC91 


デン ドー コード よーOAD 


人 

: 筑 方 向 ドッ ト 座 標 (下位 ) 
人 
: 縦 方 向 ド ッ ト 座 標 (下位 ) 
人 
: 横 方 向 ド ッ ト 座 標 (下位 ) 
Ms 
縦 方 向 ドッ ト 座 標 (下位 ) 
変化 色 数 

>・ み ラー マー リド ュ 1 ) 

: み ラー コー ド T 

・ カ ラー コー ド 2 ) 

・ み ラー コー ド 2' 

1] 

> カラ ーー コー ド 3 


カラ ー コ ー ド 1 カラー コー ド 1 の よう に , 


指定 色 を 


別 の 色 に する こと が で きま す . 枠 の 指 


定 方 法 は LINE な ど と 同様 で す . 


0GET 


Block 1 


指定 枠 内 の 指定 色 (複数 ) を 読み 取る . 


FC82 : 
FC83 : 


FC84 : 


FC85 : 


FC86 : 


FC87 : 


FC88 : 


FC89 : 


FC8A : 


FC8B : 


FC8C : 


FC8D : 


コマ ンド ・ コ ー ド 1B』 

(出力 ) 横 方 向 ドッ ト 座 標 (上 位 ) 
(入力 ) デー タ 数 ュ 
(出力 ) 横 方 向 ド ッ ト 座 標 (下位 ) 
(入力 ) デー タ 列 

(出力 ) 縦 方 向 ドッ ト 座 標 (上 位 ) 
(入力 ) デー タ 列 Y ュ 
(出力 ) 縦 方 向 ド ッ ト 座 標 (下位 ) 
(入力 ) デー タ 列 

(出力 ) 横 方 向 ド ッ ト 座 標 (上 位 ) 
(入力 ) デー タ 列 X2 
(出力 ) 横 方 向 ド ッ ト 座 標 (下位 ) 
(入力 ) デー タ 列 

(出力 ) 縦 方 向 ド ッ ト 座 標 (上 位 ) 
(入力 ) デー タ 列 Y2 
(出力 ) 縦 方 向 ド ッ ト 座 標 (下位 ) 
(入力 ) デー タ 列 

(出力 ) 指定 色 数 

(入力 ) デー タ 列 

(出力 ) 指定 色 1 

(入力 ) デー タ 列 

(出力 ) 指定 色 2 

(入力 ) デー タ 列 





F-BASIC の GET@ 娘 形式 3 に 相当 し ます 


@DPUT 
指定 梓 


FC82 : 
FC83 : 
FC84 : 


Block 1 
内 へ 指定 色 で ドッ ト を 表示 する . 


コマ ンド ・ コ ー ド . 1Ci 


横 方 向 ドッ ト 座 標 (上 位 ) ) 


横 方 向 ドッ ト 座 標 (下位 ) 


FC8C : 
FC8D : 


オプ ショ ン ・ コ ー ド 
00: オ プシ ョ ン な し 
01:B オ プシ ョ ン 
02 : BF オ プシ ョ ン 


F-BASIC の LINE 廊 形式 2 に 相当 し ます . 
9CHAIN : 

指示 座標 問 を 直線 で 結ぶ . 

FC82: コ マン ド ・ コ ー ド 16a 

FC83 : カラ ー コ ー ド 

FC84 : 機能 コー ド 


00 : PSET 


FC82 : コ マン ド ・ コ ー ド 18H 
FC83 : 横 方 向 ドッ ト 座 標 (上 位 ) ) 
FC84 : 横 方 向 ドッ ト 座 標 (下位 ) 
FC85 : 縦 方 向 ド ッ ト 座 標 (上 位 ) ry 
FC86 : 給 方 向 ドッ ト 座 標 (下位 ) 
FC87 : カラ ー コ ー ド 
FC88 : 境界 色 数 
FC89 : 境界 色 1 
FC8A : 境界 色 2 
FC8B : 境界 色 3 
F-BASIC の PAINT 文 に 相当 し ます . 
(0BYMBOL 
文字 列 を 指示 座標 より , 指示 角度 (90* 単 位 )。 
大 き さ で 表示 する . 
FC82: コマ ンド ・ コ ー ド 19』 
FC83 : カラ ー コ ー ド 
FC84 : 機能 コー ド 
00 : PSET 
01 : PRESET 
02:OR 
03 : AND 
04 : XOR 


FC85 
FC86 
FC87 
下 C89 


: 縦 方 向 ド ッ ト 座 標 (上 位 ) ) 
: 縦 方 向 ド ッ ト 座 標 (下位 ) 

: 横 方 向 ド ッ ト 座 標 (上 位 ) ] 
: 横 方 向 ド ッ ト 座 標 (下位 ) 
FC89 : 縦 方 向 ドッ ト 座 標 (上 位 ) ) 
FC8A : 縦 方 向 ドッ ト 座 標 (下位 ) 
FC8B: カ ラー コー ド 

FC8C : 
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&O 


03 : AND 
04 : XOR 
05 : NOT 
FC8D : デー タ 数 
FC8E : デー タ 列 


F-BASIC の PUT@ 文 形式 3 に 相当 し ます . 
62GET Block 2 





指定 梓 内 の 3 原色 を 読み 取る . 

FC82・ コ マン ド ・ コ ー ド 1Dr 

FC83 : (出力 ) 横 方 向 ド ッ ト 座 標 (上 位 ) 
(入力 ) 

FC84 : (出力 ) 横 方 向 ド ッ ト 座 標 (下位 ) 
(入力 ) 

FC85 : (出力 ) 縦 方 向 ドッ ト 座 標 (上 位 ) 
(入力 ) 

FC86 : (出力 ) 縦 方 向 ドッ ト 座 標 (下位 ) 
(入力 ) 

FC87 : (出力 ) 横 方 向 ド ッ ト 座 標 (上 位 ) 
(入力 ) 

FC88 : (出力 ) 横 方 向 ドッ ト 座 標 (下位 ) 
(入力 ) 

FC89 : (出力 ) 縦 方 向 ド ッ ト 座 標 (上 位 ) 
(入力 ) 

FC8A : (出力 ) 縦 方 向 ドッ ト 座 標 (下位 ) 
(入力 ) デー タ 列 

FC8B : (入力 ) デー タ 列 

FC8C : (入力 ) 


デー タク 2 


デー タ 列 は Blue … Red…Green… の よう に , 
各色 毎 に まとまっ て 返さ れ ま す . F-BASIC の 
GET@ 文 形式 4 に 相当 し ます . 
69PUT Block 2 

GET Block 2 で 読ん だ デー タ を 表示 する 

FC82 : コ マン ド ・ コ ー ド 1Ea 

FC83 : 横 方 向 ドッ ト 座 標 (上 位 ) lx 

FC84 : 横 方 向 ドッ ト 座標 (下位 ) 」^" 

FC85 : 継 方 向 ドッ ト 座 標 (上 位 ) ly 

FC86 : 継 方 向 ドッ ト 座 標 (下位 ) 」「~ 

FC87 : 横 方 向 ドッ ト 座 標 (上 位 ) lx 

FC88 : 横 方 向 ドッ ト 座 標 (下位 ) 」^* 

FC89 : 縦 方 向 ドッ ! 

FC8A : 縦 方 向 ド ッ 
FC8B : 未 使用 
FC8C : 機能 コー ド 


ト 護 標 
ト 座 標 


(上 位 ) 


(下位 ) 5 


FC8D : 
FC8E : (Blue) 


デー タ 列 (Red) 


デー タ 列 (Green) 


F-BASIC の PUT@ 文 形式 4 に 相当 し ます - 
249Graphic CURSOR 


オペ レー タ の 指示 し た 座標 (複数 ) を 読み 取 
る . 
FC82 : コマ ンド ・ コ ー ド 1Fa 
FC83 : (出力 ) カラ ー コ ー ド 
(入力 ) 横 方 向 ドッ ト 座 標 (上 位 ) 
FC84 : (出力 ) 入力 座標 数 ュ 
(入力 ) 横 方 向 ド ッ ト 座 標 (下位 ) 
FC85 : (出力 ) 横 方 向 ドッ ト 座 標 ( 上 位 ) 
(入力 ) 維 方 向 ドッ ト 座 標 ( 上 位 ) 
FC86 : (出力 ) 横 方 向 ドッ ト 座 標 ( 下 位 ): Yi 
(入力 ) 縦 方 向 ド ッ ト 座 標 ( 下 ) ) 
FC87 : (出力 ) 縦 方 向 ドッ ト 座 標 ( 上 ) 
(入力 ) 横 方 向 ドッ ト 座 標 ( 下 ) 
FC88 : (出力 ) 縦 方 向 ド ッ ト 座 標 (上 ) [Xsz 
(入力 ) 横 方 向 ドッ ト 座 標 ( 下 ) 
FC89 : (入力 ) 維 方 向 ド ッ ト 座 標 ( 上 ) Y。 
FC8A (入力 ) 継 方向 ドッ ト 座 標 ( 下 ) 
FC8B (入力 ) 横 方 向 ドッ ト 座標 (上 ) | 、 
FC8C (入力 ) 横 方 向 ドッ ト 座 標 ( 下 ) 
FC8D (入力 ) 維 方 向 ドッ ト 座 標 (上 ) 
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X ュ 


Y ュ 


X2 


Yz 


FC8E : (入力 ) 縦 方 向 ドッ ト 座 標 (下位 ) ,Ys 


F-BASIC の GCURSOR 文 に 相当 し ます . 
5Character LINE 

文字 に よる 線 ま た は 四角 を 描く . 

FC82 ・ コ マン ド ・ コ ー ド 20』 

EGO835E2 ン ーー ニコ トード: 

FC84 : 文字 コー ド 

FC85 : 横 方 向 キ ャ ラク タ 座 標 (上 位 ) 

FC86 : 横 方 向 キ ャ ラク タ 座 標 (下位 ) 


jx 
FC87 : 縦 方向 キャ ラク タ 座 標 (上 位 ) 1 


FC88 : 継 方 向 キ ャ ラク タ 座標 (下位 ) 」「「! 


FC89 : 横 方 向 キ ャ ラク タ 座 標 (上 位 ) 
FC8A : 横 方 向 キ ャ ラク タ 上 座標 (下位 ) 
FC8B : 縦 方 向 キ ャ ラク タ 上 座標 (上 位 ) 
FC8C : 縦 方 向 キ ャ ラク タ 上 座標 ( 下 位 ) 
FC8D オプ ショ ン ・ コ ー ド 
00: オプ ショ ン な し 
01: B オ プシ ョ ン 
02 : BF オ プシ ョ ン 
F-BASIC の LINE 廊 形式 1 に 相当 し ます . 
6OINKEY 
キー コー ド を 読み 取る . 
FC82: コマ ンド ・ コ ー ド 29m 
FC83 : (出力 ) Null ス イッ チ 
01…INPUTS(1) の 機能 
00…INKEYS の 機能 
(入力 ) 入力 文字 コー ド 
FC84 : (入力 ) KEY 入力 フラ グ 
01…KEY 入力 有 
00…KEY 入 力 無 
この コマ ンド に 対し て は BIOS で 1I/O ルー チ 
ン が 用 意 き れ て お り , リク エス ト 番 号 21( ニ 15a) 
の “サブ プシ ステ ム 1 文 字 キ ー 入 力 ル ー チ ン " を 
使用 すれ ば よい . F-BASIC の INKEY$ も し く 
は INPUTS(1) に 相当 し ます . 
7DEF PF 
ジア アン グ ショ ュ ン 
FC82 : 
FC83 : 


X2 


Y2 


キー に 文字 列 を 定義 する . 
コマ ンド ・ コ ー ド 2Ag 

プロ グラ マブ プル ・ フ ァ ン クシ ョ ン キ ー 
番号 

廊 字 数 

女 字 列 


FC84 : 
FC85 : 


F-BASIC の KEY 文 ( 廊 字 列 定義 ) に 相当 し 
ます . 


0290GET PF 

ファ ンク ショ ン ・ キ ー に 定義 され て いる 文字 
列 を 読み 取る . 

FC82: コマ ンド ・ コ ー ド 2Ba 


FC83 : プロ グラ マブ ル ・ フ ァ ン クシ ョ ン ・ キ 
ーー 番号 
FC84 : (入力 ) 廊 字 数 


FC85 : (入力 ) 文字 列 
29INTERRUPT 
ウ ァ ン 導 ジ ョ シュ 
FC82: コ マン ド ・ コ ー ド 2C』 
FC83 : KEY ON (ビッ ト ON の ファ ンク シ 
ご ) 


いで っ 


PF10 


ヨン * 








FC84 : KEY ON (ビッ ト ON の ファ ンク ショ 
ン ・ キ ー) 


PF 1 
PF 2 
PF 3 
PF 4 
PF 5 
PF 6 
PF 7 
PF 8 
CONSOLE 娘 に よっ て ファ ンク ショ ン ・ キ ー を 
表示 する と , KEY ON の ファ ンク ショ ン ・ キ ー 
の 色 が 変わ る た め 割 り 込 み が 選 択 さ きれ て いる 状態 
が わか り ま す . F-BASIC の KEY(n) ON/OEF 





キー の 割り 込み を 選択 する . 


に 相当 する よう です. 
@0SET TIMER 
タイ マ の レジ スタ に 値 を 設定 する . 


FC: コ マン ド ・ コ ー ド 3Dm 
FC : タイ マ の レジ スタ 選択 . 
FC : 制御 レジ スタ 

FC : 時 

FC: 分 

FC : 秒 

まだ 充分 解読 し て いま せん . 


0GET TIMER 
タイ マ の レジ スタ の 値 を 読み 取る . 
RC コマ ンド コー ドド 3 

: 未 使用 

: 制御 レ / ジ スタ 

:・ (入力 ) 時 

: (入力 ) 分 

: (入力 ) 秒 

まだ 充分 解読 し て いま せん . 


に ん と 


以上 が サブ プシ ステ ム に 関し て わか っ た こと 
で す . これ だ け で も , 機械 語 で アー ム を 作ろ う 
と いう 人 に は 大 い に 役 立つ も の と 信じ て いま す . 
試行 錯誤 で 実験 を 繰り 返し た た め , 間違い な ど 
が あっ る か も 知れ ませ ん の で 間違い を 発見 し た り , 
新 事 実 を 見 出し た 方 は 基 非 と も お 知ら せ 願 いた 
いと 思っ て お り ま す . FM-8 を も っ と 使い こ な 
そう じゃ あり ませ ん か ん 

ぐ に - 
注 意 

今後 ソフ トウ ェ ア の 改良 な ど に より , BIOS 
お よび 各 I/O ル ー チ ン の エン トリ ・ ア ドレ ス , 
その 他 が 変わ る こと が あり ます . 

私 が 調べ た 所 で は , FM-8 の BASIC ROM 
お よび CRT モニ タ ROM に は , か な り い くつ か 
の バー ジョ ン が あり , 8900 ョ 一 8909g の 10 バ イト 
に その 情報 (内 部 バー ジョ ン , 日 付 ) が 格納 さ 
が で いる [よう です: 

1.02 一 1.05 ま で の 4 種類 が ある こと は 確認 し 
て いま す . 1.00, 1.01 が 市 場 に 出 て いる か どう 
か は わか り ま せん が , た と えば , 1.03 と 1.05 と 
を 比較 し て みる と 前 者 は BEEP が Syntax Err 
or に な る の に 対し , 後者 は な り ま せん . また , 
PAINT 文 は 後者 の 方 が 5 一 6 倍 も 速い な どの 違 
い が あ り ま す . 

その た め , 今後 FM-8 の 内 部 ルー チン を 使う 
よう な 記事 に は 是 非 と ち も シ リア ル ・ ナ ン バ ー と, 
8900g か ら の 10 バ イト の 内 容 も 示し て 欲し いと 思 
いま す . 参考 まで に , 今回 この 原稿 を 書く の に 
使っ た 時 点 で は , FM-8 の ROM: は 1.03 で , 現在 
この FM-8 (大 学 の 研究 室 の で す が ) は 我が家 と 
同じ 1.05 に な っ て いま す . 

避 参 考 資料 
1) “F-BASIC 文法 書 ", 富士 通 株 式 会 社 
2) “FM-8 の ソフ トウ ェ ア 概 説 [FI".、 イン ター フ 














ェ ー ス , "81 年 11 月 号 。 CQ 出 版 社 

3) “FM-8 の BIOS 活 用 法 と 開発 ツー ル へ の 応 
用 "イン ター フェ ー ス , '82 年 2 月 号 。 CQ 
出版 社 


4)F-BASIC ROM version 1.03 逆 アモ ンプ ブラ 
・ リ スト , FUJITSU MICRO8 S/N 
381080595 





FM-8 は 優れ た グラ フィ ッ ク 機 能 を 有 し , SYM 
BOL 文 な ど は 非常 に 重宝 な コマ ンド で す . また 
PAINT 廊 の 速 さ や , メモ リ 不 足 を 生じ な い 点 な 
ど 他 の 機種 に も 負け ず , むし ろ 数 段 上 を いっ て 
いる 感じ し さえ し ます . こん な FM-8 に も , まだ 
F-BASIC で サポ ー ト され て いな い グ ラフ ィ ッ 
ク 機 能 - 一 それ が Change COLOR コマ ンド な の 
9 

この コマ ンド の 機能 が どの よう な も の な の か 
を 一 言 で 言う な ら ば , 

指定 枠 内 の 色 を 任意 の 組合 せ で 変え る 
と いう こと に な り ま す . 

つま り 長 方 形 の 領域 を 指定 する と , その 領域 
内 の 色 を 好き な よう に 変え る こと が で きる の で 
す . も ちろ ん 1 色 だ け で も 構い ませ ん し , 8 色 
と も 別 の 組合 せ に する こと も で きま す . 

こん な お も し ろ い 機能 が ある に も か か わら ず , 
F-BASIC で サポ ー ト され て いな いた めか CR 
エモ ニタ ROM の バー ジョ ン ・ ア デップ が 行なわ 
れ て も , この 機能 に つい て の ソフ トウ ェ ア の 改 
良 は 行なわ れ て いな い の が 現状 の よう です. 
PAINT が 前 の バー ジョ ン か ら 今 の バー ジョ ン 
1.03 に な っ て 5 一 6 倍 も スピ ー ド ・ ア ッ プ し た 
の に 比較 する と 大 違い で す . 

そこ で この Change COLOR コマ ンド を ,F- 
BASIC で 使え る よう に し て 見 よう と いう わけ で 


す . その た め 決 の 2 つの こと を 満足 で きる も の 
に じ ピ ま す .。 
①DISK BASIC で も 使え る こと 
② 各 パラ メー タ は 省略 する こと も 可能 で ある 
こせ っ 

この 2 つ を 満足 する た め , まず キー ワー ド は 
R OM 上 に 存在 する も の を 使い 、 この Jump 
Table を 書き か える こと に し ます . 

ROM 上 に ある キー ワー ド の うち Change 
COLOR に 最も ふさ わし い の は , や は り COLOER 
で す . そこ で COLOR @ を Change COLOR の 
コマ ンド に する こと に 決め まし た . PC-8801 に 
も , COLOR @ 文 が ある よう で す が , 内 容 的 に 
は まっ た く 異 な っ て いる の で ご 注意 を / 

次 に 書式 を 決め る わけ で す が , まず 枠 の 指定 
方 法 は LINE 文 な ど に 準じ し る こと に し , 次 に 何 
色 を 何 色 に する か の 指定 は カッ コ で くく っ た 左 
側 の コー ド の 色 を 右側 の コー ド の 色 に する と い 
3 

この よう に し て 決め た COLORe 文 の 書式 は 
次 の よう に な り ま す . 

COLOR @【〔((X」、Y))〕) 一 〔(X2, Y2)〕) 〔, 

( み ラ ーー ド カラー 1 (も (カラ ー:2。 カラ ー 
(〔, (カラ ー8, カラ ー8)〕 …〕〕)〕 

a) 始点 位置 , 終点 位置 の 一 方 も し く は 両方 を 
省略 する こと が で きる . 





た だ し 一 方 の み を 省略 し た 場合 に は , どちら 
を 省略 し た の か が わか る よう に “ー" は 必ず 残 


し て お く こ と . また 始点 の み を 省略 し た 場合 に 
は 前 の 終点 が 今回 の 始点 と な り ま す . 

b) カ ラー コー ド の 組み 合せ の 省略 が で きる . 

打ち 込み 方 と し て は CLEAR, &H5FFF を 実 
行 し た 後 , 6280』 番 地 か ら 順 に 入れ て 62A 4r 番 
地 を コー ル し て くだ さい . この と き 6000』 番地 
か ら Jump Table が 入っ て いま す の で 誤っ て 書 
きか えな いよ うに / 

6809 を は じ め て まだ 半年 も 経過 し て いな い の 
で ,、 まだ ムダ が 多い の で す が 何 と か 正常 に 走る 
みた いで す . ON ERROR GOTO 廊 で も 正常 に 
働い て くれ る の で , いま の と ころ バグ は な さそ 
う で ず 。 


リス ト (F-BASIC に change COLOR コマ ンド を ) 還 環 昌和 











+B +C +D +E +F Sum 


OO0 On 00 Qa OO0 i36 

0 さ 0O4 04 O5 O5 』E9 6 さ 10 C6 Da BD 97 SB 
OO 10 BE O1 40 』7F る 6 さ 20 BF BC O2 BO 10 
FD 6O ea CC 60 』9O 6 ささ Q _BF BC OO CB 1Q0 
10 26 68B さ Z 9D 』 さ さ 6 さ 40 7F 62 93 BD 97 
26 1O FC 62 BF 』7C 6 さ 350 さ Z7 BEB1 F7 62 

20 2E BD 97 2F 』05 6360_ QA2 F7 62 QS BE 
62 BB BD 97 32 』9F 6 さ 70 ED 4 F1 62 22 








dd +O +1 +2 + さ +4 
6 さ OO _BD 9E BF BC OO 
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ジス テム 使用 法 





FM-8 で は , CRT グ ラフ ィ ッ ク 処 理 , キー 入力 処理 ,。 タイ 
マ 処 理 専用 に サ プ CPU が 使わ れ て いま す . この サブ プシ ステ 
ム を 上 手 に 使わ な いと , 高速 ゲー ム な ど は 作れ ませ ん . 

メイ ン ・ シ ステ ム と サブ プシ ステ ム 間 の 情報 交換 は , 通信 
用 の 共有 メモ リ (128 バ イト ) と 4 本 の 制御 線 で 行なわ れ ま 
お た 


図 1 メイ ン と サ プ の 情報 交換 






BUSY 


HALT 
ATTENTION 


CANSEL 


He 








1. 共有 メモ リ 


メイ ン ・ シ ステ ム 側 の アド レス $FC80 一 SFCFF(128 バ 
イト ) と , サブ シス テム 側 の アド レス SD380 一 SD3FF 
の 領域 は 。 メイ ン と サブ で 共有 する 領域 で す . この 領域 を 
お 互い に 同時 に アク セス し な いよ うに し て , デー タ の 受け 
渡し を し ます ( 図 2). 


2. 貞 御 線 


共有 メモ リ を 同時 に アク セス し な いよ うに する に は , 4 
本 の 制御 線 を 使い ます . 

メイ ン ・ シ ステ ム か ら サ プシ ステ ム を アク セス する に は , 
図 3 の よう に し ます . この よう に し て , サ プ シ ステ ム を H 
ALT させ た 後 , 共 有 ス メモ リ に サブ プ シ ステ ム へ の コマ ンド を 
書き 込み ます . 

共有 メモ リ に 書き 込ん だ 後 は .、 サブ システム を 図 4 の よ 
う に し て , HALT 解除 し ます . 
2-1 サ プ か ら メ イン へ の BUSY 信 号 …$SFD05 の ビッ ト 7 を 
READ 

サブ プシ ステ ム は , メイ ン 側 に BUSY 信 号 (1 


の た 
: 命令 実行 
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中 , 0 : 実行 終了 ) を 送り ます . サブ 側が BUSY の 間 は , 
メイ ン 側 で 共有 メモ リ を アク セス し な いよ うに し ます . 
2-2 メイ ン か ら サ プ へ の HALT 命 令 信 号 …… $FD05 の ビッ 
ト 7 を WRITE 

メイ ン ・ シ ステ ム は , サブ CPU を HALT( 停止 ) させ た 
り , HALT 解 除 (開始 ) させ る こと が で きま す (1 : HA 
LT, 0 : 解除). 


2-8 メイ ン か ら サ プ へ の 割り 込み 信号 ……$FD05 の ビッ 
ト 6 を ON 

サブ プシ ステ ム が 命令 を 実行 中 で あ つて も , メイ ン ・ シ ス 
テム は , サブ CPU に IRQ 割り 込み を 発生 きせ , 強制 的 
に 命令 を 中 断 さ せる こと が で きま す . 


2-4 サブ プ か ら メ イン へ の 割り 込み 信号 …… FD04 の ビッ 
ト 0 が ON 

サブ プシ ステ ム は , メイ ン 側 に FIRQ 割 り 込 み を 発生 きせ , 
イン ウー バル ャ タイ マ 。 クロ ッ グ プロ グラ マダ アル ・ ワ ア 
ンク ショ ン ・ キ ー の 動作 を 知ら せま す . メイ ン ・ シ ステ ム 
の FIRQ 割 り 込 み に は , キー な ども ある の で , 区 別 
する に は この 信号 を 調べ ます . 

割り 込み を 受け た こと が 判っ た な ら , サブ CPU を HA 
LT させ , 共有 メモ リ に 書か れん て いる ステ ー タ ス を みて , 
何 の 割 り 込 みか 調べ ます . 調べ 終っ た な ら , $FC80 の ビ 
ッ ト 7 を ON に し て か ら , サブ CPU の HALT を 解除 し ます . 





サブ プシ ステ ム へ BIOS を 介さ きず 直接 コマ ンド を 送れ ます 
コマ ンド の フォ ー マ ッ ト に つい て は , ディ スプ レイ ・ サ プ ブ 
シス テム 解説 を 参照 し て くだ さい . 
3-1 サ プ シ ステ ム 出 力 

サ プ シ ステ ム へ の 出力 は 非常 に 簡単 で , 図 5 の よう に な 
り ま す . 
3-2 サブ プシ ステ ム 入 力 

サブ プシ ステ ム に コマ ンド を 送り , サブ プシ ステ ム か ら 応 答 
を も ら う 場合 が あり ます . この と き は , や や 複雑 に な り , 
図 6 の よう に な り ま す . $FC80 の ビッ ト 7 オン は , サブ 
シス テム を リモ セット (開始 ) する 際 , 何 も コ マン ド が 設定 
され て な いこ と を 示す も の で す . 





図 2 デー タ 受 け 渡 し 概念 フロ ー チ ャ ー ト 図 3 サブ CPU 停止 図 5 サブ プシ ステ ム 出 力 
Le | 













サブ シス テム が 
READY ま で 待つ 


サ プ CPU を 
ーー 
サ プ シ ステ ム が 
BUSY ま で 待つ 





FIRQ, IRQ 
禁止 








| SUBRES | 





実行 を 停止 する 











共有 メモ リ に 図 6 サ プ シ ステ ム 入 力 


コマ ンド を セッ ト 








サ プ シ ステ ム の 共有 メモ リ の の 
HALT 解除 コマ ンド を 2 
解釈 ・ 実 行 


り 
3 紳 因 | 
HALT 知ら せる 
サ プ ブシ ステ ム が 
実行 を 停止 する 


BUSY ま で 待つ 





4 サブ プ CPU 開 始 







SUBRES 


サブ CPU の 
HALT 解 除 


FIRQ, IRQ 
禁止 解除 


| suBRES | 
| SUBHLT 








共有 メモ リ を 調べ る 


サ プ ブシ ステ ム の 実行 を 開始 する 
HALT 解 除 





ステ ー タ ス 
チェ ッ ク ・ セ ッ ト 
$FC80 の 
ピット 7 オン 


* 必 要 に 応じ て 
行なう . 











サ プ シ ステ ム が 
READY ま で 待つ 





* 必 要 に 応じ て 


行なう . 」 














55, $43, $48, $49 で “YAMAUCHTI" の ASCIL コー ド 


サブ プ ブシ ステ ム の モニ タ を 使わ ず , 新 ら た に プロ グラ ム を で す . 
転送 し て 、 その プロ グラ ム か ら VRAM を 直接 操作 し た い 場 4-2 プロ グラ ム の 転送 と 実行 
合 (高速 ゲー ム な ど ) が あり ます . この と き , メン テ ナ ン MOVE サ プ ブ コ マン ド を 用 いて , プロ グラ ム を サブ プ ブシ ステ 
ス ・ コ マン ド を 使い ます . ム に 転送 し ます . 転送 先 が VRAM 上 の と き は , VRAM セッ 
4-1 キー ワー ド 


ト ・ フ ラグ を セッ ト し て くだ さき さい. 実行 きせ る に は , JM 


モ セット する キー ワー ド は , $59,*$41, $4D、$41, $ SR サ プ コ マン ド を 使い ます . 大 き な プ ログ ラム を 転送 す 
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る に は , 最初 に 転送 プロ グラ ム を 送っ て , それ を 実行 させ メモ リ ・ マ ッ プ を 図 7 に 示し ます . ブー ト ROOM 領域 は , 
て 転送 し た 方 が や り 易 いよ う で す . 本 体 音 面 の ディ ッ プ ・ ス イッ チ 9, 10 に より , 4 種類 の う 
4-3 サ プ 側 プロ グラ ム ち 1 つ を 選択 し ます . 

サ プ 側 プロ グラ ム は , VRAM アク セス ・ フ ラグ な ど を セ メイ ン と サブ の 1 /O ア ドレ ス を 表 1 , 2 に 示し ます . 
ッ ト し 。 VRAM を アク セス し た 後 , BUSY フ ラグ を R 巨 こ ご ご に は saw は た の 間 の イシ ルク Eiep の の ラグ だ 
AD し て (Ready に する ) 処理 を 終え を ます. け で な KK。 4 ウ 作 プリ ンタ オー 娘 ネ オッ こみ シト 。 ブ 


ザー。 慌 @-232G AD コン バー ター ラグ 下 ゃ 名 り 。 ミ 
ニニ フロッピー。, 漢字 ROM (以上 メイ ン ・ シ ステ ム ), キー 
入力 デ 大 みな た に EE 下 スク ロー ツジ タグ の 4( 以 LE サナ デ ジス 
テム ) な どの フラ グ が あり ます. 





図 7 メモ リ ・ マ ッ プ 













RAM 
(128B) 


Video RAM 
48KB 





8000 








FFE 0 一 FFEF (16B) 
RAM 


ROM(CG) 
ROM 
SUB CPU 
MONITOR 











RESET IRO 


* RESET=FE00 


FFFF 





SUB*CP り ニー ニニ ーーーー テ ーー テー 


ーーーーーーーーーーーーーーーーーーーーー MAIN CPU 











表 2 サブ |I/O ア ドレ ス 
リー ド / ラ イト | D7 


KEY DATA リー ド 
KEY DATA リー ド 























































































CANCEL IRQ の 
= ド ap | 
02 ACKNOWLEDGE の 
の OFF リー ド =ON H 
D408 CRT の ON/OFF (し ) ライ トニ OFF [ 
トー ラー コト 2aWa リー ド =SET H 
D409 | VRAM アク セス ・ フ ラグ MM ライ トニ = 
RESET 
リ ーー ド ーー 上 
D40A | BUSY フ ラグ ピー ラン ーーー | 
(H) ライ ト = 昌 
BUSY 
D403 | BUZZER リー ド ーー 
ATTENTION IRQ 拒 " ーー 
B408 TO_MAIN CPU に 
DO40p | !NSERT MODE LED OFF リー ドニ =ON ヒ 
の ON/OFF (H) ライ トニ OFF H 
SCREEN RAM の OFFSET ADDRESS リー ド * 2 
D40E (H) 00 三 禁 止 
L *1 ライ ト [OoA1831OA12| OAI1[OA10|OA9|1oA8 
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SCREEN RAM の OFFSET ADDRESS | 2 0 
D40F | 。」 (D) 00 
| oA7|oAsloAs5 











*※1 アド レス を セッ ト す る と き は 、VRAM ア クセ ス ・ フ ラグ を セッ ト し て お くく こと. 
* 2 READ ア クセ ス し た 場合 、 オフセット ・ レ ジス タ の 値 は 不定 と な る . 
* 3 DATA 欄 が 空 握 の 場合 は DONT CARE 











家 放 メイ ジリ /O の アド: ウス 


1/O ア ドレ ス 領 域 








































































































ライ ン ・ プ リン タ (LP) ラ 
| オーディオ ・ カ セッ ト (O/C) SLCTIN | STRB : リモ ー ト | MiC 
0 My 0:tV2 ト 織 | スト ロー ブ | リザーブ 0: り - ト OFF | カセ ッ ト 
1: 欧 し 2 ト | パルス 1 リモート ON | ライ ト ・ デ ー タ 
F D01 ライ ン ・ プ リン タ ・ デ ー タ | ライト D 7 D6 D 5 | D 4 D 3 D 2 D 1 D0 
オー ディ オ ・ カ セッ ト リ 0 /C LP LP LP LP LP LP 
人 に ド DET2 DETI |PE ACKNG |ERROR | BUsY 
ライ ン ・ プ リン タ ドリー テー タ LP を 譜 別 する ピッ ト | 1: 用 紙 な し | 認知 番号 | 0 : エ ラー| 1: ピ ジー 
( 未 使用 ) 0 : 正 常 ( 負 論 理 ) | 1 : 正 常 | 0: レ ディ ー 
ラ 連続 ブザー | 単 二 プ ザー スピ ー カ 
。 0:OFF | 0:OFF 0 :OFF 
DU9 ンー 1 1:ON |1:oN 1 :ON 
(1Sec) 
リ PE STOP キ ー | ATENT 
の 0: な し 10:ON IEATTENT 
F D04 サ プ イ ンタ ー フ ェ イ ス 1 1 : パ リティ | 1 : OFF 了 
エラ ー あ り 0 : / あ り 
HALT | CANCEL Z80W 
の ラ | 1 : サ プ ホ | 1: サ プ IRQ 0 :6809 
たよ おう イ | ルト | リクエスト 1 :Zz80 
ト | イネ ー プ ブル が 選択 さ 
F D05 れる 
リー ド | BUSY 拡張 検出 
0 : レデ ィ 0 : あり 
1 : ビジ ィ 
受信 デー タ | リー ド | D7 D6 D5 D 4 D 3 D 2 D 1 D0 
F D06 - 
送信 デー タ | ラ イト | D7 | D6 D5 D 4 D 3 D 2 D 1 D0 
リ |DSR |SYNDET |FE OE PE TXE RXRDY |TXRDY 
ステ ー タ ス | 0 :DSR 信 号 | :SYNC | 1: フ レー ム | 1 : オ ー バ ー| 1: パ リティ | 1 ラン ポ 22 11: レ シー パー | トシ バット 
レジ スタ ド |1:DSR | キャ ラク タ | エラ ー フロ ー エラ ー | エッ プティ レデ ィ テー タバ ッ 77 
L 検出 エラ ー ェ ン プティ 
モー ド ・ コ マン ド ・ デ ー タ (リセ ッ ト 後 有効 ) 
SCS | ESD EP PE (本 2 L 1 
同 期 SYNC キラ 22 タ | SYNC 検出 | パリ ティ | パリ ティ キャ ラク タ 長 
RS-232C 1: シ ング ル | 1 : 外 部 | 1: 偶 1: イネ ー ブ ル 51010 0 0 
加 王 素 ラ | 0: ダ ブル | 0: 内 部 0 : 奇 0: テ ディ 2 エー ブル 610|11| 
7|1|0 
F D07 イン ター フェ イス イ 8 | 111 
ト B 2 B 1 
で S 2 s 1 同 上 同 上 同 骨 2 則 隊 0 飛 伯 1 
モー トド 1716| 1 | 0 
飲 82| 画 咽 阪 1 
EH IR RTS ER SBRK RXE DTR TXEN 
ハン トモ ー ド | 内 部 リセ ッ ト エラ ー リ セッ ト | ブレーク 検出 | 交信 イネ ー ブ ル | ター ミナ ル | 送信 イネ ー プ ブル 
コマ ンド 1 : SYNC | 1: リ セッ ト | 1 : RTS | 1: エ ラー フラ グ | 1 : TXD |1: イ ネー ブル | レデ ィ ー 1 : イネ ー ブ ル 
テー グ キャ ラク タ = クリ ア ニ L | 0: デ ィ イス エー ブ 0 : デ ィ ス エー 
サー チ ル 1 : DTR=0 プル 
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ライ ト カウ ンタ ・ ク リア VRESET START 
ra クリ ア 1:DSP リ セッ ト 13 ス ター ト 
FD09 | ライ ト | CM3 CM 2 CM 1 CM0 DATA3 DATA 2 DATA 1 DATA0 
1 に 旨 り SY の 
FD0A リ ド 上 B り が ー ゴ 
FD0B 2 ラット タ イト | D7 D6 D5 D4 D 3 D 2 pi p0 
< DOUT 
リー ド 変換 デー タ 
2 6 2 セ チ 
FD0C | AID コ ン バ ー タ ADC 0 : チ ッ プ | レン ジレ クト | レ ャ 0 
ライ ト | アナ ログ セレ クト | 1:0 一 25V | クン 1 
プ ブロック 0:0 一 5V ト ネ 0 
ル 1 
邊 8 入出 カ リー ド 
FD10 デー タ | ライト D 7 D6 D 5 D 4 D 3 D 2 D 1 D0 
FD1 | ライ ト 0 0 0 0 CM3 CM2 CM1 CM0 
ステ ー タ ス |CME TDRA RDA ERROR |BOSY 
FD12 レジ スタ リー ド | コマ ンド エン ド | 1 : 書 込 可 | 1 : 読 出 可 1 : エラ ー | 9 : レデ ィ 
FD13 エラ ー ス テー タス | 」」 一 ド | EJECT POUR CRC トラ ンス ファ | バッ ドル ー プ | ノー マー カ | 未定 義 
レジ スタ エラ ー ペー ジ ・ オ ー ズ | エラ ー エラ ー オー パー エラ ー | エラ ー コマ ンド ・ エ ラー 
FD14 | バブ プル ・ メ モリ ライ ト ペー ジ ・ ア ドレ ス ・ レ ジス タ ( 日 ) 
FD15 ライ ト / (L) 
FD16 ライ ト ペー ジ ・ カ ウン ト ・ レ ジス タ ( 日 ) 
FD17 ライ ト / (L) 
FD18 リー ド ステ ー タ ス ・ レ ジス タ 
FD19 ライ ト コマ ンド ・ デ ー タ 
呈 | ライ ト トラ ッ ク ・ レ ジス タ 
Fp1B | F 9 ま セク タ ・ レ ジス タ 
ミニ フロ ッ ピ ー リー ド = 
FD1C ライ ト デー タ ・ レ ジス タ 
FD1D 2 ヘッ ド ・ レ ジス タ 
FD1E リー ド ドラ イプ ブ ・ レ ジス タ 
DRQ 1RG 
民 居 り 三 ょ ラグ フラ グ | 
1 
FD20 ライ ト 漢字 アド レス (日 ) 
FD21 | 漢字 ROM | ライト 漢字 アド レス (し ) 
FD22 | (JIS コ ー ド ) リー ド 漢字 デー タ ( 日 ) 
FD23 リー ド 漢字 デー タ (L) 























*FD24ーFDFF ま て 未 使用 
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FM- 8 の "インベーダー" と“ ギャラクシアン" は いか 
が で し た か .!1/O "82 年 5 月 号 に その KNOW - HOW の 一 部 を 
発表 し まし た が , 今回 は サブ プ CPU に プロ グラ ム を 転送 す 
る 方 法 お よび その プロ グラ ム を 発表 し ます . 





この プロ グラ ム 自 体 は サブ ルー チン の 形式 を 取っ て いる 
の で , 先頭 番地 (ここ で は &H5000)0 を コー ル す る と サブ 
CPU に プロ グラ ム が 転送 きれ 、 サ ブ CPU の 制御 は &H 
C000 に 移り ます . 

130 行 一 170 行 で サ プ CPU を HLT し , 割り 込み を 禁止 
し て いま す . 特に 割り 込み を 禁止 する 必要 は な いと 思い ま 
す が , と に か く 入 れ て あり ます . 

180 行 (実質 は 540 一 610 行 ) で 620 行 以降 の メン テ ナ ン ス 
ぃ コマ ンド と その デー タ お よび サジ ビデ CPU べ の デ ロ グ ラガ 
を 転送 する プロ グラ ム を 共通 領域 に 書き 込ん で いま す . 

ダンテ ナン ジス ・ く コマ ジン ド の り MP サ プ ュ マン ド に より 。 
サブ CPU は る &HD38F に ジャ ンプ し ます . この &HD38F 
以降 (670 一 860 行 ) で は , VRAM アク セス ・ フ ラグ を セッ 
ト し , メイ ン CPU か ら の 転送 デー タ を 待っ て いま す . 

メイ ン CPU は 290 行 か ら サ ブ CPU へ プロ グラ ム を 1 ババ 
イト ずつ 転送 し て いま す . この 辺 の こと は プロ グラ ム を 見 
て いた だ いた 方 が よく わか る と 思い ます . また , 実際 の サ 
プ CPU へ 転送 する プロ グラ ム は "LABEL TABL 








HHD408 …… CRT の ON/OFF 
この アド レス を READ す る と 画面 が 表示 され , WR 
ITE す る と 画面 が 消え る . 
普通 は READ し た 状態 に し て お く . 

を HHD409 。 …… VRAM アク セス ・ フ ラグ 
この アド レス を READ す る と セッ ト さ れ , WRIT 
EE する と リセ ッ ト さ れる . 
普通 は モッ ト し た 状態 ( 三 READ) に し て お く . 

を HD40A 0 …… BUSY フ ラグ 
この アド レス を READ す る と メイ ン CPU の &HF 
D05 の ビッ ト 7 が リセ モット (READY) の 状態 に な 
り , WR I TE する と &HFD05 の ビッ ト 7 が セッ ト 
(BUSY) の 状態 に な る . 





娘 剖 を 書く の が 苦手 な の で , か な り 雑 な 説明 と な り ま し 
だ た が , 説明 を 読ん で いた だ く よ り も プロ グラ ム を 見 て いた 
だ いた 方 が よく 理解 し て いた だ ける と 思い ます . 


上 ナーン スー ム ム 大 送 プロ グフ /、 EEEEEEERIEEERE 








Q0010 5QOQQ ORG ま 5O0O 
00020 し 1 

QQ003Q し 

00040 * 

QOQOSQ DSB6 SADD EQU ま D3B6 
00060 DSB1 TYFE EQU まま DS31 
QQQ7O DS8QO CMAND EQGU ま D さ BO 
00080 DS382 MTYPE  EGU ま DSB2 
Q009O FDO5 HLT EQU まま FDO5 
00100 し 4 

Q011O し 4 

00120 * 

QO1 さ O 5OQO Bo6 FDO5 START  LDA HLT 
QO140 500 2B FB 50QO BNMI START 
QQO15SQ 5QQ5 1 SO ORCC 韻 村 5O 
0016Q 5007 6 Bo LDA 韻 ま BO 
QO170 5OQ9 EZ FDO5 STA HLT 
OO1BO 5QoOC 8BD SD SO6B BSR MDUVE1 
QO19O SOOE 7F FDQO5 CLR HLT 
QO200 5O11 BE OoQ0Q LDX #O 





oo21o ー1,X 
oo22o L1 

Qo23oO HLT 
oo240 MarT2 
oo25o PaT さ , PCR 
oo2eo END。FCR 
oo27o *2000 
oo2Bo 間 $FF 
oo2o 共和 $BO 

OO さ oo HLT 

oo さ 1O HLT 

00 さ 2o 。U+ 

QO さ 3O *FCB1 

00 さ 40 *FCBO 

Qo さ 5o HLT 
0036O *FDO5 


QO さ 7QO HLT 
0038O SMUV1 
Q00S さ 0 幕 和 あ BO 
OO0400 HLT 
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サ プ ブシ ステ ム 転 送 プ ログ ラム 




















00410 5O4Q BZ  FDO5 STa HLT ol1oo * ネ 
OO420 5O4D B6 FCB8O LDA *FCBO O1110 * 
Q04 さ O 5O5O 26  EB 503A BNE SMDV2 o112o 111113616111411661111161111 
00440 5O52 11EB3 2000 CMFU  *2000 Q11SO ネ ネ 
Qo450 5o56 26  D2 5o2a BNE SM ロ V O1140 に LABEL TABLE * 
0046O 5O5B B6  O1 LDa 募 ま 1 O115o ネ ネ 
QO470 5O5A BZ7 FCBO STA *FCBO Oo11eo オ ネ ネ ネ 素 末 末 氷 杯 水 氷 氷 氷 水 氷 氷 氷 氷 氷 
OO4BO 5O5D 7F  FDo5 CLR HLT O117o 5OEE DaTA  EGU 1 
QO490 5O60 7F  FDO5 CLR HLT Oo118o *FCB $EO 
Oo5oo 5o63 BE oooo LDX 幕 O 01190 *FDB BMDVE-DATA 
QO510 5O66 3O 1F L さ LEAX  -1,X Oo1200 *FCB *5O 
Oo520 5O6B 26 FC Soee BNE L さ Q121O *FDB BEAM-DATA 
OO53Q 5O6 さ 9 RTS Oo122O *FCB $20 
00540 5O6B 108E FC8O MOVE1 LDY 間 和 FCBO 0123O *FDB KEYIN-DATA 
Oo55O 5oeF さ O  BD oooa LEAX TABLE1。FCR O1240 *FCB $*BO 
Oo560 5073 C6 4 さ LDB #END1-TABLE1 ot25o *FDB SPCB-DATA 
Q0570 5o75 A6 BoO MOV1  LDa ュ メ エ O126O *FCB $F1 
OO580 5077 a7 ao STA ュ Y エ Oo127O *FDB BUM-DATA 
OOS90 5079 5a DECB 0120 *FCB $ ま DD 
oo600 5o7A 26  F9 5075 BNE MOV1 Q1290 *FDEB BEAMM-DATA 
OO610 507C さ 9 RTS O13oo #FCB ま 16 
0Qoe62O 5o7D oo TABLE1 FCB 0。0。$ さ F O1S1O *FDB SFC16-DATA 
507E 0o 01 さ 2O *FCB $ ま 1 
5o7F SF Q13 ミ O *FDB BB-DATA 
00630O SOBO 59 FCC /YaMAUCHT/ O1340 FCB $2 
SO81 41 Q1 さ 5o *FDB GM-DATA 
SQB2 4D 0O1 さ 6O *FCB $ さ 
5OBS 41 O1 ミ 7O *FDB BR-DATA 
SOB4 55 O13BO *FCB $4 
SO85 4 さ 01 さ 9O *FDB GK-DATA 
SO86 48 O140Q *FCB *AO 
SO87 こと Q1410 *FDB STAR-DATA 
Oo640 5Q88 9 さ FCB *9 さ O142o *FCB $BO 
OO65O 5OB9 D<BF FDB PAT1-TaBLE1+$DSBO| | 。14<o *FDB MBO-DATA 
OO660 5OBB 9o FCB *9O Oo144o *FCB * ま CO 
0067O 5oBC PaT1 EQU 3 Q145o *FDB MEO-DaTa 
006BO 5OBC BZ7  D4OA STA * ま D4OA Oo142o *FCB $EE 
OO690 5OBF B6  D4O8 LDA $ ま D4OB O147Q *FDB Ya-DATA 
0Q0700 5092 B6  D409 LDa *D409 Oo148O FCB $ さ さ 
00710 5095 B6  D4Oa LDA $D4OA Oo149o *FDB PRMES-DATA 
00720 5ogB CE Cooo MOVE 。LDU COOO Oo15oo *FCB まさ 4 
007 さ O 5O9B 7F DSBO MOVEA  CLR *D さ BO Q1510 *FDB MES-DATA 
00740 5O9E 7F  D3BoO CLR * ま D さ BO 0152o FCB まさ 5 
OO750 5OA1 7F  D3BO CLR *D さ BO Q153O *FDB CLEAR-DATA 
QO760 5OA4 B6  D4OA MOV11 LDA ま D40A 01540 *FCB $ さ ら 
Oo0770 5OA7 B6  D3BO LDa *D さ 8O Q155O *FDB CLE-DaTA 
007BO 5OAA 27  FB 5Oa4 BEQ MnV11 Oo152o *FCB $ さ 9 
OO79O 5OAC B1  O1 CMPA 間 1 Q157o *FDB MEN-DATA 
ooBoO 5oAE 27  QD 5oBD BEQ MOV21 Oo15go * 
OOB10 5OBO B7  D4OA STA *D40a Q159O * 
00B20 5OBS 7  D4OA STA *D40A 016oo * 
OOBSO SOB6 B6 DSB1 LDa *D さ B1 01410 内 
OO0840 5OB9 A7 CO STA 。U+ 0162o * 
OOB5O 5OBB 20 DE 5o9B BRA MOVEA O163O 内 
OoB60 5oOBD 7E Cooo MOV21 JMP *COOO 01640 * 
OOoB70 5oCo 0001 END1 RMB 1 O145o 内 
QQBBO 5OC1 7F DS3Bo PAT さ  CLR *D さ BO Q166o * 
OOB9Q 5OC4 10CE CFFF LDS PFFF 0167O 
OO900 5QCB 7F  D3BO CLR *D さ BO Q168o * 
00910 5OCB 7F DS8O CLR *DSBO 0169o 内 
00920 5QCE B6  D4OA FATA  LDa *D40a 0170O = 
OO9 さ O 5OD1 B6 DSBO LDa *D さ BO 01710 
00940 5OD4 27  FB SOCE BEQ FATA 0172o 
0095O 5OD6 BZ  D4Oa STA ま D4Oa 0173O 内 
Q0960 5OD9 BZ  D4OA STA * ま D4Oa 01740 * 
O0970 5ODC さ O  BD OOoOC LEAX DaTa-2,FCR 0175O * 
O09BO 5OEO さ O 02 FA1 LEAX 2。X Q1760 内 
00990 5OE2 A1  BO CMPA 。 。X+ 0177O 内 
Q100O 5OE4 26 Fa 5OEO BNE Fa1 Q17BO 由 
01010 SOE6 EC  B4 LDD ぁ ょ ん 01790 5OEE ooo1 END RMB 1 
01020 5OEB さ O  BD Qoo2 LEAX DaTA。FCR 01BoO 5ooO END STaRT 
O103O 5OEC 6E BB JP D,X 
0Q1040 1 
0105o * 
O106O * 
O107O ネ 
O108O 3 
o109oO * 
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長年 使い 慣れ た MZ- 80K( そ う , あの 便利 な DISK と も ) と 
別れ て , F M-8 と 付 合 う よう に な り , MZ で 作っ た ソフ ト 
を 使わ な い の は , M 有 Z が か わい そう と 思い , 移植 し た の が 


この プロ グラ ム で す . 研究 室 に も FM-8 が ある の と , 68 系 
に 強い 川久保 氏 の 協力 で パッ チ で きま し た の て 発表 し ます . 
な お, 今回 の パッ チ の 際 に 使用 し た , 6809 ア セン プラ , 
逆 ア セン プラ お よび MZ テ ー プ の FM-8 へ の ロー ド ・ プ ログ 
ラム は 次 の 機会 に 発表 し ます . を う ご 期 待 ./ (すべ て マシ 

ン 語 ). 


Z80 カ ー ーー 


図 1 を 見 る と わか る と 思い ます が RESET 後 は 必ず 68 
09 か ら 始 まり ます . そし て FD05 番地 に 01H を 書き 込む と , 
6809 の PC は その 命令 の 次 の 番地 を 示し た まま HALT に ヵ 
り , 80 に 実行 が 移り ます . 選 80 は RESET が か か っ た ま 
ま WAIT に な っ て いた の で , PC は 0 番地 で あり , ここ か 
ら 実 行 を 始め ます . 

その 後 は 図 に 示す 通り で , 切り 換え デー タ を F D05 番 地 
に 書き 込む 命令 を 実行 し た 後 の PC を 示し た まま , 移行 す 
る の で す . 

注意 し て いた だ きた い の は , に 和 隊 お 人 
な が ら プ ログ ラム を 作ら な けれ ば な ら な いこ と で す . 図 2 
に その プロ グラ ム 例 を 示し ます . 

まず , 6809 で 0 番地 か ら Z 乙 80 用 の JUMP 命令 を 書い て 
お きま す . これ は RESET 後 の た め に , そし て 有 乙 80 か ら 68 
09 に 大 る 命令 の 次 に , 再度 。 80 に 移行 し た と き に , ST- 
ART 番 地 へ 飛ぶ 命令 を 書い て お きま す . こう し て お け ば , 
常に 80 へ 移行 し た と き 決 っ た 番地 より 実行 する こと に な 
の 5 ます 3。 

F M-8 で は 80 使 用 時 の こと を 考え て か , 0 番地 か ら と 
38⑯ 番 地 か ら と 6606 番 地 か ら そ れ ぞ れ 3 バイ ト 分 , 使っ て 
いな いよ うな の で , RST 38H や 、 NMI, な ど が 使え る よう 
で すず -。 

な お , 研究 室 の FM-8 で は 80 か ら 移 行 し て きた と き に 
実行 し な い (1 バイ ト を フェ ッ チ し 忘れ る ? ) 命令 が ある 
の で , NOP を 入れ る よう に し て いま す . 皆さん の FM-8 
MA207 で ヒレ ょ うか ・ 一 度 調べ て みて は 


の 0 ィ ス アセ ンク 


ログ プペ ベ は 。 参考 献 1) に 改良 を 加え た も の に 。 き 
ら に FM-8 用 に パッ チ し , BIOS を 通す よう に 6809 の プ 











田 近 藤 孝 吉 
画 川 久保 除 


DOU DCY DO 
Pk 


すす ff 


軸 き 
1 44 
% 





ログ ラム と 合わ せ て あり ます . 


《 使 用 法 》 

リス ト を 打ち 込ん で か ら 走 ら せ る 前 に セー ブ し て お いて 
くだ さい . 一 度 走 ら せ る と 自分 自身 で プロ グラ ム を 書き 変 
えて いる ため, セー ブ し て も 次 の ロー ド 後 は 正常 に 動か な 
く な る の で , 

SAVEM バ Z80DISAS? , 

科 H5000 
し 3 で セー ジグ し ま 必 ょ ず 。 
コマ ンド は 表 1 に 示す と お り で , 


科 H5000, 和 &H5DAF, 


特に 説明 は いら な いと 思 


いま す . な お , 一 度 走 ら せ る と , [PF-5] が EXEC/ 上 CHR 
$ (13) と な る よう に な っ て いる の で , その 後 BASIC に 戻 


っ て , 再度 走ら せる 場合 は (EXEC ア ドレ ス を 変え て いな 
けれ ば ) |PF・5 | を 押せ ば よい の で す . 

それ と 自動 的 に WIDTH40,25 CONSOLE0 ,25, 0 
0 COLOR 7 を 実行 する の で , 80 字 に し た い 方 は , モー ブ 
前 に 5D6F 番 地 を 50H に し て くだ さい . カラ ー は 5D89 番地 
に 表示 し だ たい 色 の カラ ー コ ー ド (0O1H 一 07H) を 書い て く 
だ さい . 

図 3 は CRT へ の 出力 の ハー ド ・ コ ピー, 図 4 は PRIN 
TER へ 出力 し た も の で す . CRT へ の 出力 は 家庭 用 テレ ビ 
使用 時 を 考え て 40 字 モー ド に し て いま す が , 詰まっ て いて 
見 に くい と いう 方 は 上 記 の よう に し て くだ さい . 

な お , PRINTER へ の 出力 時 ペー ジン グ は , フ ォ ー ム ・ フ 
ィ ー ド を 使わ ず , MP-80 の ステ ッ プ ・ パ パー フォ レー ショ ン 
を 使っ て いま す . これ は , ロー ル 紙 を 使う 場合 に 少し で 
も 紙 の 使用 量 を 減ら す た め で す . 

また , 忌 80 の SP は 6E00H に , ラベ ル ・ エ リア は プロ 
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、 
Pw 


0 


10 


図 1 6809, 


Z80 切 り 換え 








電源 ON 時 ・RESET 時 





デーーーー ュ 


1 1 
ヒーーーー-! PC=0000H 


3 た の で , O000 番 地 よ り 実 行 を 
PC= 
=0009 ①②③ 






6809 が FD05H に 01H を 書き 
込む と , Z80O は RESET が か か 
っ た 状態 で WAIT が か か っ て い 


始め る . 


Z80 が FD0 5H に 00H を 書き 込む と , 
6809 は FD0 5H に 01H を 込ん 
の 命令 より 実行 を 始め る . 


詳 


6809 が FD05H に 01H を 書き 込む と , 
Z80 は FD05H に 00H を 書き 込ん だ 次 の 命 
令 よ り 実 行 を 始め る . ⑥⑦ 








図 2 プロ グラ ム 例 





EXEC & H6000 の 場合 


6809 
6809 Z80 
6000 LDA =$C3 7000 
STA 0000H 
LDD ミキ $0070 Z80 て 実行 させ る プロ グラ ム 
STD 0001H 
LDA ミミ $01 LD A.00H 
STA FD05H LD (FD05H),A 
RTS JP 7000H 

















ディ ス ・ ア セ > 。 
ラベ ル ・ エ リア ・ ク リア 


PRINTER モ ー ド に する . 





ラベ ル 登 録 

ディ ス ・ ア セン プル 中 の 一 時 停止 . 再度 押す と 統 行 . 

ディ ス ・ ア セン プル 中 の 中 断 ,BREAK, コマ ンド 待ち へ . 

ディ ス ・ ア セン ブル 中 , お よび コマ ンド 待ち より BASIC ヘ リ 
ター ン . 








コマ ンド 待ち の と き , BASIC ヘ リタ ー ン . 

















図 3 
** 。 ZBQO_DISASSEMERLER  *※*※ 
1C 
CRT MODE 
Ja 
FRQM 51QQO TO 52oo 
JR 
REGISTER LREEL アス ポー 
END う 3 パル だ の 
JD ーー つつ FT 
100 ED7EOE51 L51QQ:LD SP。(L510E)CK ロ 
104 3C151 JP L51C1 テテ 
* 
5107 Q1211E LD EC。L1ES1 
51Q0a aD LE10RsiXOR L ュ 
51OE SE LD EE 由 
51Q0C OQ NQF 
1 
Ready 
HARDC 











出力 を CRT と PRINTER の 両方 へ 行なう モー ド に する . 
上 記 を 解除 する . 


BASIC か ら の スタ ー ト は EXEC &H5000 で す . 

















グラ ム ・ エ ンド か ら 6D00H ま で , そし て プロ グラ ム は スタ 
ー ト 後 5000H 一 6FFFH ま で に 広がっ て 入っ て いる の で , 誤 
っ て つぶ さき さ な い よう に / 






ドー -80 に つい 記 


MP-80 シ リー ズ は , TYPE1, 2 と も に , メカ は 同じ で 
内 部 の ソフ ト が 違う だ け で す . また だ た, TYPE2 の PC 用 は 
普通 の TYPE2 の ディ ッ プ ・ ス イッ チ の 設定 を 変え て ケー 
プル を つけ て いる だ け で す . 
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図 4 
** 。 Z ヨ QO DISASSEIHBLER FAGE Q1  ※ て 
1QO_ ED7EOE51 L5100』 LD SF ,。 (LEB1QE ) CK 0 
5104 CS さ C151 JF L51C1 の テ チ Q 
日 

ョ 107 O1211BE LD BC。L1B21 
51on AaD L510ai XUR 回 ュ 
51QOBE SE LD E,E 則 
510C _QO NOF 

51oD 6D LD し し 本 








これ は MB27401 に つい て も 同じ で ., 実は 普通 の TYPE 2 
な の で す . だ か ら , FM-8 用 に プリ ンタ を 買わ れる 方 は M 
P-80F/T TYPE2 と ケー ブル MB26504 を 買っ て ディ ッ プ 
・ ズ スス ッ チ の 計 5。 7.、.2 こ 052823 べ て を ,。.」O FE だす ずれ 
ば よい の で す . 普通 紙 も 使え て 便利 で す 

た だ し , MP に も いろ いろ バー ジョ ン が ある らし く , 初 
期 の も の は ESC M(96 桁 モー ド ) が ある の に , 現在 の も の 
は な い の で , 確実 と は 言い きれ ませ ん が , 私 の 知っ て いる 
1 合 は OK で し た . 


ョ j お わり に 上 


6809-Z80 問 は , どん な プロ グラ ム か ら で も 移行 が で きる 
よう に し て あり , ほか の プロ グラ ム か ら で も (Z80 か ら ) 
BIOS を コー ル す る こと が で きま す . この プロ グラ ム に つ 








,0 


いて は , 次 の 機会 に 発表 し ます . 参考 文献 
以上 いろ いろ と 書き まし た が , FM-8 を お 使い の 方 の 参 1 ) イン ター フェ ー ス .,。 80 年 4 月 , p.131, CQ 出 版 社 
考 に な れ ば 幸い で す . 2 ) FM-8 ユ ー ザ ー ズ ・ マ ニュ アル ・ シ ステ ム 人 解説 。 富士 
通 . 





還 昌 セン プラ ダン プ ・ リ スト 
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dd +O +1 +2 ユミ +4 + ロ ロ +6 +Z7 +8 49 +A +B +C +D +E +F Sum 
5900 CZ 1EB 52 5 さ D4 F8 9 26 FF DE Q ミ 5 ミ 42 CS FB 59 giD1 
5910 O1 FF D6 02 5S 55 C2 FB QB O1 FF EE Q2 58B 4F D2 :4E 
5920 QO_QQ CO 4Q0.05 42 49 D4 CO BO QOS 52 45 D さ 3 CO CO :9 さ 
5930_ 05 3 45 D4 FB 10 01 52 CC F ヨ 18 Oo1 52 D2 FB OO iC5 
5940 01 52 4C CS FB QB Q1 2 52 C さ FB 2Q0 Q1 3 4C 1 :4 さ 
5950 FB 2B O1 53 52 C1 FB 38 Q1 53 52 CC QQO 9 4 さ 50 si65 
5960 C4 B9 4 さ 0 44 D2 Q1 4 さ 5O C9 BEB1 4 さ 5Q 49 D2 QR s2C 
5970 49 4E C4 BQ 49 4E 44 D2 2 49 4E C9 B2 49 4E 49 :56 
9B0 D2 QB 4C 44 C4 BB 4C 44 44 D2 QaO 4C 44 C9 RBO 4C gz21 
5990 44 49 D2 44 4E 45 C7 BE 4F 54 44 D2 BS 4F 54 49 s:10 
59QQO _D2 AE 4F 55 54 C4 QS 4F S5 54 C9 4D 52 45 54 C9 :5E 











Bum 

5 さ 人 4 

57F 

s7F 

98 

5 94 

iC4 

さ 

に 】 

5DBQO 4 さ QD 3 さ Q BC CE ささ BC FQO 6 07 B7 01 ES EF 02_ B6 i2R 
5D9O 10 a7 B4 6F O1 6 BO 7 05 aD 9F FB Fa 33 BC CB i2B 
DAO EF Q2 6F Q1 aD 9F FE Fa 6F BC a7 16 FE AR _QQO_QO_ iQS 
SDEO OO OO QO OO OO 00 00 OO 90 OO OO OO 0O0 00 0O 00 siOQO 
SDCO 00 QQ QQ Q0 QQ0 QO QQ QO QQ OO _QO _QO _QoO _QO _ QQO 0QO giQO 
SDDO OO OO OO OO QO 00 QO QQ 00 OO QO _QO _QO 00_ 00 00 siOO 
5DEO _QOQ OO _QQ OO OQ0 QQ_ QQO_QQ _QO _QO _QO_QO_QQ _QQO_QO_QQO_ iQQO 
5DFO OO OO OO QO0 00 QO QO 0QO QO OO _QO OO _QO 00 QO QO iQOO 


9 
5 




















ぐ FM-8 
EE 議員 


周 IIIINWIIMI 


狐 周 久 関 移 有一 学 ジ 


FM- 8 を 持っ て いる 人 で , 乙 80 ソ フト カー ド を 持っ て い 
る 人 は 多い と 思い ます . し か し , 乙 80 ソ フト カー ド の 使用 
に あたっ て , マニ ュ ア ル に Z80 の 起動 法 が 書か れ て いな い 
た め , 使え な いで いる 人 も 多い の で は な いで し ょ うか . 

Z80 を 起動 する の に は , FD05 番 地 に 1 を 書き 込み , 68 
09 に 戻す に は , FD05 番 地 に 0 を 書き 込む だ け で よい ( 注 
1) の で す が , それ だ け で は , 6809 で Z80 の PC を 制御 で き 
な いた め , 工夫 し な いと 『 リ セッ ト を か け な け れ ば 動作 し 
な い プ ログ ラム 』」 な ど し か で き な く て , 非常 に 不便 で す . 





6809… つ 有 Z80 COMMUNICATER は , FM- 8 上 で 6809 か ら 
ァ 80 の サブ ルー チン を コー ル し た り , また その 逆 の コー ル 
を する た め の プ ログ ラム で , これ は リセ ッ ト 直 後 で も , 他 
の プロ グラ ム (ZZ80 の ) を 実行 し た 後 で も , 同様 に 働き ま 
す . また 相手 側 プ ロモ ッ サ の サブ ルー チン ・ エ ント リ ・ ア 
ドレ ス を 用 意 す る だ け で 動作 させ る こと が で き て , あ た だ た か 
も サブ ルー チン を コー ル す る だ け の よう に 扱え る プロ グラ 

ム で す ( 涼 2) 
また 合わ せ て , 我々 が 各種 プロ グラ ム (6809 用 アセ ンプ 
ラ , ディ ス ア セン プラ トレーサ ,。 Z80 用 アセ モン プラ ,。 デ 
ィ ス アセ ンプ ブラ な ど ) で 使っ て いる 入出 力 ル ー チ ン も , 紹 
介し ます . も ちろ ん , この 入出 力 ル ー チ ン も , 6809-Z80 
COMMUNICATER を 通し て 乙 80 か ら コ ー ル で きま す . 
注 1) 1, 0 以外 は 書き 込ま な いこ と ! 特に 80H を 書き 込 

むと [RESET| を か け な い 限り 動か な く な り ま す . 

注 2) た だ し , この プロ グラ ム を 使わ な いで Z80-6809 の 
切り 換え を 行なう プロ グラ ム を 実行 し た 後 で は で きま せ 
ん . FM- 8 の Z80 用 プロ グラ ム に は すべ て この COMM- 
UNICATER を 使い ます . 





COMMUNICATER は , 6809 か ら 乙 80 を コー ル す る COM 
09 と , 80 か ら 6809 を コー ル す る COM 2Z80 の 2 つの プロ グ 
ラム と 共通 の デー タ ・ エ リア か ら な っ て いま す . その 動作 
を 図 1 に 示し ます . 





図 1 6809-Z80 COMMUNICATER の 動作 (…:6809 か ら Z80 を CALL し た 場合 ) 








スタ ッ ク に ある リタ ー ン 
・ ア ドレ ス を フェ ッ チ し , 
共通 エリ ア COMENT に 
書き 込む . 


スタ ッ ク に ある リタ ー ン 
・ ア ドレ ス を フェ ッ チ し , 
共通 エリ ア COMENT に 
書き込む. 


リタ ー ン ・ ア ドレ ス を 2 つ 


CMF:Call ModeFlog 

1: 相 手 を サ プ ル ー チ ン 

・ コ ー ル する . 

0: 相 手 か ら 戻 る . 
AccA(Z80) つ COMA 
DE(Z80) 一 COMIX 


ル 


0 
COMA 一 AccA(09) 
COMIX つ IX(09) 


COMENT て で て 示す アド レス ICOMENT て 示す アド レス | 
に サブ ルー チン ・ コ ー ル に サブ プ ル ー チ ン ・ コ ー ル 
する . する . 





* ネ 上 位 バ イト 下位 バイ ト を 交換 する . 














ここ で 6809 か ら 乙 80 の サブルーチン を コー ル す る 場合 の 
動き を 点線 で 示し ます . この と き COM09 に よっ て コー ル さ 
れ た Z80 の サブ ルー チン の 中 で COM 2Z80 を コー ル し , 6809 
の サブ ルー チン を コー ル す る こと は 可能 で す . 

し た が っ て , 6809 が Z80 の サブ ルー チン を コー ルレ し, コ 
ー ル され だ た Z80 の サブ ルー チン が 6809 の サブ ルー チン を コ 
ー ル し , また その 6809 の サブ ルー チン が Z 乙 80 の サブ ルー チ 


71 


0 


表 1 入出 力 サ プ ブルー チン 


表 2 COM09 お よび COMZ80 の 使用 例 














上 導 ARI| 機能 | レジ スタ 
OUT CH |0000H | AccA を スク リー ン ま た は プリ ンタ に 出力 . | すべ て 保存 
IN CH IsH KEY 入力 デー タ を AccA に 入れ る . AccA 以 外 保存 


X レ ジス タ て 示さ れる アド レス か ら タ ー ミ ネ 
OUTLIN | 0006H | 一 タ (0DH) まで を , スク リー ン ま た は プリ ン | すべ て 保存 
タ に 出力 . 





CR を 押す まで KEY 入力 デー タ を 取り 込み 
X レ ジス タ の 示す マ ド レ ス か ら 順 に 並べ る . 
最後 は (0DH) 最 大 入力 文字 数 80 字 . 

KEY 入力 を チェ ッ ク す る . 

通常 0 つ AccA 


IN LIN 0009H すべ て 保存 








BREAK |000CH 


AccA 以 外 保存 





COMMUNICATER の 初期 化 . 


画面 の 初期 設定 . 
START |000FH 保存 され な い 


に 相当 . 
その 後 001BH に ジャ ンプ . 





CRLF 0012H | キャ リッ ジ ・ リ ター ン , ライ ン ・ フ ィ ー ド すべ て 保存 





ユー ザー・ プ ログ ラム の ホッ ト ・ ス ター ト 番 地 


HSSTART 0018H 
へ の ジャ ンプ 命令 た ここ に 入れ る . 





ユー ザー・ プ ログ ラム の コー ルド ・ ス ター ト 番 


CSTART | 001BH 
地 へ の ジャ ンプ 命令 を ここ に 入れ る . 




















@CSTART,。 HSTART は , 入出 力 サ プ ブルー チン で は あり ませ ん . 


悪 INCH お よび BREAK が 呼ば れ た と き の KEY 機 能 は 次 の と お り で す . 


:・ BASIC コ マン ド 入 力 レ ベル に 戻る ($D8C2). 


Control X 


の 9 雇 
Control R : プリ ンタ ON 
Control Q : ブ プリ ンタ OFF 
ESC キ ー ま た は SPACE KEY 


・F-BACIC で の ESCKEY と 同じ (BREAK ル ー チ ン の み ). 


免 罰 上 の ブロ グラ ム は すべ て BIOS を 通じ て いる ($FBFA). 


ッッ レ スズ 2 スタ ッ ク ・ ボ イン を グル 少 壮 法 シ ・ コ ー 
ル さ れる 前 の 状態 に 戻し , (0018H) に ジャ ンプ (ここ 
か ら ユ ー ザ ー・ プ ログ ラム の ホッ ト ・ ス ター ト に 飛ぶ ゞ 





(1 )6809 か ら 乙 80 を コー ル す る . 





BD6E45 JSR $6E45 COM09 の エン トリ ・ ア ドレ ス 
5A 80 FDB $5A80 Z80 の サブルーチン の エン トリ ・ ア ドレ ス 





(2 ) 有 Z80 か ら 6809 を コー ル す る (RST38H を 使用 し た と き ). 





FF RST 38H COMZ80 へ 
09 68 DEFW 6809H 6809 サ プルー チン の エン トリ ・ ア ドレ ス 





(3 )Z80 か ら 6809 を コー ル す る (CALT 命 令 を 使用 し た と き ). 





CD006E CALL 6E00H COMZ80 の エン トリ ・ ア ドレ ス 
09 68 DEFW 6809H 6809 サ プル ー チ ン の エン トリ ・ ア ドレ ス 














表 3 有 Z80 か ら 入 出力 サ プ ブル ー チ ン を コー ル す る 例 





( 1 ) AccA を 使っ て 6809 に デー タ を 送る (1 廊 字 出力 ). 





LD A,41H 出力 デー タ "A" 

RST 38H 

DEFW QUTCH 1 文字 出力 ルー チン ・ エ ント リ ・ ア ドレ ス 
RET 





(2 )DE レ ジス タ ・ ペ ア を 用 いる (BIOS を コー ル ). 








LD DE,RCB FM-8 Reguest Control Bsueth 
RST 838H 
DEFW BI0S 
RET 


BIOS EQU $F2D8(ROM BASIC 時 ) 

















表 4 Z80 デ ィ ス アセ ンプ ブラ の 変更 点 




















シン 称 光 変更 前 | 変更 後 
506B 6E6A 6E72 
5C18 86C39700 31006E21 
5C1C 9738308C 030018AB 
5C20 CA1F101IE 86C39700 
5C24 89DD0130 9738CC6A 
5C28 88C31F10 6EDD01CC 
5C3C 1E89 006E 

















通し て 行なわ れ ま す . その 使用 例 を 表 3 に 示し ます . 








ン を コー ル す る と いう よう な こと を 繰り 返す こと も , それ 
ぞ れ の スタ ッ ク が 許す 限り 何 重 に も ネス ティ ング で きま す . 





表 2 に この COMMUNICATER の 使用 例 を 示し ます . 

COM09。 COM 2Z80 の 2 つ は どちら も 相手 側 プ ロモ ッ サ の 
サブ プ ブルー チン ・ エ ント リ ・ ア デア ド レス を COM09, COM Z 80 
を コー ル し な た 命令 の 次 の 2 バイ ト か ら 取 る こと に な っ て い 
る の で , JSR$S6E45 ま た は CALL6E00H, REST38H を オ 
ペレ ー ト と し , 相手 側 プ ロモ ッ サ の サブ プ ル ー チ ン ・ エ ント 
リ ・ ア ドレ ス 2 バイ ト を オペ ラン ド と する 1 つの サブ ルー 
チン ・ コ ー ル 命令 と 見 る こと が で きる よう に な っ て いま す . 
そし て サブ ルー チン 実行 後 は 。 オペ ラン ド に あたる 2 バイ 
ト の デー タ の 湊 の 命令 の アド レス に 戻っ て くる よう に な っ 
で MVW ま す 。 





プロ モッ サ 間 の デー タ の 受け 渡し は , AccA (6809) 一 
AccA (Z80),X (6809) 一 DE (Z80) の 各 レ ジス タ を 
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以上 の こと か ら , この COMMUNICATER を 使う と , た 
だ 単に サブ ルーチン を コー ル す る だ け の よう に し て , 6809 
か ら 有 乙 80 を , 80 か ら 6809 を コー ル す る こと が で き , プロ 
グラ ム の 作成 が 簡単 に 行なえ ます . 





この COMMUNICATER と 入出 力 ル ー チ ン を ユー ザー・ 
プロ グラ ム と リン ク し て 使う 場合 に つい て 説明 し ます . 

ソー ス ・ リ スト に 示し た プロ グラ ム は , COMMUNICA- 
TER と 入出 力 ル ー チ ン を まとめ て ロー ド す る よう に な っ て 
いま す . それ は 入出 力 ル ー チ ン の 部 分 が リロ ケー タプ ブル で 
ある だ ため で, あい て いる 所 に ロー ド で きま す . 

じ だ た が っ て 。 表 の エン トド ト 加 ドレ ポ き か ロード し た 
アド レス の 先頭 か ら の オフ セッ ト に な り ま す . 

リロ ケー タブ ル で な い COMMUNICATER の 部 分 は , 
START ル ー チ ン を 起動 する こと に よっ て 所 定 の 位置 (6E 
00H 一 6E70H) に 移さ れ ま す . 

また , START ル ー チ ン は その 後 , 画面 の 初期 化 を 行 な 
い 。 入出 力 ル ー チ ン の 先頭 か ら 001BH オ フ セ モ セット さ れ た 
アド レス に ジャ ンジ する の で 和志 三 に テー ザー マン セグ 


ム の コー ルド ・ ス ター ト ・ ア ドレ ス へ の ジャ ンプ 命令 を 書 
き 込 ん で お け ば よい こと に な り ま す . 

また 0018H に ユー ザー・ プ ログ ラム の ホッ ト ・ ス ター ト 
・ ア ドレ ス へ の ジャ ンプ 命令 を 書き 込ん を で お け ば (INCHi 
BREAK ル ー チ ン の KEY 入力 機能 を 利用 する こと に より ), 
ホッ ト ・ ス ター ト が で きま す . 

ユー ザー・ プ ログ ラム が ZZ80 の プロ グラ ム の 場合 は , 
COM09 を 通し て , 80 プ ログ ラム の ホッ ト ・ ス ター ト , コ 
ー ル ド ・ ス ター ト を コー ル す る よう な プロ グラ ム を 作成 し , 
そこ へ ジャ ンプ ずる は らち に ず 和 ば ま ゆで じ ぶ よう. 

また COM09, COM 280 を それ だ け ユ ー ザ ー・ プ ブロ グラ 
ム と リン ク し て 使う 場合 .。 リ セッ ト 時 と リス ター ト 時 の (Z 
80 の ) ジャ ンプ 命令 を 書き 込ん で お く イ ニシ ャ ライ ズ ・ ル 
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この 2 つの ジャ ンプ 命令 で す . し た が っ て これ を 書き 込 
ん で お いて くだ さい . 





前 回 発表 し た 有 Z80 モ ルフ ・ デ ィ ス アモ ンプ ブラ に も , この 


COMMUNICATER と 同様 の も の を 使っ て いま す が , ディ 
ス ・ ア セン プラ の I /O プ ログ ラム (転送 きれ た も の ) と 今 
回 の COMMUNICATER で アド レス が 重なっ て いる 部 分 が あ 
る た め , この コミ ュ ニ ケー タ を 使っ た プロ グラ ム と ディ ス ア 
セン プラ を 同時 に は 使え ませ ん . 同時 に 使う た め に は ディ ス 
アセ ンプ ブラ の 変更 を 表 4 の よう に 行なっ て くだ さい . 


ー チ ン が 必要 に な り ま す . その 設定 値 は , 
JP 6E6AH | RESET 時 
JP 6E00H | RESTART 38H 時 





0000 C36A6E 
0038 C3006E 








(0 コミ ュ コー ニー ン ーー ショ ン プロ グラ ム ・ リ ス | EE 





QOO1O NAM CHMQO 

OOOSO 6E45 RG 6E ビ 4 

OO0OSQ ※ 

OO040 * Eommunication pFogFam ( M68B059 ) 
OOQO55O ※ 

OOQO60 6E45 44 6D CUMO9 PFSHS U。Y.DP。B。 じ EC 


OOQO フ 7O 6E47 EE 67 LDU jm † etcCh rt 上 uurn adF 握 呈 呈 
OOOBO 6E49 アプ 2O FULU WW ft に h entry adgdr。 ( Z-8Q ) 
OOQ ウ O _ 6E4B EF 67 STU アー FeStore Feturn addr。 
OO10OO 6E4D 109F 0 フ 7 STY EEHMENT set entry ( to Z-BO ) 


Q0110 6ES5O_ C6 91 LDE 拉 1 
OO1SO 6EBS CE O00Z SETZBQO _LDU 


et CMF  ( 1ica11) mode ) 
韻 EHMENT point COmmOT Fa 








QO13O 6ES5 ミ 16 FGSHU X』H,』 各 eXChanq ら req ロ isters and CMF 
00140 ※ ( XーDE』 人 ロー 人 BEMF ) 
QQ15O 6E57 C6 91 LDE 菩 1 to Z8QO ( CNTZ8BO=1 ) 

QO16O 6E59 F ア FDQ5 STE CNTZ8BQ 

Q017O ※ 

OO18O *※ モロ Z8BO 

QO019O 二 im の mi の ーーvarosimwimam の mm 

OOSOG * from ZBO ヽ 

OOS1O ※ 

OOSSO _ 6E5E 1 NOF' 

OOSSO 6ES5D ミア 16 FULU X。』 日 。 各 exChang ら req15ster5= and CMF 

QOS4O _ 6E5F 5D TSTE test CMF 

OO2SO 6E60 人 ダフ 05 6E6 フ 7 BEG RETZ8O 

QOS6O * 

OOS プ 0 * 1]f cal1ed by Z80 

OOSBO ※ 

QOS9O 6E62 aD D4 JSR E』U] julmD to subroutin ( M6809 ) 
6E64 5F CLRE CleaFr CMF  ( Qisreturn ) 
6E65 SO EE 6E52 ERA 人 SETZ ヨ O return to Z8O 

率 
*※ Return fFom Subroutine ( Z8O ) 

9 けさ ※ 

OO35O 6E67 35 ED RETZ8O_FULS BSUSVY saDP Bs 6 

OO さ 6O ※ 

*※ COmmOn aFGa 。 ( M6BO9-Z8O ) 

OOSBO * - 

O0 ゴ 9 OOG CONM EGU ., 5 人 Cc 谷 

0040O OOO 人 4 CMF EGU 邊 Ca1 1 mod 1a ロ 

QOQ410 OOQ5 CHMTX  EGU ら メー ビュ 1 上 

004 人 2O O00 プ ECOMENT EGU 4 ロモ Fy Of SuDFOu 上 in 

OO4 滞 O FDGQ5 CNTZ8O_EGU ま FDO5 contro]  ZHO-M680O9 。 ( bitQO ) 


OO 人 444 END 
THTaL ERRURS OOQOO0ーーOOOQOO 
THTAaL MRRNINBS OOO0OO ワ ーーOOOOGO 
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Z80 コ ミュ ニケ ーション プロ グラ ム ・ リ ス ト EE 








Oo001 ij Z ヨ 0 to M6B09 Communicater (ZBO) 

0002 5 

000 さ RG 6EOOH 

O004 6EOO E さ CMZBO』 LD (SFP) 。 HL sftch rt 上 urn addr。 

O005 6EO1 5 FUSH EC 

0G06 6EO2 46 LD 。 (HL ) ョ ftch entry addr。 ( NM6809 
) 

0007 6EO3 23 INC HL 

OOOB 6EO4 4E LD C。 (HL) 

O0009 6EO 人 G さ INC HL 

0010 6EQO6 ED430700 LD (CHMENT ) 。 BE 』 Et entry addr。 ( M68Q09 ) 

G011 6EOa C1 FUF EC ェ 己 ら モロ r 与 F 己 モ turn ad に 5 

0012 6EOB E ミ LD (SBP) 。 HL 

001 さ 6EOC E5 FUSH HL 

0014 6EOD 2106Q0O LD HL 』 CDMTX+1 5s PO1n ロ 上 COmmOn aF 選 は 

0015 6E10 273 LD (HL ) 。E *GXChange E ( -XL ) 

0016 6E11 5D LD 1 計上 5 5 も CMF ( =6 not O ica11 m 

gd ) 

0017 6E12 2D SET09』 DEC も 

001 昌 6E1 さ 72 LD (HL) 』D jexchange D ( -XH ) 

0019 6E14 2D DEC 取 

OO020 6E15 7 LD (HL ) EE iCMF 

0021 6E16 信 DEC に 

OO022 6E17 7 フフ LD (HL ) 』 谷 sEXChanq 全 ( - 介 ) 

0023 6E1 昌 AF XOR 全 ito M6 ヨ 09 ( CNTZBO=O ) 

0024 6E19 3205FD LD (CNTZBO) 』 人 

0025 H 

0026 s to M6809 

0027 ーーー で ニニ イエ ヤマ テー ニー ニー ニニ ニコ ゴー アテ テーー 

002 昌 ョ from M6BO ウ 

0029 『 

QO3O_6E1C OO NOF 

0031 6E1D 7E NRESTi LD 全 。 (HL ) sexchange 人 Q ( - 人 ) 

0032 6E1E 2C INC 世 

00 さ 3 6E1F SE LD E。 (HL) s CMF 

0034 6E2O 2 ビ INC 上 

0035 6E21 6 LD D。 (HL) sexchange D ( -XH ) 

0036 6E22 2 INCE 半 

0037 6E23 1D DEC 臣 stest CMF ( 1 gr O ) 

OO03B 6E24 5E LD E。 (HL 〉 sexchange E ( -XL ) 

0039 6E2G _C2426E JP NZ 。RETO9 

0040 5 

0041 si If ca11ed by M6809 

OO42 

004 さ 6E2B C5 FUSH BC 

0044 6E29 DDE5 FUSH 1X 

0045 6E2E FDE5 FUSH IY 

0046 6E2D SC INC 問 

0047 6E2E 46 LD 。 (HL ) sfetch entry addres5 ( ZBO 
) 

Q0048 6E2F 2C INC 

0049 6E さ 3Q 〇 6E LD L。 (HL) 

Q05O 6E さ 1 60 LD HH 

0051 6E32 CD446E CaLL JFHL s( julmp モロ subroutine ) 

0052 日 

0O05S 6E35 FDE1 POF IY 

0054 6E37 DDE1 FOF 1X 

0055 6E39 ビ 1 F ロ P BC 

0056 6ESA 210600 LD HL 』 ECUMTX+1 ミ s DO1 ロ 上 COmmOn a ビ ロス 

0057 6E3D 7 さ 3 LD (HL ) 』E sexChange E ( -XL .) 

005B 6E3SE 5C LD E。H scClear CMF ( Osreturn mode 
) 

O059 6E さ F C さ 126E JF SETO9 sturn to M6BQO 

0060 日 

0061 s Return from 5=ubrnutin ( M68Q09 ) 

006 日 

006 さ 6E42 E1 RETO9』 PFOP HL 

O064 6E4 さ C ウ RET 

0065 日 

OO66 日 

O067 6E44 E JPFHL = JP (HL 〉 sjumD モ O subroutine ( MM6809 
) 

006 晶 日 

006 ワ ョ COmmOn aa  ( Z0-M6BO9 ) 

0070 日 

0071 CHA EGU さき ョ CC 

0072 CMF EBU 人 す ョ ヒ a1 1 mod 1a ロ 





7 人 4 
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Z80 コ ミュ ニケ ーション プロ グラ ム ・ リ スト 








007 さ 
0074 
0075 


0076 
007 フ 
Q078 
0079 
OOBO 
O081 
0082 
QOB さ 
0084 
OOB5 
OO086 


6E6Q さ 1006E 
6E6D 2103 さ OO 
6E7Q 18AB 


COMIX:  EBU に ] sDE - X reg・ 

CDMENT: EQU / 5 局 ロ モ Fy of subrOutin 

CNTZ8O』 EQU FDO5H s COntF ロ 1  ZO-M6B09 

s = Init 上 ュ ia11i 詞 Outin 己 

3 RG 6E6AaH 

5 

INITZg LD SFP 。 6EOOH : 5 己 t staCk DO1inte レ 
LD HL , CDHAa 3s PO1n 上 COmmOn ら 8 レ 選 は 
JR NREST 
END 





還 還 時 [MI-8 入 出力 プロ グラ ム 十 6809-80 コ ミュ ニケ ー タ プロ グラ ム ・ リ ス ト EE 





OO010 
OOQO6O 
QQ0070 
OOOBO 
OQ009O 
OO100 
QQ011O0 
OO018O 
QQ13O 
OO14O 
OO015O 
00160 
00170 
0018O 
00190 
OO2OO 
00S10 
OO02SO 
O00230 
QOS40 
OQ02SSO 
OO2S60 
Q00270 
OOSBQO 
OQ029O 
0O0300 
00310 
0032O 
QOS3SO 
O00340 
Q035O 
QOS60 
00370 
0038B0 
Q0390 
OO400 
Q0410 
O0420 
O0430 
O0440 
00450 
0O0460 
Q00470 
004BO 
00490 
0O05OO 
00510 
OOB5SO 
QO053 〇 
00540 
QO05SO 
00560 





OOQ0O 


O000O 
GOQOQO さ 
OO006 
OOQg 
OOOC 
QQOOF 
0012 
00155 
001 日 
QO1E 


O01E 
QOSO 
002 さ 
OOS55 
OOSB 
002 谷 
OO2D 


QOS2F 


QOS1 
00 き 4 
OQ0 さ 6 
OO さ 9 
QOSB 
OQ03D 
O03F 
GO41 
OO04 さ 
0O044 
OO46 
OO4 
O04 人 
OO4C 
OO4E 
QOS5O 
0O05S 


0055 


QO060 
OO094 
Q0655 
0012 
0Q9 1 
Q101 
004 人 2 
OOFE 
Q1F2 
O1E9 


NaNM I ロ Z8BO 
* 
*※ Input- ロ utput Frggram for FM-B 
* with M6 ヨ 09ーZ 日 Q COmmulni Ca モビ 
* 
* 
DRG 生 QQOQO PO5s1ition independen モ 
※ 


OO6 さ UTCH LEBRA DUTCHR output character ( cc ) 

GO9 INCH LERA TINEHR input character ( cc 人 ) 

QO6E OUUTLIN LEBRA UTLIR gutput 11in 

OO1E INLIN LERA INLINR input 1in 

QORO BRERE LEBRR ERRZBR break Chec ド 

0113 STQART  LBRA INIT 1in ロ it1a1iz 1 ユーロ DFO ロ Fam 

Q057 CRLF LERA CRLFR CR LF 

Q113 DUMMY LERA INIT 

QOS2SOD HSTaART LERA HSTUSR to hot star 上 ( ur DFO ロ F&m ) 


QOSO7 CSTART LBRA CSTUSR to ロ Co1d start ( usr DFOF&Am ) 
1 
Tnput one Line 
* data pointer- = X req・ 
* 1imiter = ま OD 
米 
INLINR _FSHS U。X,B。 CC 
0148 LBSR CULOUR 紀 己 モ Co1orr and entry Do5sition 
LDa 韻 ま 17 CuF5OF On 
015C ビ LBSR CURSUR 
LEAU 10』X buf 和 fe 
LDD 菩 日 4 maX1imun 1nDut に Cha に ac 上 e ビ 
STD 6』X 
FSHS U 
LDU 菩 0 ロロ mmS8 ロ 己 
LDa #18 LINE INFUT request number 
0152 LESR FRTINT ca11 ETOHS ( LINE INFUT ) 
LE 2。 呈 
LDE コロ 』 X numb ら Of と ChaFaC 上 ビ 
LERU 4。U de1 モ 1 OCa モ ion information 
SUBBE 共 さ 
LDX さ 。8 
INLL DECH transfr モロ usr buffer ( X ) 
Q04C BLE LLEN 日 
LDA sU+ s 
STa ms す 人 
QO4 マ BR INLL H 
LLEN LDA 菩 ま D de1 1 mi モビ 
STAa ュ メ 
LDa 菩 事 16 CuFOF ロイ † イ 
915 ビ LESR CURSDR 。 
FUL5 FCE』。U』。X』E, ACE 
※ 
*※ CR and LF 
も 1 








7 ら 5 


1O 











FM-8 入 出力 プロ グラ ム 十 6809…Z80 コ ミュ ニケ ー タ プロ グラ ム ・ リ スト 
00570 0057 さき 4 0 REFR。 お 5 CC 
QOSBO _ QO59 6 QAa LDA 昔 各 合 LF cod@ 
OOB59O 。 OOBE BD 06 OO06 さ ESR HUTCHR 
QO6QQO QOS5D 8B6 QD LDa 半 D CR code 
0O610 OO5F BD QOS 006 ESR UTCHR 
OO62SO _ 0061 35 に た FULS 2 谷 お 記 
0063O ※ 
QQ64O *X Dutput one Character ( acca ) 
0O065O * 
OO660 OO6 さ 3 4 に 4 ロ UTCHR PSHS U,X』B。 CC 
00670 0065 さ 0 61 LEAX 1 POint ロロ aa 
QO68BO _ OO67 CE QQO1 LDLU 革 1 number- ロ f† a モ ュ 
00690 OO6n 4 10 だ た BN5 X 
00700  QO6C SO 11 OO07F ER ENCNT 
00710 * 
007SO * ポ utput on Line 
00730 * at モ a DO1intEF 三 X F@ ロ <・ 
Q074Q ※ de1imiter- = 串 OD 
0075O ※ 
00760 OO6E さ 4 に ア 4 UTLIR FSHS U。X。B.。CC 
00770 。 OO070 C6 QD LDE 后 ま D de1imiter 
Q07BO OO72 さ 4 10 UTEEP'P5FHB X 
0Q079O  QQO74 CE OOQOQ LDU #0 
OOBOO  Q077 に 10) DATCNT CMFE ュ X 二 Count da キ a 
0OB10 OO79 父 04 0O07F BEGI ENCNT 5 
OOBSO  QQ7E 41 LEAU 和 ま O1。U 日 
OOB3O _ 007D SO FB Q077 ER DATCNT 
00840 OO07F 34 40 ENCNT PFSHS U 
QOB5O _ OOB1 1 アプ GOC4 Q14 日 LESR EDLODR 呈 忌 モ Co1or 
QQOB6QO _ QQO84 EE E1 LDU 9 
QOB70 OOB6 條 7 OE O096 BEG NDUT no Character 
OOBBO _ QQOB8 6 14 LDa #20 UT-SCREEN re ロ u ら 5 上 number 
QOB9O _ QOBR 17 QOOC5 OO15S LEBSR FRINT PFint ( screen ) 
QO900  QQOBD 6D Q8 は 。X pFinter 1aqg on 
00910  QOBF プア Q55 0096 BE NOUT 
OO92O _ QQO91 6 OE LDa #14 UT-FRINTER requeSst numD@r 
009 さ 0 0093 17 QQOD7 Q16D LESR MEND pFint ( printer ) 
QO0O940 0096 3 介 に が NUT LEAS イー1 
OO9BGC O09B る D フ 7 PUL PE。U。X。B。。CC 
Q0960 ※ 
00770 *※ 1nput one Eharacter ( cc ) 
00980 ※ 
Q0990 OO9A オオ に INCHR PSHS U。X。B。 DC 
O1000 _ QQ9C C6 91 LDH 菩 1 ccE : QO 』 wait keyin 
01010 ※ an put keydata in CC 人 
0102SO 009E SO 03 OO 人 BRA INEEY 
Q103O * 
Q104Q ※ Break ChecE 
0105O *※ 
01060 OOaO ミ 4 らら ERQAZBR PSHS U。X。B。CC 
01070 QOS 5F CLRE CCE = 0 =: key Can 
0108BQO ※ 
Q109O * Inkey 
Q1100 ※ 
01110  QOa3 6 16 INEEY  LDa 提 可 16 生ま 16 』 Cur5or ロイ 
O11SO _ OOA5 5D TSTB 
O1130O _ QOa6 SF O1 OO BLE TINE さ no cursor ( gn Brea ) 
Q1140 OOaB 4 INCEA 事 17 』 Cur55 ロ OF On 
0115O  QOA9 1Z QQOBO_O15C TINE さ LEBSR EURSHR Cur ほ = ロレ と ロロ モビ ロ 1 
01160  QQOAE 6D 09 INEEYS TST 9。X モ es モ 上 5Cap 与 1a ロ 
01170 OOaE 227 04 OOB4 BEG TNE 1 
QO118BO OOBO 5D TSTE 
01190 OOE1 2E 01 OOB4 BBT INEE1 
O1SOO _ OOBS 3 COME CCBH < 0 』 wait FEeyin 
0O1210 OOQOB4 ささ E さ INEI1 LEAU ee、 buf 千 呈 
0122O OOB6 4 ビ INR11 TINCEA 
012 さ O OOB7 26 FD OOB6 BNE INE1 1 
0O1240  QOB9 6 1 LDa 菩 記 1 TINEEY req ロ ut numbeF 
O1250 OOBB 17 OOAD Q16E LESR MEND ca11 BITOS ( INEEY ) 
Q126O  QOEBE 7D 0 ささ 1 TBT TSTQOF top key check 
01270 。 OOC1 2 フ 06 QOOC ウ EE NODAERT 
O12BO _ OOCS 4F BEN CLRA c1ear DF reg ロ 1 = 上 e ヒ 
O1S9O _ QOC4 1F BE 全 。 DP き 
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FM-8 入 出力 プロ グラ ム 十 6809 つ Z80 コ ミュ ニケ ー タ プロ グラ ム ・ リ スト 























Q1300 OOE6 7E DBCS JIMP' 人 BURT モ よ o top routine nn FRHM- ( RM 
01 さ 310 OOE9 5D NaAERT TBTBH 
QO13SO _ OOCR 全 7 O 人 4 GOODO EE EEYEXT 
QO1330 OOEC 6D 人 1 TBT 1』U push key 
61340 OOEE 87 E6 QOH6 BE IN ド 11 nO si wait keyin 
0O13S5O _ OODO 6 E1 ド EYEXT LDA s% コ キ 十 ロモ inDut a モ a 
01360 OODS 日 1 (9 CMFA 半 さ contrp1 ビ 
01370 。 OOD4 26 05 OODB ENE NDCETRC 
Q13BO _ OOD6 7C 01 さ TNC TST ロ PF 
01390 OOD9 SO EB QOE マ ER 人 BEN モロ = 上 pD FrOutin 
0O1400O  QODE 日 1 11 NOCTRC CMFA 半生 1 1 contro1 
01410 OODD S6 OS QOE1 BNE NHCTRR 
Q1420 _ OODF 6F 08 CLR 。X clear printer 千 1a ロ 
Q14 さ 0 OOE1 日 1 12 NUCETRR CMFA 半生 1S contro1 R 
O1440 OOES 人 6 OS OOE フ 7 BNE NOUCTRG 
Q145O _ OOE 7Z QB STA B,』X 呈 忌 モ printer 1a ロ 
Q1460  QOE7 日 1 18 NCTRG CMFA 韻 名 1 日 contro1 X 
01470 OOE9 8 ら 6 05 OOFO BNE NUCTRX 
O14BO _ OOEB 35 に た ) FULS U』X』B。 CC 
Q1490 OOED 16 FFSB QQO1 昌 LBRA HSTART モ o hot =tart Of uSF 己 DFO ロ Fa 
Q15OQO  QQOFO SBD NUCETRX TSTH 
Q1510 OOF1 SF 9721 OOFD ELE NUDINRE no 1inDut FU 豆 呈 も 
O1S2O OOFS さき 4 (9 が FSHS 人 
015 さ 0O _ OOFB 6 16 LDR 韻 生 16 CuFSOF ロイ ff 
QO1540  QQOF7 BD 6 さ 015C BSR CURSHR 
0155O  OQOF9 35 02 FULS 人 
QO1560  QOFB SO 12 QO1Q0F ERA INRG 
01570 。 OOFD B1 20 NDINRE CMFA 韻 ま 2O SDa に G key 
Q15BO OOFF 7 04 QO105 BE SFC 
01590 0HQO1 1 1B CMFa 間 7 SCaDBB EEy 
Q1600 0103 全 ら 0 Q10E BNE NOESC 
QO1610 。 Q105B 4F SFC ELRA 
QG162O 。 Q106 6D 09 TST ーッ test SCaD 1a ロ 
Q1630  O10B S6 Q7Z GO111 ENE EEYEND 
Q1640  Q1Oa 6C Q TNC 9。X 呈 己 モ eS5CaD 己 1a ロ 
O1650 。 O10C SO 9E OOAaC ER 人 INEEYS wait ky 1nput 
Q1660  Q1OE 4F NOESC  CLRa 
01670 。 QO1OF 6F 0 INRGI CLR 9』X C1EaF SCAD 邑 1a ロ 
QO168BO  Q111 35 D5 FEEYEND FULS EE。U。XB。CE 
01690 ※ 
01700 ※ Init 上 ia1i※ 与 ユーロ DFO ロ Fam 
01710 ※ 
017SO 人 】 BC SF INIT LEAU MEUF 。 FCR 
QO1730  Q116 BD 49 Q161 ESR CRQLSUE initia1i 選 COTSO1 
01740 。 Q11B 3 4E LERU 13 す LU 
Q175O _ Q11a 8BD 45 9161 ESR CALSUE define EEY(5) 
9 作 沈 6 9 ん ポ け も BE 9 に) CLR 日 X clear printer ff1a ロ 
GHZZ0 OOE OoE 09 CLR 9。X Cl1eaF SCaDG 隔 1 aq 
017BO  Q12O B6 07 LDR 韻 7 Col1or _ cod ( white ) 
01790 0Q012S BZ 01E5 STA CULRCD set col1or | 
QO18O0O * 
01810 * Transfer- COmmuni こ a 上 曲 DFO ロ Fa&m モロ 6EOOH-6E71H 
01BSO 1 
GO1830  QO1S5 30 BC 6D LEAX CUMZBO』FCR Our 
01H4O _ Q1EB CE 6EQOQO LDU 菩 CHIMTFR = モ 上 in ロ a モ ュ O ロ n ロ 
Q1 ヨ 5O _ Q1SE 6 0 MDVLF  LDAa sX 十 
Q18B60  Q1SED 7 CO STa ぇ U+ 
018BZ70  Q1SF 11 昌 3 6E7S CNFU 幕 CEUMEND 
01BBO 0O13 さ 26 F6 Q1SE ENE MOVLF 
Q189O ※ 
01900 0135 6 選 き LDa 井村 じき JF code for- Z8O 
O1930。 QOSZ" 9Z OO STa 6) 所 品 選 モ 
01920  QO139 9 フ 7 3 Ta H Fe55 モ ar トモ 3 日 昌 
O193O  QO13E CC OOeE LDD 半 OO6E entry of CUMZBO ( 6EOOH ) 
91940  Q13E DD さ 9 STD ミミ 9 日 
O195O _ Q140 CC 6 人 6E LDD 韻 ま ら 6Q6E entry of init。 for Z8O 
61960 。 Q143 DD Q1 STD ぐす 
01970 。 QO1455 16 FED3 QQO1E LERA ESTART 
0198O *※ 
01990 * et co1or 
※ 
O14B ささ 。 BC ミ SF PODLDR LEAU COLBUF.,FCR 
O14B BE6 01E5 LD^a CHLRCD col1or code 
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,&O 


F M-8 入 出力 


プロ グラ ム 十 6809… つ 有 Z80 コ ミュ ニケ ー タ プロ グラ ム ・ リ スト 











OSOSO 
OSO40 
0SOB5O 
QSQO6O 
0SO70 
0SOBO 
[9IG ん 9) 
02100 
OS110 
021SO 
02130 
QOS140 
OS1SO 
QOS160 
OS170 
OS172 
OS174 
QS18O 
QOS190 
OSSQO 
OSS1O 
022SO 


OSG23O 


に てい 


OSS 人 4 
OS225O 
OS26O 


02S70 





02 さ 40 
0S3SO 
02360 





OS3BO 
02390 
02400 
QOS410 
02420 
OS43O 
0S440 
QOS460 
OS470 
02480 
OS490 
0S50QO 
OS510 


OSSSO 
OSG30 
02540 
OS55O 
OSS60 
OS570 
OSS8BO 
OSE590 
OS260O0 
OS610 
OS6SO 
OS6 さ 0 


02640 
OS65O 
QOS660 
OS2670 
QOS68O0 
OS650 


0O14E 
9150 


0152 
0156 
Q158 
015a 


915C 
015F 


Q161 
6165 
Q167 
0169 
9016H 
Q16D 
Q16F 
G171 


0175 
0176 
0177 
Q178 
0179 
017a 
017B 
617 ビ 
Q17D 


017E 
017F 


0180 
0181 
0182 
01B ミ 
0184 
018B5 
0186 
01B7 
0188 
0189 


618R 
QO18B 
Q18C 
O18D 
Q18E 
O1BF 


0190 
9191 
0192 
019 ミ 
0194 


人 7 


49 


45 


OF 


QOBAa 


616E 


QOaBE 


FEFR 


STA 
ER 


5』U 


CaLSUE 


* Frint gr 1ine input 
※ 


FRINT LEAX RCE』 FCR 
ちち TU 人 4 X 
LDU の 拓 に ) 
ERA MEND 
※ 
* じ ursor On / ロロ ff 
氷 
CURSHR LEAU SBUFCSR。 
STA さ 。 出 
※ 
* Ca1] sub CFU 
CaLSUE LEAX RCE,F'CR 
LDA 共 16 
CLR 44。X 
Ta ie 
MEND STU に 4 
MENDS STa >X 
CLR 1 
JMF' [EIDS] 
※ 
* MIDTH 40425 』 
※ 
MELUF FCE ま 人 
ド だ 0 
FCBE 1 
FCE 0 
FCE 40 
FCE つら 
FCE 0 
に 5B 2 
FCE O 
※ 
FCE 1 
FEE 0 


※ 
※ 
% EEY5。 "EXEC"+CHR ま (1 さ ) 
※ 
K 


YEBUF FCBE 41 
FCE 0O 
FCE が 21 
FCBH 5 
FC 5 
FCC *EXE ビ * 
FCE $D 

※ 

※ Fut ら trinq ロ 5 

※ 

COLEBUF FCB は] 
FCE 0 
FC さき 
FCH 2 
FCE 11 
FCE 7 

※ 

BUFCSR FCB 人 0 
FCBE じ 
FCE 第 16 
FCH 2 

1 

※ 

*※ CUMZBO _UD jec モ 上 prog ロ ram 


号 忌 モ number ロ f ata 


FCR 


Fe ロ u ら 5 上 ContrFo1 bl1ock 
いい ロ ーOut FrE ロ UESt number 


呈 E モ number ロ f data 
5 上 buffer- addr 馬 呈 
品 己 モ re ロ UuES モ numbger 
C] ear St 上 atu 
jump to BIDS 


CONSDLE 0O。25』 04 0 


initia1izG COnSO1G Cod@e 


40 character- / 1ine 

ロロ 1ine / paq ロ Be 

CFO11e top 

呈 CFO11 呈 Bottom 

disp1lay FFEEY switch 
( OsCf 和 † 28Gn ) 


に On5 ロ 1 呈 CoOlor Switch 
( Oinorma1 和 $FFggreen on1y 


define key code 
key number 
number ロ †f ChaFaCt 上 eF 


CR Code 


Put = 上 Fin ロ 呈 COd 
numDF Of に haFa ヒ 上 
DC1 』 se 上 Co1or 
CO1or cod ( white ) 


On モロ] COn5 ロ 1 与 CoOd 
CuF ロ F SW1 モ ch COntF ロ 1 


( Z8BQ ) 
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FM-8 入 出力 プロ グラ ム 十 6809 み 80 コ ミュ ニケ ー タ プロ グラ ム ・ リ スト 








QOS プ 00 
QOS プ 10 
OS7SO 
OSG7 さ 0 
QOSE740 
OS7S5O 
OS プ 760 
OS フ 77 
OS7BO 
OS2 プ 90 
OSBOO 
QOSB1O 
OSBS2O 








OSEB40 
OSBSBO 
Q2B86O 
QOSB7O 
OSBGBO 
OSBO 
O290O 
QOS910 
0292O 
OO 
QOS940 
OS255O 
OS2960 
OS ワ 70 
OS8O 
OS2990 
OS300QO 
063010 
0O302O 
O30OO 
QOS3040 
OO5O 
03060 
063070 
0O308O 
OSO9O 
0O3100 
OS110 
0O312O 
0Q3130 
Q3140 
615 
Q16O 
Q3170 
Q3180 
Q3190 
03200 
03S10 
OS22O 
032 さ O 
O3240 
O325O 
03260 
O03270 
QO328O 
03290 
03300 
03 さ 10 
OS33SO 
0 ささ 
03 き 40 
0 ささ 50 
03360 
0Q370 
Q338O 
03390 
Q340O 
QO3410 


0195 
6196 
0197 
619 昌 
0199 
019 谷 
019B 
O19D 
019F 
01RaO 
1 人 1 
01 人 史 
0O1 人 
QO1m55 
O1a6 
01 人 7 
GO1a8B 
O1 9 
0O1R 人 Ra 
O1 ga 
01a ビ 
Q1aD 
0O1RE 
Q1aF 
QO1B1 
0O1 BS 
GO1E マ 
91E4 
O1E55 
O1BE6 
01E7 
01B8 
O1B9 
01 EQ 
01 BB 
01BD 
O1EE 
01CO 
O1C 
01CS 
O1CE4 
の お 所 号 
061 ビ 6 
Q1CZ 
Q1CB 
01CA 
01CC ビ 
01CE 
DEF 
Q1DO 
O1D2S 
01D3 
QO1D4 
O1D5 
O1D7 
Q1D 
01D9 


O1Da 
61DC 
QO1DE 
Q1EO 
O1E2 
O1E5 
01E フ 7 


O1EA ミ 


GO1EC 
O1EE 


ED4 


0600 
フミ さ 
ら SD 
2D 


01 
OQ00 フ 7 
16 


O1 
FDQO5 


※ 
CUMZBO FCE E マ LD (SFP う 。 HL 
FCE 生じ FUSH BC 
た BB 46 LD BB。 (HL ) 
FCE まさ INC HL 
FCE 4E ビ LD C。 (HL ) 
FCE まさ TNC HL. 
FDE 第 ED4 さ LD (CHMENT) 。 EC 
FDE ま 0700 
FC 捉 じ 1 FFP' BC 
FEB ま E さ LD (5gP) 。 HL 
FCBE ま E5 FUSH HL 
F ド 5B 征 記 1 LD HL 』。 CHMT X+1 
FDE 生 0600 
FEE アポ LD (HL.) ,E 
FCBE 5D LD E し 
GETO9 FCB まま 2D DEC 比 
FCBH 上 アル LD (HL) 』D 
FCE : が うり) DEC | 財 
FCE 7 さ LD (HL) ,E 
FC まま 2D DEC 紀 
FCE 呈 フ フ LD (HL) 』 全 
FC 人 F XDR 人 
FCE が LD (ENTZBO) 』 公 
FDE 中 05FD 
時 串 00 NOF 
NREST FCE 呈 プ ビ LD 台 。 (HL ) 
FCE 生 2 ビ TNC し 
FCE まま 5E LD E。 (HL ) 
FCBE が INC に 
FCBE 7 に 】 LD D。 (HL ) 
FCBE 上: が JID INC 回 
FCE ま 1D DEC 世 
FEB 5E LD E。 (HL ) 
FCE 1 JF' NZ』, RETO ウ 
FDE 呈 4G6E 
FCE もじ ロ FUSH EC 
FDB 中 DDE5 FUSH 1X 
FDE ま F DE FUGSH IY 
FC 生じ TNC 1 問 
ド G 量 証人 46 LD H。 (HL ) 
FCE : が 4 TNC 貞 
FCE 中 6E LD L。 (HL) 
FCE まま 60 LD H,。H 
FCE も CD CaLL JFHL 
FDE 訓 446E 
FDBE も FDE 1 FOF' IY 
FDE 征 DDE 1 FDF' 1X 
FCBE 第 1 所 和正 EC 
FCBE 征 1 LD HL 』 CHMTX+1 
FDE 0600 
FCE アル LD (HL) ,E 
FCB 9 LD E。』H 
FCE 生じ さ JP SETO 
FDB も 126E 
RETO9 FCB E ビ 1 POFP HL 
FC 伸 記 9 RET 
JFHL FCB 生 E ビ ワ 
※ 
* CoOmmuni こ ation program ( M6B09 ) 
※ 
CDMO ワ 。 FSHS U。Y。DFP。B。CC 
LDU /。 呈 Tetch return addr@555 
FULU Y ftch entry addr。 ( ZーBO ) 
STU の 7 5 上 Or Fturn addr。 
BTY ECUMENT et entry ( to ZーBO_) 
LDE 韻 1 Set CMF  ( 1ica11 modg ) 
SETZBO _LDU 韻 EUMENT point COmmOm &F 選 避 
PSHU X』 日 。 合 EXChan ロ らら req ロ i5ter5 and CMF 
※ ( XーDE』 ロー ロロ =EMF ) 
LDE . 菩 1 to Z80 ( CNTZ8O= テ 1 ) 
STE CNTZ8QO 








7 ひ 


&O 


FM-8 入 出力 プロ グラ ム 十 6809Z80 コ ミュ ニケ ー タ プロ グラ ム ・ リ スト 











03470 
0 さ 40 
0 さ 490 
0O ロ OO 
Q3510 





03530 
03540 
0355O 
03560 
03570 
035BQO 





03B5O 
03860 
03 昌 7 
038BO 
03B90 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03980 
04000 
0402O 
FAGE 


040 さ OO 
0404G 
9405QO 
04060 
04070 
0408O 
TTAL 
TODTAL 


OHE すら 
O1F2 さ ア 16 
O1F4 SD 
OHFG2 グ 05 GO1FC 
O1F7 AD D4 
の も だ 9” 名 F 
01FR SO EE 01E フ 7 
0 お ド PE 3 あ 委 ED 
OHEE は る 
電 ま だ F の 
QEOQ QQ6E 
OSO 人 ES 91 
OO 6 OO 
OSO5 18RE 
OOO 
OOO4 
Q0055 
OO0QO フ 7 
FDQ5 
OSQO7 ED 6E455 
OSO 人 51Q00 
OSOCE さ の 
OSEOD 6 01 
D ひ 2OF さ ウ 
OS1O O008 
OS18 OQOQ1 
QOS19 QQOQO1 
OS 1 人 O054 
O1E5 
OOB ( OO2S106) 1 
31 ミ 
DBCS 
FEBF 人 人 
6EOO 
6E7 
ERRURS OOQO01 ーー001 ミ Q 
MARNINBB_OOO0O4ーー0O190 


※ 
* to Z80 
※ ーーーーーーーーーーーーーー ニ ーーーーーーーーーーーーーーーー…ー…ー……ーーー…ー…ーー 一 
* from Z8O 
* 
NF 
FULU X』 日 』 合 =XChanq ロ e reqisters= and CMF 
TSTE test CMF 
EEB RETZBO 
※ 
* 1 cal11ed by Z8O 
* 
JSR を 3J3 jump 上 ロ suBrgutine ( M6809 ) 
CLRE Clear CNMF ( Oireturn ) 
BRA SETZ ヨ O return to Z8O 
* 
* Return frOm subroutine ( Z8O ) 
氷 
RETZ ヨ 0O FULS KB は も 月 人 
* 
※ 
*※ Initialis ZBO  ( object proqgram ) 
ボ 
NOF' 
INITZ FCE 生 さ 1 LD SF 』。 6EOQOH 
FDE 生 006E 
FCE 生 で 1 LD HL 』 CMF 
FDE まま 030O 
FDE 串 1BRE JR NREST 
※ 
* Common arEa  ( MG68O ワ ウーZBO ) 
 ( 
ENAa EGU に Cc 人 
CMF EEU 人 と a11 mode 1aq ロ 
CDMIX ERGU に ] メーF 口 1 紀 上 @ 
CUMENT EREU 7 = ロ ntFy Qf 5ubroutin 
ENTZBO_EGU ま FDO5 contro1  ZB0O-M6B0Q9  ( bitO ぅ 
※ 
* 
※ Dummy DFOqFam 衝 ロ F CO ロ 1d 5 上 ar キト 
* OLODE つつ 7MCZBO / HO ミミ gm92* 
※ 
CSTUSR _JSR 和 ま 6E455 
FDE 第 品 100 
RT ( イラ ナイ ー) 
※ 
* Dummy DFO ロ Fam ロビ hoO モ = モト ar レモ 
※ COn モ エロ 1] X ヲ オマ スト CC=1  』 ソノ ホカ ./ トキ acca=O 
※ 
HSTUSR _LDa 菩 1 
RT5 
* 
 ( 
※ 
RCE RMBE レロ 5 上 ContFo1 brock 
FRTF RIMB 1 pFinter 1a ロ 
ESCFLG RMBE 1 呈 紀 CaD 己 1a ロ 
EUFLIN RMB 4 Duff 
CDLRCD EGBU 名 1E5 Co1 or cnde 
ロ Z8O 
TSBTOF  EGU まさ 1 break = モ a モ ぃ u 
REBURT EEU まま DBCS EoOD FrOutine for FNM-B ( RDM ) 
BTIQS EGBU 第 FBFA 
EDUMTFR EEU まま 6EOO 
CDMEND EGU 邊 6 ビブ 
END 





SO ひ 





私 は , 長い 間 自 作 の 有 Z80 シ ステ ム を 使っ て きま し た が , 
最近 の ソフ ト ・ ハ ー ド の 進歩 に は 太刀 打ち で きず , メイ ン 
CPU を 6809 か ら 乙 80 へ 切り 換え る こと の で きる FM-8 を 
購入 し まし た . 

し か し , 現時 点 で は 本 体 と Z80 ソ フト カー ド の み で は , 
モニ タ ・ プ ログ ラム が な いた め , 乙 80 の ソフ ト を 走ら すこ 
と が で きま せん . 

そこ で 開発 し た の が この プロ グラ ム で す . 普通 の モニ タ 
で は , つま ら な い の で , MZ-80 の SP-1002 に 仕様 を 似せ 
まし た . これ に より , シス テム に あま り 依 存 し な い プ ログ 
ラム (アセ ンプ ラ な ど ) の 移植 が 容易 に で きま す 『! 


ZS80 ソ フト カード 


Z80 ソ フト カー ド の 使用 方 法 や 切り 換え の 方 法 は , マニ ュ 
アル や 1/O ”82 年 2 月 号 に 詳し く 説 明 さ れ て いる の で , 省略 
し ます が , ソフ トカ ー ド の クロ ッ ク に つい て 調べ て み ま し た 。 

初め Z80 の A バ パ バージョン を 使用 し て いる の で , 4 MHz で 
動作 する と 思っ た の で す が , 簡単 な プロ グラ ム を 走ら せ て 
調べ て みる と , 2.5MHz 前 後 で も ある こと が 解り まし た -.6809 
の メイ ン ・ ク ロッ ク の 原発 が 約 5MHz な の で , その 1/2 で 
ある と 思い ます . 

最高 速 で 動作 し な い の は 残念 で す が , それ 以上 に Z80 … 
6809 の 切り 換え や 画面 へ の 表示 に か な り 時 間 が か か る よう 
な の で , た と え 4 MHz で 動作 し て も あま り 変 わら な い の で 
は な いか と 思い ます . 


プロ グラ ム の 入力 


MON [RET| で モニ タ を 呼び 出し て , 入力 し て くだ さい . 
$900 一 $ FFF ま で の 1,792 バ イト で す . 入力 し 終っ た ら す 
ぐ セ ー プ ブ しま しょ う . SAVEM“Z-80 MON &H900,& H 
FEFF, &H900. 











プロ グラ ム は 大 きく 分 け て , 次 の 3 つの 部 分 か ら 成 り 立 


っ て いま す (メモ リ 
⑯Z80 ド ライ バー 


・ マ ッ プ 参照 ). 





6809 の マシ ン 語 に よっ て 書か れ て いる この 部 分 は , CP 
U 切 り 換 え ル ー チ ン , BIOS コ ー ル ・ ル ー チ ン お よび CMT 
関係 の 処理 ルー チン か ら 構 成 さ れ て いま す . 

この 部 分 は 文書 を 読む より , フロ ー チ ャ ー ト 1 お よび ア 
セン ブル ・ リ スト を 見 て 頂い た 方 が 解り 易い と 思い ます が , 
少し 説明 し て お く と , まず F-BASIC よ り 起 動 (EXEC&H 
900) さ れる と 乙 80 の スタ ー ト ・ ベ クト ル を 設定 し CPU 
を ZZ80 へ 切り 換え ます . Z80 側 の 処理 が 終っ て , 再び 6809 
に 変わ る と , ワー ク ・ エ リア (RETFLG $8FD) の 値 を 
調べ て , 各 処 理 ル ー チ ン へ ジャ ンプ し ます . その 後 は 再び 
Z80 へ 切り 換え , RETFLG の 値 が 1 に な る まで 繰り 返し ま 
29 こ 。 

@IOCS& サ プル ー チ ン ・ パ パッケージ 

Z80 の マシ ン 語 に よっ て 書か れ て いる この 部 分 は , 80 
の ユー ザー プロ グラ ム か ら 自 由 に コー ル す る こと が で きま 
す . CPU の 切り 換え , サブ プシ ステ ム の コン トロ ー ル な ど 
を まっ た く 意 識 す る 必要 は あり ませ ん . 

各 サ プ ブルー チン の 仕様 は , SP-1002 に 似せ て あり ます が , 
ハー ドウ ェ ア が 異な る の で , 完全 コン パチ プル する こと は 
で き な い し , すべ て の 代替 サブ ルー チン を 内 臓 き させ る こと 
が で きま せん で し だ た 。 

基本 的 な も の は , 一 応 揃え て ある の で , 他 の も の は ユー 
ザー 側 で 用 意 し て くだ さい ( 表 1). 

以下 少し 特別 を サブ ルー チン に つい て 述べ ます . 

PRNT : 1 文字 プリ ント の サブ ルー チン で す が , MZ と 
コン パチ に する た め , ODH が 送ら れ て くる と LETNL を 
実行 し ます . その 他 の 制御 コー ド に つい て は , FM-8 と 同 
じじ で すず:> 

2?2WR1 : ?WRD の み で セー プ す る よう に し た の で ダミ 
ー の サブ プル ー チ ン で す . 

?RD1 : ファ イル 名 の み ロ ー ド し て , 10FIH か ら 8 ババ 
イト に スト ア 。 

GETL : スク リー ン ・ エ ディ タ を 含め た 1 行 入 力 の サブ 
ルー チン で す が , 必ず 変更 きれ な いと デー タ は 転送 され ま 
せん . つま り , カー ソル を 他 の 行 へ 移動 し て [RET| し て る 
その 行 の 文字 列 を 変更 し な い 限 り , DE レジ スタ で 示さ れ 
る バッ ファ の 先頭 に [Esc| (1BH) が 返 た えさ れる の み で す 
注意 し て くだ さい . 

GETC : 非常 に 面白 い サ ブ プルー チン で , GETL で 入力 し 
た 行 以外 で 変更 きれ た エリ ア (エディ ッ ト し た 行 ) が あれ 
ば (DE) 以降 に 転送 され ます . 変更 さき され だ エリア が な い 場 
合 は 先頭 に ESC| が 入り ます . 
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この サブ ルー チン の お か げ で , F-BASIC や 本 モニ タ の メ 
モリ ・ ダ ンプ の 同時 複数 行 エ ディ ッ ト が 可能 な わけ で す . 
具体 的 使用 方 法 は , アモ ンプ ブル ・ リ スト の EDIT の と ころ 
を 見 て くだ さい . 

WIDTH: ワー ク ・ エ リア ( 表 2) の 値 に 従っ て , 画面 
モー ド の 設定 を 行ない ます . ユー ザー プロ グラ ム か ら は , 
ワー ク ・ エ リア に 遂 当 な 値 を セッ ト し て , ここ を コー ル す 
れ ば , 画面 が セッ ト さ れ ま す . 

カラ ー ス イッ チ を 白黒 モー ド に セッ ト す る と スク ロー ル 
の 速 さ が 速く な り ま す . 
簡易 モニ タ 

本 人 バキ ト い の 

, 簡易 モニ タ を 内 臓 さ せま し た . サイ ズ を 小さ くす る た 
介し エラ ー チ ェ ッ ク な ど は 省 い て ある 
の で 注意 し て くだ さい . 

以下 各 コ マン ド の 説明 で す . 

M コ マン ド メモ リ ・ チ ェ ン ジ 
天 式 M ン アド レス [RET| 

16 進 2 桁 を 入力 する と , アド レス が イン クリ メン ト し ま 
す . [RgT| で 次 の アド レス へ [SP| で バッ ク し ます . 

D コ マン ド メモ リ ・ ダ ンプ 
書式 Dー ア ドレ ス [RETI 

指定 し た アデ ドレ ス よ り メ モリ ・ ダ ンプ し ます . [Esc| で 
一 時 停止 , [CTRL| [C|] で コマ ンド 待ち に な り , エディ ッ ト 
が 可能 で す . 

エディ ッ ト は , 自由 に カー ソル を 移動 し て , 一 度 に 複数 
告 の エディ ッ ト が 可能 で す (1 行 ご と する 必要 が な 
く 最後 に 1 回 だ け で よい ). 

G コ マン ド 
書式 G ア ドレ ス [RET| 

指定 され た アド レス に ジャ ンプ し ます . 

びび コマ ンド 
書式 JIRET| 

1106H に 書か れん た アド レス に ジャ ンプ し ます . テー プ の 
ロー ド 後 この コマ ンド に て , ユー ザー プロ グラ ム へ ジャ ン 
プ す る で だ の か が が で きま 9 ト 

W コ マン ド セー プ 
書式 W_ 先 頭 ア ドレ ス , 最終 アド レス , 実行 開始 アド レ 
ス , ファ イル 名 [RET| 

F-BASIC と 同じ し フォー マッ ト で 記録 し ます . 

L し コマ ンド ロー ド 
書式 LIRET| 

ファ イル 名 は 指定 で きま せん が , ファ イル を 見 つけ る ご 
CK ロー ド す る か 聞い て くる の で , ロー ド 

な ら [Y| , スキ ッ プ する な ら [S| を 押し て くだ さい . 
和 和 8 を 入力 する と コマ ンド 待ち に な り ま す . 
@ コ マン ド モー ターON 
書式 @[RET| 

F-BASIC の MIOTOR ON と 同じ で す . 

1 コマ ンド 
書式 ! [RETl 


F-BASIC の ホッ ト ・ スタ ー ト へ ジャ ンプ し ます . 


米 注意 : MDGW コ マン ド に 共通 の こと で す が , アドレス は 
必ず 16 進 4 桁 で 入力 し て くだ さい . 





以上 の プロ グラ ム を 有効 に 使っ て も ら う だ ため に 次 の 2 つ 
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の ログ を 作り まし だ 
⑯MZ ン テー プ ・ ロ ー ダ 

の デブ ロウ グラ スム は Ms860IK/G で モー きれ た テー 
を FM-8 上 に ロー ド す る た め の プ ログ ラム で す . 

プロ グラ ム の 内 容 は , フロ ー チ ャ ー ト 2, 表 3 を 見 て も 
ら え ば 解る と 思う の で , 使用 方 法 を 説明 し ます . 

プロ グラ ム を スタ ー ト させ る と (EXEC&H7000)“Sear 
ching MZ Tepe”" と 表示 する の で , MZ の テー プ を レコ ー 
ダ に セッ ト し て , PLAY ポ タン を 押し て くだ さい . し ば ら 
くす る と , ファ イル 名 な どの ファ イル 情報 を 表示 し , デー 
タ ・ プ ロッ ク の ロー ド に 入り ます . 

何 も な けれ ば , “No Errors”" と 表示 し プロ グラ ム を 終了 
し ます . 途中 , エラ ー が あれ ば エラ ー 表 示 か 無限 ルー プ に 
入り 込む の で , [STOP| [REsET| で 最初 か ら や りな お し て 
くだ さい . 何 度 や っ て も ダメ な 場合 は $70EF 1 の 値 を 調 
整 じ て 見 て で ぐだ さい 

私 の 場合 は $48 一 $50 の 問 で , 
だ ま 

レコ ー タ 側 の 調整 や テー プ の 種類 の 選択 も お 忘れ な く . 

この プロ グラ ム は MZ 側 で セー プ さ れ だ の と 同じ アド レ 
ス に ロー ド す る よう に な っ て いま す が , 表 4 の アド レス の 
内 容 を 変更 する こと で , 任意 の アド レス か ら ロ ー ド する こ 
と の だ で き 竹 すず :> 

以上 で す が , MZ の プロ グラ ム を 移植 する と き や , デー 

な ど を 転送 する 場合 に 便利 な プロ グラ ム だ と 思い ます . 
@ サ プル ー チ ン ・ コ ン バ ー タ 

MZ の プロ グラ ム の モニ タ を コー ル し て いる 部 分 を 本 プ 
ログ ラム の エン トリ ・ ア ドレ ス に 自動 変換 する プロ グラ ム 
IGP9 

プロ グラ ム は , リス ト を 見 て も ら え ば , 解る と 思い ます 
が , CDH また は , C3H に 続く 2 バイ ト が , MZ の エン トリ 
・ ア ドレ ス と し て 登録 きれ て いる 場合 ,、 それに 代わ る 本 プ 
書き 換え て 


うま く ぐ ロ ー ド で きま し 


ログ ラム の サブ ルーチン の アド レス に 無 条件 で 語 
いま す . 

以上 の 条件 を 満た せ ば デー タ で あろ う が , プロ グラ ム で 
あろ う が , 勝手 に 書 


ーー ン の ey 


き 換 えて し まう の で , 注意 が 必要 で す . 





私 は , ジャ ー プ の エディ タ ・ ア セン プラ や BASE な ど を 
移植 し て 使っ て いま す . 

一 般 に 他 の 機種 の プロ グラ ム を 移植 する 場合 、 そ の プロ 
グラ ム の 動作 を 確実 に 理解 する こと が 必要 で す . それ に は , 
前 に あげ た , サブ ルー チン ・ コ ン バ ー タ や ディ ス ・ ア セン 
プラ を 利用 し ます . また , 両機 種 の 特性 や ハー ドウ ェ ア , 
ソフ トウ ェ ア の 違い を 充分 に 理解 する こと も 必要 で す . 

本 プロ グラ ム で は , IOCS な どの 仕様 を MZ に 似せ る こと 
で あま り そ れ ら を 意識 せ ず に で きる よう に な っ て いま す が , 
CS も 0 (ゲー 

な ど ) は , ほとん ど 無 理 な の で あき ら め る か , その プロ 
の 22 のか と 人 の な トド お し た 
方 が いい と 思い ます . 

0 
と , まず 1/O 8 月 号 の ダン プ ・ リス ト を 入力 する な の 
ー プ を 購入 する な り し て , SDM 

次 に サブ ルー チン ・ コ ン バ ー タ に よっ て , ほとん どの も 


の が コン バー ト さ れる は ず で , この まま 動作 させ て も タイ 
トル 表示 まで は 動く は ず で す . 

それ 以上 動作 し な い の は , BASE 自 身内 部 に リピ ー ト 可 
能 な 1 行 入 力 ル ー チ ン を 持っ て いて それ が ハー ド を アク セ 
ス し て いる た めで す . 

FM-8 の キー 入力 ルー チン は リピ ー ト 付き な の で , この 
部 分 は GETL に パッ チ す れ ば OK で す . 具体 的 な アド レス 
は , 調べ れ ば すぐ 解る と 思い ます . ここ まで くれ ば , プリ 
ンタ 関係 と ロー ド を 除い て すべ て 動作 し ます . 

プリ ンタ その 他 も 数 箇所 の パッ チ で 動作 し ます . 
も 公開 され て いる の で 容易 に で きる で し ょ う . 

私 が パッ チ し た も の を ダン プ ・ リ スト に 示し ます . 前 に 
述べ た と お り , オブ ジェ クト ・ レ ベル で の パッ チ な の で , 
か な り 無 駄 が あり ます が 一 応 動作 し ます . 

使用 方 法 は オリ ジ ナ ル BASE と ほぼ 同じ し です. 各 コ マン 
ド お よび エディ タ の コマ ンド を 表 5, 6 に 示し ます . 

BASE は , 非常 に 優秀 な 開発 ツー ル で す . リス ト を 公開 
し て いた だ いた だ た キャ リー ラボ ポ さ ん に 本 当 に 感謝 し ます ! 


リス ト 





グラ フィ ックス 関係 を まっ た く サ ポー ト し て いな い の で , 


な ぁ ー ん だ と 思わ れ た 方 も 多い と 思い ます が , これ は , 約 
2 K バ イト の 中 へ 納め ね ば な ら な か っ た か ら で , 次 の バー 
ジョ ン で は , それ ら を すべ て 合 ん だ も の を と 考え て いま す 
が いつ に な る こと や ら …. 

何 は と も あれ 以上 の プロ グラ ム を 利用 すれ ば , カセ モット ・ 
ベー ス で Z80 カ ー ド が 使え る の で す . カー ド を お 持ち の 方 
は 早速 使っ て も らい た いと 思い ます . お 持ち で な い 方 は , 
早速 お 店 へ 買い に 行き まし ょ う ! 

最後 に , 原稿 の 校正 , その 他 に 協力 し て くれ た だ , 渡辺 昌 
彦氏 に 誌上 を 借り て , お 礼 申 し 上 げ ま す . 
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表 3 MZ-80 Tope Loader 


ラベ ル 名 | アド レス | 処理 内 容 















































MOTOFF | 7080 モー ター を 止め る 
MOTON | 7083 | モー ター を スタ ー ト | 
Blos 708F | F-BASIiC の BIOS を コー ル | 
B1 LOAD| 709D | 第 1 プロ ッ ク ・ ロ ー ド 
B2 LOAD| 70A7 第 2 プロ ッ ク ・ ロ ー ド 
| HEpskP | 70cE | リー ター 音 待 ち 合わ せ 
cHECK | 70E4 1 ビット 同期 
BYTEIN | 70FB | 1 バイ ト 入 力 
HEX 2 | 7I1F | Dreg を 表示 
AccC PRT| 7137 Areg 内 ASCII コ ー ド を 表示 
MSGOUT | 7157 X か ら OD が で る まで メッ セー ジ ・ プ リン ト 
MSG | 7162 X か ら OO が で る まで メー セー ジ ・ プ リン ト | 
表 4 
$7044 $20 | $21 
$7047, 48 ロー ド 開 始 アド レス 











横文字 数 

縦 文字 数 

スク ロー ル 開 始 行 
スク ロー ル 行 数 

ファ ンク ショ ン ・ キ ー 表 示 


カラ ー ス イッ チ 





28H/50H 40 字 /80 字 
14H/19H 20 行 /25 行 
0 一 19H 

0 一 19H 

00/02 な し / あ り 


00/FFH カラ ー/ 白 黒 








フロ ー ヂ ャ デー ト 


1 











6809 一 


Z80 
シス テム ・ コ ー ル 






| BIOS コー ル 


セー プ ブ 
(第 1 & 第 2 ブロ ッ ク ) 


第 1 ブロック ・ ロ ー ド 


第 2 プロ ッ ク ・ ロ ー ド 


Z80 へ 


CPU 切り 換え 










RETURN 
to F-BASIC 













8 ぅ 3 


&0 


8 人 





メモ リ ・ マ ッ プ 





0000 







F-BASIC の 


キー 入力 の バッ ファ 
SAVE, LOAD 
の バッ ファ 







258 バ イト 位 












6809 の スタ ッ ク 





し ー09FRJEPGNESh eo 
| eu 居 Gy 直 境 3"「 ここ で 
な | 下 』 | FogE | ラ ァ ィ イル: モー ド | 
BIOS と の パラ メー タ 
1 | 5 | chEsuM | テ ェ ッ ク - サ ムウ ー ク 
3 | 2 | LVFLe | mg-Fe<9z イ フタ 


| 還 EEB 員 |BBKEIEG 還 | 因 
各種 ワー ク ・ エ リ | GIIATCOpElZNUIE き RE コミ 
| 生還 朋 BH 隊 RENEEG 当 2 に as2 近 | 


| PE 凌 且 mm SPSAVEm ス タッ クボ イン タッ セ = ニブ 


PCB 
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0900 
Z80 ド ライ バー(6809) 

BIOS コ ー ル ・ ル ー チ ン 
SAVE /LOAD ル ー テ チン 









ICOS 
サブ プ ブルー チン 


バ パッケージ 


Z80 
スタ ッ ク ・ エ リア 
カセ ッ ト 
ファ イル 情報 
各種 ワー ク ・ エ リア 


BASIC- ROM 

SF2P8 か ら の 

BIOS の み 
使用 


| " 10F0 | エラ ー フ ラグ (エラ ー 時 FFH) 
| 10F1 一 | ファ イル ・ ネ ー ム (8 バイ ト 以 内 ) 


| iiO2 | ロー ド , セー プ す る バイ ト 数 
| ii0o4 || ロー ド , セー プ す る 先頭 アド レス 
| iioe | 実行 開始 アド レス 





























8000 





FFFF こと 2D8 








』0 


表 5 BASE メ イン ・ コ マン ド 表 フ プロー チャー ト 2 MZ-80 Tape Loader 





] 


機能 お よび 使用 法 





BASE( ア セン プル) する . 









A 
A LABEL TABLE FROM? 
5000 
ラベ ル ・ テ ー プ ブル の 先頭 アド レス を 16 進 4 桁 で 入力 タイ トル 表示 
BASE& リ スト 









A/ 使用 法 は A コ マン ド と 同様 
BASE 完 了 後 , BASE リ スト を 出力 
エディ タ を コー ル す る 

E エディ タ か ら 抜 け て メイ ン ・ コ マン ド 待 ち 状 態 に 
戻る と き は [R| [RgT 

m 番 地 か ら メ モリ ・ ダ ンプ 

II] で コマ ンド 待ち に な る 
Jm m 番 地 に ジャ ンプ 

m 番 地 か ら 16 進 デー タ を 入力 
7000.00CD0030 

Km 7003.FF、C3 

[区 | [RET| で コマ ンド 待ち に な る . 
[RET| で 1 番地 手前 に 戻る 

ラベ ル の 値 を 出力 

Oo 0 [RET| で すべ て の ラベ ル の 値 を 出力 
0 ラベ ル 名 で 指定 され た 





第 1 プロ ッ ク ・ ロ ー ド | 
1 回 目 





Mm 
ERROR ? 
































ラベ ル の 値 を 出力 

上 プリ ンタ 出力 の ON/OFF 

! と 

! モニ タ へ 戻る 」 

を ファ イル 情報 
6 BASE エ ディ タク ・ コ マン ド 
ョ マン ド | 機 。 能 4 
6 LP の 示す 行か ら リ スト 


第 2 ブロッ ク ・ 
ロー ド 


1 





TA 全 行 の リス ト 








Tn n 行 か ら リ スト 





P LP を 最終 行 に 移動 ERROR ? 









Pn LP を n 行 に 移動 





PB LP を 先頭 行 に 移動 





Nn LP を n 進 め る 





第 22 プ ロッ ク ・ 
ロー ド 





D LP の 示す 行 を 削除 





Dn n 行 目 を 削除 





1 LP の 示す 行か ら イ ン サ ー ト する ERROR ? 








Wf ソン ソース ・ テ キス ト の セー プ 





| 隊 ソー ス ・ テ キス ト の ロー ド ( テ キス ト 先 頭 番地 か ら ) 





Xm テキ スト ・ ポ イン タ に m を セッ ト す る 





NO ERROR 表示 ERROR 表示 





屋 還 る ト の 先頭 番地 (テキ スト ・ ボ ポインタ) を 表示 





テキ スト の 最終 番地 を 表示 





/ LP を 表示 























Jm 。 |mm 番 地 に ダイ レク ト で ジャ ンプ L 
& NEW 呈 | 」 

う スク リー ン ・ エ ディ タ を 起動 する 

R メイ ン の コマ ンド 待ち に 戻る 





Ss s と いう 文字 列 を サー チ し , あれ ば LP を その 行 に セッ ト す る 





# プリ ンタ 出力 の ON/OFF 





義生 | 半生 | 半 | 半 | 靖 | 生 | 痛 | 消 | 半 | 導 | 症 | 半 | 半 | 清 | 半 | 半 | 半 | 半 | 半 | 症 | 痢 脱 














DPn | LP の 示す 行か ら n 行 削除 





8 ら 5 


&O 








MAIN 


GETL 


LETNL 


NL 


PRNTS 


PRNT 


MSG 


GETKY 


BRKEY 


?WR1 


?WRD 


?RD1 


?RDD 


?VRFY 


BELL 


HEX4PR 


HEX2PR 


ASC 


HEX 


HLHEX 


HEX 


?DPCT 


?2 KEY 


RETURN 


GETC 


BIOS 


SCREEN 


WIDTH 


LPRNT 


AUX1 


AUX2 





0BAD 
0BB0 
0BB3 
0BB6 
0BB9 
0BBC 
0BBF 
0BC2 
0BC5 
0BC8 
0BCB 
0BCE 
0BD1 
0BD4 
0BD7 


0BDA 


表 1 サブルーチン 仕様 書 


簡易 モニ タ の コー ルド ・ ス ター ト ヘ へ ジャ ンプ 


スク リー ン ・ エ ディ タ を 含め た 1 行 入力 . (DE) 以降 に 転送 
CR&LF 後 新しい 行 の 先頭 に アト リピ ビ ュー ト を 設定 . ア トリ ビュ ー ト は , ATCODE の 値 
カー ソル が 行 の 途中 に ある 場合 の み し LETNL を 実行 
スペ ー ス を 1 つ プ ブリ ント 
A レ ジス タ の 内 容 を キャ ラク タ ・ コ ー ド と 見 て , 対応 する 交 字 を プリ ント 
(DE) 以 降 の 六 字 列 を 0DH が 出る まで メッ セー ジ ・ プ リン ト 
A 一 リア ル タ イ ム ・ キ ー 入 力 . 入力 が な いと き は , A テ 0 
[CTRL] [<| が 押さ れ て いれ ば Zー 1 で リタ ー ン 
"ミー (キャ リー を クリ ア し て リタ ー ン ) 
10F 1H か ら の ファ イル 情報 に 基づい て , セー プ (F-BASIC と 同じ フォ ー マ ッ ト ) 
ヘッ ダ ・ ブ ロック の ロー ド 10F1 か ら 8 バイ ト に ファ イル 名 が スト ア さ れ ま す . 
デー タ ・ プ ロッ ク の ロー ド 1102H か ら ロ ー ド し た バイ ト 数 その 他 が スト ア さ れる . 
デー タ ・ ブ ロッ ク の ベリ ファ イ / 
ベル を 1 回 鳴ら す 
HL の 内 容 を 16 進 4 桁 で プリ ント 
A の 内 容 を 16 進 2 桁 て で プリ ント 
A の 下位 4 ビッ ト 16 進 1 桁 (ASC11) に し て 一 A 
A の 16 進 数 (ASC11) を 2 進数 に な お し て 一 A 
(DE) 以 降 の 16 進 4 桁 (ASC11) を その 順に 2 進 に し て 一 HL 
(DE) 以 降 の 16 進 2 桁 (ASC11) を 2 進 に し て 一 A 
画面 の コン トロ ー ル 
A 一 1 文字 キー 入力 (カー ソル 点 減 ) 
F-BASIC の ホッ ト ・ ス ター ト へ ジャ ンプ 
GETL 後 未 転送 の 変更 され た エリ ア を (DE) 以 降 に 転送 
RETFLG(08FDH) の 値 に より , 6809 の プロ グラ ム を コー ル (BIOS そ の 他 ) 
LーCURX H ロ 一 CURY を 入れ て コー ル す る と その 座標 の キャ ラク タ ・ コ ー ド を A に 入れ て リタ ー ン 
ワー ク ・ エ リア (0BE0Hー ) の 値 に よっ て 画面 モー ド ・ セ ッ ト 
A レ ジス タ の 値 を プリ ンタ へ 出力 
拡張 用 


// 








0000 


0003 


0006 


0009 


000C 


0012 


0015 


001B 


001E 


0021 


0024 


0027 


002A 


002D 


008E 


039A 


03C3 


03DA 


03F9 


0410 


041F 


0DDC 


09B3 





リレー チーン ・ コ ン ン バー タタ プロ グラ ム ( 己 ASIC) リ ス ト 








10 
2 
30 
40 
5O 
6O 
70 
80 
90 
10O0 
110 
120 
13O 
140 
15O 
16O 


*※ GuDbFOutin 与 上 On ロ veF モ er ※ 

CLEAR 3OO。&H1 1FF 
PRINT "Hutput Devic ? (V/P) "iBTNPUT 生 (1) 

IF を も ="PP THEN ロ PEN "0"。1。"LPTOs " ELSE ロ UPEN "ロロ "。1。 "SCRNs " 
INPUT "Gtart Qddre=5 " ョ 人 Q 生 = T=VQL ("&H" 人 第) 

INPUT "End Qddre5=5 リョ 仙 負 = ビ ーVQL ("を H" 人生 ) 
=PEEK(1 ) 

IF 人 Q く >&HC さ 3 QRND <>&HCD BHTO 160 
C=PEEK( エ +1 ) +PEEK( エ +2) *※256』 ITF C>&H1OOO THEN 16O 

B あ =R TGBHT 生 ("OOOO" 。4ーLEN (HEX 和 も ( じ ) ) ) +HEX 和 ま ( ビ ) 
PRINT1。HEX 和 も (T) キ リー リト HEX も (人 Q) 日 "> リョ sRESTORE 170 

READ も 。B も 。 し 人 Rn 多 = TF 人 多 ="O" THEN PRINT 共 1 。 "NNNNNN "sgBHTH 160 
ns=VAL ("&H" す 人 多 ) s エ F < く > ビ THEN 120 

B=VQL ( "&H"+B 呈 ) s PDKE エ +1。(B MD 256) 』 PHKE エ +2。 INT(B/256) : エ = エ +2 
PRTINT 符 1。L 人 も すり リョ 

ェ = エ +1 : 午 1 く <=E THEN 7O ELSE PRINT 昔 1:END 








S6 


』O 


サ プ ル ー チ ン ・ コ ン バ ー タ プログ ラム (BASIC) リ スト 





さ 。 BB さ 。 "BETL  "。6』BB6。』"LETNL "。9。BB9。 "NL "。C。 BBC。 "PRNTS " 
F。BD7。 "AUX1  "。12。BBF。"PRNT  "。1 ロ 。B92。"MSB "」1 昌 ,B92。"MBG 

1B, B95。 "BETKY "。1E。B9B, "BRKEY "。,21。B9B。"?MR1  "。24。B9E。"?MRD  " 
27。 BA1 。 "や RD1  "。2Q。BA4』"?RDD  "。2D。BA7。"?VRFY "。30。BD7。 "AUX1 " 
33。 BD7。 "AUX1  "。 さ B。BD7」 "AUX1  "。3E。BAA。 "BELL  "。41。BD7。"AUX1 " 
44。BD7。 "AUX1  "。47。BDZ。"AUX1 "SBA。BAD, "HEX4PR" 。 さじ さ 。 BBO。 "HEX2PR" 


3DQ。 BB さ 。 "SC 。 "。 さ F9。』BB6。"HEX 。 "。410』BB9。"HLHEX "。41F。BBC。 "2HEX  " 
DDC。BBF , "や DPCT "。9B さ 。 BC2。"??KEY "。970。BBF 』"PRNT " 

BB9。BD7。"QUX1  "。BCE。BD7。 "AUX1  "。DA6。BD7。"AUX1  "。DB5。 BBF。 "PRNT 
O。O。END 





還 還 還 還 昌 還 昌 昌 間 昌 昌 間 昌 還 昌 昌 昌 量 本題 本 本 暗 パン Tape Loader アセ ンプ ブル ・ リ スト 時 還 間 間 間 間 昌 昌 是 還 昌 間 昌 間 昌 昌 間 間 





0oooL NAM LOADER O0OB4 7OB6 26 FB BNE BLOAD1 
00002 Q ロ PT M Oo00B5 7OBB ECBD O10E LDD CHESUM,PCR 
00003 PT NOP Q00B6 7OBC EDBD O10C STD CHSUM1,PCR 
Q0004 PT NOG 00OB7 7OCO 8BD 39 BSR BYTEIN 
0o005 PT 8 O0OBB 7OC2 1F B9 TFR Aa。B 

00o06 すす すす も 1 すす 3 すす 11 す 1 も 1311 す 111131111 OooB9 70C4 BD 35 BSR BYTEIN 
OOO0 フ 7 * NMZ-BO Tape Loader ト 1 O0090 70C6 1E 9 EXG RA。B 

0000 3 for FNM-B Version 1.O 00091 70CB 10Q3BDOOFF CMPD CHSUN1 ,PCR 
00009 * Copyright (C) HIRD Soft * 00092 7OCD 39 RTS 

00010 * ネ Mritten by T.Ka5a5ak ぃ u し 1 0009 ミ し 3 

0o011 [3111 も 16111111111113331111113131 00094 70CE E6BD OOF7 HEDSKP LDB CNT。PCR 
Qoo12 RB  *$7000 ooo95 7OD2 8D 10  SKP1 BSR CHECK 
00013 * Oo0096 70D4 24 FB BCC HEDSKP 
Qoo14 BEGIN LEAX MSG1,PCR 00097 7OD6 5 DECB 

ooo15 LBSR MSG ooo98 7ODZ7 26 F9 BNE  SKP1 
ooo16 LBSR MOTON O0099 7OD9 E6BD OOEC LDB CNT,PCR 
00017 LDA 4O Oo10O 7ODD BD 05  SKP2 BSR CHECK 
00018 STA CNT,PCR Oo101 7ODF 25 ED BCS HEDSKP 
00019 LBSR HEDSKP O0102 70E1 5A DECB 

0002o LBSR  B1LOaD 0010 さ 3 7OE2 26 F9 BNE  SKP2 
00021 と BEG LOAD1 00104 1 

00022 LBSR  B1LOAD Oo1O5 70E4 78 FDO2 CHECK QSL  $FDO2 
0002 さ BNE ERR1 O0106 7OE7 25 FB BCS CHECK 
00024 LEAX MSG さ ,PCR OOo107 7OE9 7 FDO2 CHECK1 ASL 。$FDO2 
00025 LBSR MSG 00108 7OEC 24 FB BCC CHECK1 
ooo26 LEAX BUFF+1 。PCR 00109 7OEE さ 4 02 PSHS Aa 

00027 LBSR Oo11O 7OFO 6 4B LDA 75 

00028 LEAX 00111 70F2 4a CHECK2 DECA 

00029 LBSR O0112 7O0F3 26 FD BNE CHECK2 
0003O LEAX 00113 7OF5 35 02 PULS a 

00031 LDD Q0114 70F7 78 FDo2 ASL $FDO2 
00032 EXG 001155 7OFA 39 RTS 

0003 さ TFR 0o0116 1 

00034 PSHS 00117 7O0FB 34 0O4 BYTEIN PSHS B 

00035 LDD O0118 7OFD BD ES BYTIN1 BSR CHECK 
00036 EXG 00119 7OFF 24 FC BCC BYTIN1 
000 ミ 7 TFR 00120 7101 C6 O8 LDB HB 

0003B BRA 00121 7103 8BD DF BYTIN2 BSR CHECK 
00039 LDU 00122 7105 24 12 BCC BYTINS 
00040 LBSR 0012 さ 7107 49 ROLA 

00041 LDA 00124 710 34 06 PSHS Aa,B 

00042 LBSR 00125 71OA ECBD OOBC LDD CHESUN,PCR 
0004 さ LDD 00126 71OE CS ooO1 ADDD 1 

00044 EXG 00127 7111 EDBD OOB5 STD CHESUN。PCR 
00045 ADDD 0012B 7115 35 06 PULS a。B 

Oo0o46 SUBD oo129 7117 20 01 BRA BYTIN4 
00047 LBSR 001 さ O 7119 49 BYTIN さ ROLA 

00048 LDA 001 さ 1 711 5 BYTIN4 DECB 

00049 LBSR 00132 711B 26 E6 BNE BYTIM2 
ooo5o LDD 00133 711D 35 B4 PULS  B,PC 
00051 EXG 00134 # 

oo052 LBSR 00135 711F 8D 02 HEX2 BSR HEXPRT 
00053 LDA 00136 7121 1F 98 TFR  B,^A 

ooo54 STA 00137 1 

00055 BSR 0013B 7123 34 02 HEXPRT PSHS Aa 

oo0o56 001 さ 9 7125 47 RSRA 

00057 00140 7126 4 フ ASRA 

oo058 O0141 7127 47 ASRA 

00059 O0142 712 47 ASRA 

oooeo LOAD2 HBG5, PCR 00143 7129 BD 02 BSR HPUT 
00061 LORD3 NS8 Oo0144 712B S5 02 PULS a 

00062 ネ oo1 45 1 

0006 さ NMOTOFF 00146 712D 84 OF HPUT  aNDa  #$OF 
oo0064 HOTOR 00147 712F B1 oa CMPA  #10 

00065 NMDTON せる FF O0148 71 さ 1 25 02 BCS HPUT1 
ooo66 MOTOR RCB+2。PCR O0149 713 く BB 07 DD 幕 7 

00067 O015O 7135 BB さ O  。 HPUT1 QADDR 則 $ さ O 
00068 00151 * 

00069 BrOS 00152 7137 34 10 AaCCPRT PSHS X 

0o07o 00153 7139 AZBD OOBB STA RCBrB。PCR 
Oo071 * Oo0154 713D 6 14 LDA 音 和 ま 14 
00072 ERR1 HBG2, PCR OO155 713F AZBD 007D STQA RCB,PCR 
0007 さ LOAD さ Oo156 714 さ 3OBD OOB1 LEAX RCB+。PCR 
00074 3 00157 7147 AFBD 0077 STX RCB+2。PCR 
0o075 BiLOAD BUFF , PCR OO15B 714B BE 00o1 LDX 1 

ooo76 #12 00159 714E AFBD OOo72 STX RCB+4。PCR 
00077 BLLOAD O0160 7152 1 フ FF3A LBSR BIOS 
00078 B2LOAD U,X Oo161 7155 35 9o PULS  X,PC 
00079 BLLOAD #O oo162 1 

0008O CHESUNM。 PCR OO163 7157 A6 BO MSBOUT LDA  。X+ 

oooB1 BLOAD1 BYTEIN OOo164 7159 日 1 oD CMPA 1 さ 

00082 ぅ X+ 00165 715B 27 04 BER MGBOUT1 
000S -1。Y Oo166 715D BD DB BSR AaCCPRT 





87 


1O 


MZTAPE Loader 


00167 
00168 
00169 
00170 
00171 
00172 
0017 ミ さ 
00174 
00175 
00176 
0017 フ 7 
00178 
00179 
0018O 
00181 
00182 
0018 さ 
00184 
00185 


3 る 8 


アセ ンプ ブル ・ リ スト 


MG ロ UT1 
き 
INSG 


NaN 
PT 
ロ PT 
PT 


MSGOUT 


メキ 
MGOUT1 
RACCPRT 
MSG 


1 さ ,10 
*Searching”* 
> NMZ Tape* 

O 

人 105 ブ 7 
*Device 1/ ロ ? 
* Error* 

O 

1 さ , 10 
*Foundi 





Z-8O 
NOG 
NOP 
NM 


DRTVER 


SETDP $O0 昌 
ボボ ボボ ポポ パパ ボボ ボネ ポポ ポポ ポポ ポポ ポ ポポ ポポ ポポ ネネ ポ 
\ Z-BO DRIVER Versign 1.0 し 4 
ネ BIOG <==> Z-O System ネ 


* Copyright (C〉 


192 ネ 


し 3 By HIRU/ETF Laboratory * 
* Mritten by T.Kasasaku ネ 
ネネ ネネ ネネ ネネ ネネ ネネ ネネ ポポ ネネ ネネ ネネ ネネ ネネ ホネ 


BUFF 
RCB 
CNT 
BUFFPO 
FINMODE 
CHESUN 
LVFLG 
RUX 
ATCODE 
RETFLG 
SPSAVE 
ERRFLG 
FINANE 
BYTES 
BEGADD 
EXEADD 
し 3 


EQU 
EQU 
EGU 
EQU 
EQU 
EQU 
EQU 
EGU 
EQU 
EGU 
EQU 
EQU 
EQU 
EQGU 
EQU 
EQU 


ORG 
Start 


STS 
LDS 
PSHS 
LDA 
TFR 
LDA 
STA 
LDD 
STD 
BRA 


04 さ D 
OBEO 
$*OBF5 
ま OBF6 
欠 OBFB 
欠 OBF 
OBFA 
ま OBFB 
OBFC 
OBFD 
OBFE 
1OFO 
も 10F1 
も 1102 
名 1104 
第 1106 


$900 


Addr 。 Set 
>SPSAVE 
昔 REBー1 
DP 

菩 0 日 
A。DP 
共和 や じ さ 

生 OOOO 
間 BOOB 
OO001 
LOOP1 


PrOC@55 


LDA 
BEGQ 
DECA 
LBEG 
DECA 
LBEG 
DECA 
BEG 
DECA 
BEG 
DECA 
BEG 


RETFLG 
LOOP2 


RETURN 


SAVE 


B1LOAD 


B2LOAD 


VERIFY 


to Z-0 


CLR 
LDS 
DRCC 
LDA 
STA 
N ロ P 
BRA 


BIOS 


CLR 
LBSR 
BRA 


* CMT Error 
* 
ERR1 CO 
LBSR 


BRA 


RETFLG 
昔 RCBー1 
若 争 40 
共 1 
$FDO5 


LOOP 


ERRFLG 
MOTOFF 
LOOP1 





ドラ イ バ ー 


0016 
001 ヨ 7 
00188 
001 日 9 
00190 
00191 
00192 
0019 さ 
00194 
00195 
00196 
00197 
00198 


日 


13 


SE| 


日 





Nn Errors” 
。10,0 


ND ”* 
1 1ove HITONMI.* 


アセ ンプ ブル ・ リス ト 還 還 間 間 間 間 間 昌 間 間 間 







000 ヨ 2 
O008 ミ さ 
00OB4 
00085 
O0086 
00087 
0008B 
OO008B9 
0009O 
00091 
O0092 
O0009 さ 
00094 
00055 
00096 
O0009Z 
00098 
00099 
00100 
00101 
O00102 
0010 さ 3 
00104 
O00105 
00106 
0010Z 
00108 
00109 
00110 
00111 
00112 
001 1 さ 
00114 
OO115 
001 16 
00117 
001 18 
O0119 
0012O 
00121 
00122 
0012 さ 
00124 
00125 
00126 
O00127 
00128 
00129 
0013O 
O01 さ 1 
00132 
O0013 さ 
00134 
OO01 さ 5 
00136 
0013Z 
00138 
001 さ 9 
O0014O 
O0141 
001 42 
0014 さ 
00144 
00145 
00146 
001 4Z 
OO01 4 日 
00149 
OO015O 
00151 
O00152 
0015 く 
00154 
00155 
00156 
0015Z 
00158 
00159 
0016O 
00161 


O0952 
0955 
095 
OSB 
095D 
0960 
0962 
O964 
O966 
0968 
Oo96A 
O096E 
0970 
0972 
0974 
0975 
097Z 
0979 
O97B 
097D 


097F 
O0981 


O98 さ 
O0985 
OZ 
0989 
098B 
098D 
O990 
0992 
0994 
O996 
O98 
O99A 
099C 
099E 
O9A1 
O09A3 
09A5 
09A7 
09AA 
OAD 
09BO 
09B2 
09B4 
09B6 
09B8 
09BA 
09BC 
O9BE 
O9CO 
O9C2 
O9C4 
O5C5 
O9CZ 
O9C9 
O9CD 
09DO 
Oo9D2 
O9D4 
O09D6 
O5DA 
O9DC 
ODE 
O9EO 
O09ES 
09E5 


O9EZ 
O9E9 
O9EB 
OEC 


ト 
B1LQAD 


LOAD2 


LOAD さ 


LOAD さ 人 
* 
* Data 
1 
VERIFY 


し 1 
* Data 
し 1 
B2LOAD 


LOAD3B 


LOAD4 


LOAD4a 
LOAD4B 


LOAD5 


* 
NTON 


NHUTOFF 
MOUTOR 


* Head B1ockK Load 


LBSR 
CLR 
LBSR 
BNE 
LDX 
LDA 
BNE 
LDA 
CMPA 
BNE 
LDY 
LDB 
LDA 
STA 
DECB 
BNE 
LDA 
STA 
BSR 
BRA 


B1oc 


CLR 
BRA 





IOTON 
ERRFLG 
BLOAD 
ERR1 
BUFF 
ぁ X+ キ 
LUAD2 
日, X 

幕 2 
ERR1 

間 FINQNE 
半日 
















































k Verify 


LVFLG 
LOAD3B 


k Load 


昔 1 
LVFLG 
MOTON 
BLOAD 
ERR1 
間 BUFF" 





BEGADD 
WBUFF+ フ 
BUFF+1 
に ) 

PL 
LVFLG 
LOAD4a 
ュ U+ 
ERR1 
LOAD4B 
ぅ U+ 
ー1。Y 
LOAD5 


LOAD4 
BL ロ AD 
ERR1 

共 BUFF+1 


LOADS3A 


# 多 FF 
MOTOR 


RCB+2 
間 1 







&O 


Z80 ドラ イ バ ー アセ ンプ ブル ・ リ スト 
































00163 OFO 97 EO BTA RCB 00261 OnQB 2Z 02 BEG SAVE ヨ 
O00164 OF2 BE OBEO BIOS LDX #RCB 00262 OAD D 51 BSR BLSQVE 
00165 OF5 6EF  FBFA JNMP [*$FBFA] 0026 さ 3 OAAF 86 01 SAVEB  LDA 暮 1 
00166 し 3 00264 OAB1 BD 1F BSR CMTOUT 
00167 * ロ ne-B1ock Load 00265 OAB3 8B6 3 ピ LDA 菩 争 さじ 
001 6 日 3 00266 OB5 BD 18 BSR CMTOUT 
O00169 O9F9 6 OS BLUAD LDA 半 さ 00267 OAB7 6 FF LDA 間 多 FF 
00170 OFB 97 EO STA RCB 00268 OAB9 BD 17 BSR CMTOUT 
00171 OFD BE 043D LDX 幕 BUFF 00269 OaBB 4F CLRA 
O0172 OOO 8BD 2C BLUAD1 BSR CMTIN 00270 OABC BD 14 BSR CMTOUT 
00173 OAO2 1 01 CMPR  #1 00271 OaBE BD Oo8 BSR SAVE 
O00174 OO4 26 FA BNE BLOAD1 00272 OACO 8D 72 BSR MAIT 
00175 OAO6 8BD 26 BSR CMTIN 0027 さ OAC2 17 FF26 LBSR MOTOFF 
00176 OAO ヨ 1 さ 3C CMPA まさ ビ 00274 OAC5 16 FE6A LBRA LOOP1 
O0177 OOa 26 F4 BNE BLOAD1 00275 ネ 
0017 日 OOC BD 20 BSR CMTIN 00276 OaCB C6 OE SAVE9  LDB 幕 14 
00179 OAOE 97 F9 STA CHESUN 00277 OCR B6 FF LDA 間 多 FF 
0018O0 OQ1O Z 0 STA >% ヤ 0027 OACC BD Oo4 SAVE1O0 BSR CMTOUT 
001 昌 1 Oa12 8BD 1 BLOAD2 BSR CMTIN 00279 OACE 5a DECB 
O01B2 Oa14 Z B0 STA > メ + 002 ヨ 0 OACF 26 FB BNE SAVE10 
001 昌 3 OA16 27 15 BEG BLOQD4 00281 OAD1 39 RTS 
001 ヨ 4 OA1H 1F 9 TFR AB 00282 ネ 
00185 OA1a 9B F9 RDDA CHESUN 0028 さ * 1 Byte utput 
001 ヨ 6 Oa1C 9Z F9 STA CHESUN 00284 ネ 
00187 Oa1E BD OE BLUAD さ BSR CMTIN 00285 OAD2 34 12 CMTOUT PSHS QA。X 
00188B OQ2O AZ Bo STA >X+ 002B6 OAD4 97 1 デフ STA RCB+2 
001 ヨ 9 Oa22 9B 7 RDDQA CHESUN 002B7 OAD6 6 02 LDa 昔 2 
00190 OA24 97 | 式 / STA CHESUN 002BB OADB 9Z EO STA RCB 
0O0191 OA26 5A DECB 002B9 OAD 17 FF15 LBSR BIOS 
00192 Oa27 26 F5 BNE BLOAD さ 00290 OADD Bo FDO4 LDA  $FDO4 
0019 さ OA29 D 0 さ BSR CMTIN 00291 OAEO B4 02 RNDR 革 2 
00194 OA2B 91 F9 CMPA CHESUN 00292 OAE2 1027 FEG64 LBEQ ERR1 
00195 OA2D 9 BLOAD4 RTS 00293 OAE6 35 92 PULS  a,X,PC 
00196 ネ 00294 に 
00197 * 1 Byte Input 00295 OAEB 8D 02 DSDRV BSR SDRIVE 
oo198 門 O0296 OQEA 1F 9 TFR  B,A 
OO199 OA2E 34 1O CHTIN PSHS X 00297 OAEC 34 10 SDRIVE PSHS X 
O0200 Oa3O B6 FDO4 LDA  $FDO4 0029 OAEE 5E Fe LDX BUFFP ロ 
OO201 Oa3 さ B4 02 ANDA  W2 OO299 OQFO a7 8o STA  』X+ 
00202 OA35 1027 FF11 LBEQ ERR1 00300 OAF2 9F F6 STX BUFFPQ 
0020 さ OA39 BD BZ BSR BIOS 00301 OAF4 0C FS INCE CNT 
00204 OQ3B 96 E2 LDA RCB+2 00302 OAF6 96 F5 LDA CNT 
OO2055 On3D 35 9O PULS  X,PC 00303 OaFB 1 FF ENP 昔 多 FF 
oo2o6 1 003O4 OaFA 26 02 BNE SDRIV1 
00207 #* Save Routine 00305 OAFC BD 02 BSR BLSAVE 
00208 3 00306 OAFE さ 35 0 SDRIV1 PULS  X。PC 
00209 OA3F BE 043D SAVE LDX 共 BUFF 00307 に 
00210 OA42 9F F6 STX BUFFP0O 0030 日 OBOO 34 1O BLSAVE PSHS  X 
00211 Oa44 C6 Oo8 LDB 音 日 00309 OBO2 BE 043D LDX 幕 BUFF 
00212 OaA46 OF F5 CLR CNT 00310 OBOS 9F F6 STX BUFFP ロ 
0021 さ 3 Oa48 BE. 10F1 LDX FINANE 00 さ 1 1 OBO7 6 O1 LDA 革 1 
00214 Oa4B Aa6 BO SAVE1  LDA 5 キ 00312 OBO9 8BD CZ BSR CMTQ ロ UT 
00215 OA4D 17 009C LBSR SDRIVE 0031 さ OBOB 8B6 3C LDA 革 あ さ ピ 
00216 QA5O 5a DECB 00314 OBOD 8D CS3 BSR CHTQUT 
00217 OA51 26 F8 BNE SAVE 1 00315 OBOF 96 F8 LDA FIMODE 
00218 OQ5S FC 1104 LDD BEGADD 00316 OB11 BD BF BSR CMTOUT 
00219 OAS56 1E B9 EXG AA。B 00 さ 317 OB13 97 F STA CHESUIN 
O00220 OaSB 1F 03 TFR DU 0031 昌 OB15 96 F5 LDA CNT 
00221 OA5Q FC 1102 LDD BYTES 00319 OB17 OF F5 ELR CNT 
00222 OASD 1E 9 EX Q。B 00320 OB19 ヨ D BZ BSR CMTOUT 
0022 さ OAS5F 1F 02 TFR D,Y 00321 OB1B 1F B9 TFR An。B 
O0224 OA61 BD B4 BSR MOUTON 00322 OB1D 9B F9 DD CHESUI 
00225 OA63 17 OO0CE LBSR MAIT 0032 さ OB1F 9Z F9 STA CHESUN 
00226 OA66 OF F8 CLR FIMODE 00324 OB21 a6 0 BSAVE1 LDA sX+ 
00227 OA68 BD SE BSR SAVE 00325 OB2 く BD AD BSR CMTOUT 
0022 OA6Q 6 02 LDA 幕 2 00326 OB25 9B 所 DDQA CHESUN 
00229 Oa6C BD 7E BSR SDRIVE 00327 OB27 9Z F9 STA CHESUN 
0023O _OA6E C6 OB LDB 幕 11 0032 昌 OB29 5A DECB 
00231 OA7O 4F SAVE5  CLRA 00329 OB2A 26 F5 BNE BSAVE 1 
00232 Oa71 BD 4/ BSR SDRTIVE 00330 OB2C 96 F9 LDA CHESUI 
0023 さ Oa73 SA DECB 00331 OB2E BD A2 BSR CMTOUT 
00234 OQ74 26 Fa BNE SQVE5 00332 OB3O 8BD 96 BSR SAVE9 
00235 OZ76 17 O0BZ LBSR BLSAVE 00 さ 333 OB32 さく 5 90 PULS  X。PC 
O0236 OAZ79 5F CLRB 00334 ネ 
00237 OAZ7A 8B6 FF LDA 間 あ FF 00335 OB34 86 oOA MAIT LDA 幕 10 
O0023 日 On7C BD 54 SAVE6 BSR CMTOUT 00336 OB36 BE 0000 MAIT1 LDX 昔 O 
O0239 OA7ZE 5A DECB 003 さ 7 OB39 3O 1F MARIT2 LEAX 一 1。X 
O00240 OA7F 26 FB BNE SAVE6 0033 日 OB3B 26 FC BNE MAIT2 
00241 OB1 OC F INC FINMODE 00339 OB3D 4 DECA 
00242 OABS 4F CLRA 00340 OBSE 26 F6 BNE MaIT1 
O00243 OB4 BD 66 BSR SDRIVE 00341 OB4O 39 RTS 
00244 OAB6 1F 20 TFR Y。D 00342 ネ 
O0245 OABB BD SE BSR DSDRV 00 さ 4 さ * Return 上 O FーBAS1C 
O0246 OaBQ 1F 3O TFR U,D 00344 ネ 
O00247 OABC 8D Sa BSR DSDRV 00345 OB41 35 oO8 RETURN PULS DP 
0024 昌 OABE A6 CO SAVEZ LDA  。U+ 00346 OB4 さ 1OFE OBFE LDS >SPSAVE 
O0249 Oa9O 8BD 5A BSR SDRIVE 00 さ 47 OB47 6E9F FBFC JHP [*FBFC] 
O025O _OQ92 31 3F LERY 一 1。Y 00348 ま 
O0251 OA94 26 F8 BNE SAVE フ 00349 OB4B 4 さ FCC *Copyright ( ビ ) 
00252 OA96 86 FF LDA 草 あ FF 0035O OB59 4 FCC *JT1ETF JNIEQV * 
O025 さ OA98 8BD 52 BSR SDRIVE 00351 OB67 4a FCC *JM1FXM JN1XUL * 
O0254 OA9Q CC Oo00O LDD 昔 O 00352 OB75 さ 1 FCC * 1982/O4/12* 
00255 OAD BD 49 BSR DSDRV 0035 さ し 】 
00256 OA9F FC 1106 LDD EXEADD 00354 END 
00257 OAA2 1E B9 EXG AB 
0025B OAQ4 8BD 42 BSR DSDRV 
OO0259 OaAA6 BE O43D LDX 間 BUFF 
O00260 OAA9 9C F6 CMPX BUFFPO | 
昌和 EE FM- 8 ダンプ ・ リ スト 還 還 昌 間 間 
+1 +2 + さ +4 + 品 +6 + プ + 日 + ウ +Q +B +C +D +E +F Sum 122O 60 OO OO OO OO OO 0O0 0 ミ OO OB 03 OO OE OO oO 0O s7C 
SE 2D CS B9 2D O1 25 34 OO 34 a7 34 OH OO 25 :BD 123O OO OO OO OO OO OO OO OO OO OO 00 OO 0 OO OO oO goO 
1210 さ 4 OO 6O O1 60 04 OO O1 6O QO OO OO OO 20 さ 4 0O :aE 1240 40 12 03 40 O1 OO OO CD 6 OB 1 OS CD 8B9 OB さ a :A^a 
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BASE FM-8 ダン プ ・ リ スト 
1250 45 12 B7 CB さ 3E OD CS 48 3O FE 20 3O 06 F5 CD BF :O1 1730 CA 95 16 FE 22 2B Ba FE さ O 3B 07 FE 3 3O 03 CS >:E2 | 
1260 OB F1 C9 F5 CD D フ 7 OB 1740 6E 16 1A FE 3 20 04 11 OO OO C9 FE 20 20 04 11 =:27 
1270 CS C2 OB CS 95 OB 1a 175O OO OO C9 FE 29 20 04 11 OO OO C9 1 BF CD 29 17 sD2 
12BO FS 3 45 12 B7 28 OS 1760 DS ED 5B OF 12 1 FE 2F 28 2F FE 2B 2 1E FE 2D :76 
1290 C9 7C CD 96 12 7D F5 177O 2B 35 FE 3a 20 02 D1 C9 FE 20 20 02 D1 C9 FE 29 :52 
12QO F1 E6 OF BZ 27 C6 FO 17BO 20 02 D1 C9 FE OD 20 02 D1 C9 1 2D CD 64 16 CD iDC 
179O 29 17 62 6B D1 19 EB 18 CZ CD 64 16 CD 29 17 42 =57 
17A0 4B D1 CD QB 12 18 B9 CD 64 16 CD 29 17 7B 2F 5F iD4 
17BO 7 2F 7 13 E1 19 EB 1 QA7 1E 31 1 OE 1E 32 1 :94 
17CO OA 1E さく 1 06 1E 34 1 02 1E 35 CD aa OB CD 47 iCE 
17DO 12 CD 26 16 2 45 52 52 20 00 7B CD 59 12 CD 4C 』1Aa 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 17EO 12 ED 5B 07 12 CD DB 1 CD 4 13 CS B9 2D ES 2 67 
17FO OF 12 7E FE OD 28 OE FE 20 20 0 23 1 F4 FE 3 :BB 
SBum: O7 54 11 92 a8 54 D2 44 2D 6C 70 1B CB 17 1E DF =1 さ 3 
dd +O +1 +2 + さ +4 + +6 + プ + 日 +9 +a +B +C +D +E+ ォ F Sum 
180O 20 03 2 18 ED 22 OF 12 E1 C9 ES 2 OF 12 7E 23 =:09 
1B10 FE OD 20 Fa 22 OF 12 E1 C9 ED 5B OF 12 D5 E5 21 :56 
1B20 25 12 36 OO E1 CD 31 16 2 49 5B 2B 29 OO 28 53 sFA 
1B3O D1 ED 3 OF 12 D5 CD さく 1 16 2 49 59 2B 29 00 2 = の 61 
1B40 42 D1 ED 53 OF 12 CD FE 18 BZ CO CD 31 16 28 49 =:53 
1B5O SB 2B OO 20 04 OE 11 18 12 CD 31 16 2 49 59 2B 』F9 
1B6O OO 20 0O4 OE 14 18 O4 OE OO aF C9 C5 CD 5D 17 7B 69 
1B70 32 25 12 CD 31 16 29 OD OO 2 O5 C1 OE 00 79 C9 』F1 
1BBO C1 79 C9 D1 ED 53 OF 12 CD FE 1 C9 ED 5B OF 12 s4A 
1890 DS E5 21 25 12 さ 6 OO E1 CD さ 1 16 28B 49 5B 2B 29 』5A 
1BAO OO 28 52 D1 ED 53 OF 12 DS CD さ 1 16 2 49 59 2B Ba 
18BO 29 00 28 41 D1 ED 53 OF 12 CD SE 19 B7 CO CD 31 s7D 
1BCO 16 2B 49 5B 2B OO 20 04 OE 11 1 12 CD さ 1 16 28 =:BS 
18DO 49 59 2B OO 20 04 OE 14 1 O4 OE OO aF C9 C5 CD :47 
1BEO SD 17 7B 32 25 12 CD さ 1 16 29 OO 28 O5 C1 OE OO i91 
1BFO 79 C9 C1 79 C9 D1 ED 53 OF 12 CD SE 19 C9 21 aB :5O 
Sumz D4 37 ES 7 SO D1 日 3 1B DE 9B 5O DE SB OC 06 aE :E6 
dd +O +1 +2 +3 +4 +5 + ら 6 + フ + 日 +9 +a +B + ビ +D +E +F Sum 
1400 CD OO 1 CD SE 13 2 OF 12 22 07 12 C9 CD FD 1 :4a 
1410 C さ 日 S 13 2 09 12 aF C5 O1 OO OO ED B1 C1 2B 22 :BF dd +O +1 +2 + さ +4 +5 +6 + プ + 日 49 +a +B +C +D +E +F Sum 
1420 OB 12 C9 1 FE OD Ca B さ 1 FE 41 CA 75 1 さ 18 DD =:F1 1900 1D 1 OB 21 EZ 1D 1 03 21 B1 1 OE O1 ED SB OF :9F 
14 さ 0O CD B9 OB DB 22 09 12 CD 1 14 ED 5B 09 12 ED 5 さ :3D 1910 12 7E B7 28 26 1 BE 20 OB FE 2F 2 1E 13 2S 18 :B6 
1440 07 12 ED 5S OF 12 C9 2 09 12 さ 6 0O 18 EC CD DB :67 1920 F4 7E FE 2F 20 OB 1Q FE さ a CB FE OD CB FE 2o CB :9D 
145O 1 さ 2 OD 12 23 23 EB C3 E4 12 2 09 12 CS 91 12 kF1 193O 7E 23 OC FE 2F 28 D6 7E 2 1B FB OE OO C9 E5 CD :12 
1460 CD 1 14 CS 91 12 CD B9 OB DB D1 E9 1 FE 42 2 >FF 1940 OB 19 79 B7 2 04 ED 53 OF 12 E1 C9 E5 CD 03 19 :56 
1470 C9 1 昌 BA CD OO 1 さ 44 4D CD 45 13 BZ CB OB 78 B1 』B4 1950 1 FO E5 CD BC 1 1 Ea E5 CD 19 1 1 E4 21 AB :OB 
14BO C2 7B 14 C9 2 07 12 CD 3C 1 CD 1E 1 さ ED SB OF :CB 1960 1D 1 0O さ 21 EF 1C OE O1 ED SB OF 12 7E B7 2 CB 04 
1490 12 1Q 13 77 23 B7 C2 91 14 C9 1 くさ CD 00 13 44 4D 』44 1970 1 BE 20 OB FE 2F 28 CS 1 さ 23 1B F4 7E FE 2F CB iCD 
14AO 78 B1 CB OB CD 4 14 18 F7 1a FE 5O 28 EC FE OD :FZ 19BO OC 7E 23 FE 2F 2 E1 1 FB E5 CD 63 19 1 BS aF iz9B 
14BO 2 D2 CD OO 13 CD 5E 1 2 OF 12 22 07 12 18 C4 』7a 1990 さ 2 2B 12 32 29 12 32 2 12 32 2B 12 2^ OF 12 ES sE6 
14CO DS O1 O1 OO 2 07 12 7E BZ 28 0O4 0 さ 23 18 FB E5 』96 19QO CD さ 1 16 2B OO 20 09 E5 21 2 12 36 01 E1 1 OE :E6 
14DO 1Q FE OD 2 04 1 さ 23 1 日 F7 2 7C FE CO 3O 1 36 : フ さ 19BO CD さ 1 16 2D OO 20 07 E5 21 28 12 36 02 E1 CD 52 sEO 
14EO DD 7E FE DD 20 13 EB E1 ED BB 2 07 12 D1 1 77 :7F 19CO 19 BZ 2B 55 さ 2 2 12 CD 31 16 2B OO 20 09 E5 21 :29 
14FO FE OD CA 45 13 23 1 さ 3 1 FS CD 26 16 2 4D 45 4D :B2 19DO 29 12 36 O1 E1 1 OE CD さ 1 16 2D OO 20 07 E5 21 EZ 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 19EO 29 12 36 02 E1 さ a 1F 12 BZ 28 OB CD 31 16 29 さ D 』20 
Sum: 56 54 24 73 DB F4 F さ 2F FF 4 39 4B 65 CF 6B 34 :CC 19FO OO 1B 06 CD さ 1 16 29 OD @O 20 1E 3 2 12 FE 07 s21 
Sum: 3B 11 45 DO 7 DD BC 65 DF 97 FA 20 C1 4E 99 BD :6E 
Add  +O 1 +2 + さ +4 +55 + ら 6 + プ + 日 +9 + +B +C +D +E +F Bum 
1500 4F 52 59 20 46 55 4C 4C OO E1 D1 C9 11 3 11 CD :5a 
1510 10 1 1a FE 1B CB CD CO 14 1 F1 2 07 12 22 OF :5a Add +O +1 +2 +3 +4 +55 +6 + プ + 日 +9 + +B +C +D +E +F Bum 
1520 12 EB 21 5 11 42 4B Oa BE 2 14 7E FE OD 20 02 :1O 1A0O 3O 17 FE O5 38 OD FE O5 さ E DD 28 02 3E FD 32 2B se6F 
1530 BZ7 C9 1Q FE OD 20 02 37 C9 21 a5 11 13 1B E6 7E 2D 1A10 12 3E 0O3 32 2a 12 E1 AF C9 E1 22 OF 12 Fa 05 C9 』i02 
1540 FE OD 20 02 B7 C9 03 23 1 DD 1 さ 1Q FE OD CB CD :95 1Q20 さ 2B 12 BZ 2B 12 3D CD 7D 1 C6 03 4F さ @ 2 12 s94 
1550 1B 15 さ O OB CD 45 1 さ 1 B7 CB 1 F さ CD DB 13 く CS :aC 1Q3O 3D CD 7C 1 B1 さ 2 2 12 さ 29 12 BZ CB 3D CD 7D soB 
1560 A4 1 さ 11 3 11 CD 10 31 CD 00 1 さ 7C B5 CB D5 CD si05 1A40 1 C6 03 4F 3 2 12 3D CD 7C 1 BB1 32 29 12 C9 >FF 
1570 SE 13 2 OF 12 22 07 12 CD B4 14 D1 CD CO 14 18 :E6 1A50 CD 20 1 さ a 2 12 21 63 1 3D 4F 06 OO 09 7E 32 :66 
15BO E1 11 1 15 D5 CD 4C 12 さ 3E 23 CD 59 12 11 の 3 11 :E6 1A6O 2 12 C9 Oa 1 7E CD 20 1 3 2C 12 D6 07 FE OB :O9 
1590 CD 10 さく 1 1a FE 2 さ 20 DO 13 1 1 さ FE 26 CA 47 14 :C2 1A7O D2 B9 17 CD ZD 1^a C6 46 32 2 12 C9 07 07 07 07 sG65 
15Q0 FE 53 2 QA6 FE 54 CA 23 14 FE 2C CA 5a 14 FE 2E OO 1QBO C9 53 54 41 52 54 2F 44 45 46 42 2F 44 45 46 57 :EC 
15BO CA 60 14 FE 2F Ca 4E 14 FE SO Ca eC 14 FE 4 Ca :41 1a90 2F 44 45 46 53 2F 44 45 46 4D 2F 4F 46 46 5S 45 :SE 
15CO 66 14 FE 5B Ca 3O 14 FE 44 Ca a9 14 FE 49 Ca OC :C4 1QQO 54 2F 45 51 55 2F 49 46 2F 47 4F 54 4F 2F 4 52 :5F 
15DO 15 FE 23 Ca 18 さ O FE 4E Ca 73 14 FE 4C Ca 1 2F sa9 1QBO 2F 44 4 4E 5 2F 4 4D 5O 2F 4 くさ 41 4C 4C 2F 47 : さ C 
15EO FE 45 CA 22 15 OO OO oO OO FE 57 20 04 aF CS 25 ks94 1ACO 4F 53 55 42 2F 44 4F 2F 55 4E 54 49 4C 2F 2 49 』56 
15FO 2F FE 52 20 02 D1 C9 FE OD C8 CD 26 16 4 くさ 4F 4D :F6 1ADO 5B 29 3D 28 49 5B 29 2B さ 1 2F 2 49 5S9 29 3D 28 :9 さ 
Ed で 全て 舞 な か "552E て に マイ ー ン デー ニー 1AEO 49 59 29 2B さ 1 2F 2B 49 58 29 3D 28 49 58 29 2D sa4 
Sumi 61 QB 64 F4 1F BB F2 さ O 2 F9 4 C1 O 39 BC 9B :FD 1QFO さ 1 2F 28 49 59 29 3D 28 49 59 29 2D さ 1 2F 44 45 :99 
Sum: 3 09 97 6C SC OC ED 8O 22 26 ^E 27 Ba BF a7 A5 :CB 
add  +O +1 +2 +3 +4 +55 +6 + フ + 日 49 +aa +B +C +D +E +F Bum 
1BOO さ C 3E 4B 4C 2F 4 4C 3C SE 44 45 2F 41 46 3C SE 』04 
1B1O 41 46 27 2F 45 58 58 2F 28 53 5O 29 さ 3C SE 4B 4C :OS 
1B20 2F 44 45 43 49 4D 41 4C 2F 43 4D 5O 4C 28 41 29 :OB 
1B3O 2F 4 4D 5O 4C 2B 43 59 29 2F 43 59 3D さ 1 2F 43 :F さ 
1B40 59 3D さ O 2F 41 3D 3O 2F 4E 4F 5O 2F 4 41 4C 54 :1 フ 
1B5O 2F 44 49 4E 54 2F 45 49 4E 54 2F 47 4F 54 4F 28 :4D 
1B60 4 昌 4C 29 2F 5O 43 3D 4B 4C 2F 53 5O 3D 48 4C 2F =:22 
1B7O 52 45 54 2F 52 45 54 55 52 4E 2F 42 3D 42 2B 31 :46 
1BBO 2F 43 3D 43 2B く 1 2F 44 3D 44 2B 31 2F 45 3D 45 :94 
1B9O 2B さく 1 2F 48 さ D 4 2B さ 1 2F 4C さ D 4C 2B さく 1 2F 28 :6B 
1BQO 4 4C 29 さ D 2 4B 4C 29 2B 31 2F 42 3D 42 2D さ 1 』 昌 9 
1BBO 2F 43 さ D 43 2D さ 1 2F 44 3D 44 2D 31 2F 45 3D 45 :98 
1BCO 2D さ 1 2F 48 3D 4 2D さ 1 2F 4C 3D 4C 2D さ 1 2F 2 :71 
1BDO 4 4C 29 さ D 28 4 4C 29 2D 31 2F 4E 45 47 2F 52 =>CZ 
1BEO 45 54 49 2F 52 45 54 4E 2F 52 52 44 2F 52 4C 44 :72 
1BFO 2F 4C 44 49 52 2F 4C 44 44 52 2F 4C 44 49 2F 4C :32 
Sum: B7 さ D QE F1 06 FF 1C F3 9B 4F D7 23 C2 0C B5 BF :CD 
Add 。 +O +1 +2 + さ +4 + 呈 + ら 6 +7 +B +9 +a +B +C +D +E+F Sum 
1700 さ Q CB FE 2B CB FE 2D CB FE 29 CB FE 2F CB 18 EZ :C9 
1710 60 69 29 ED 4B 1 12 09 SE 23 56 C9 ES CD D1 16 :91 Add 。 +O +1 +2 +3 +4 + 品 + ら 6 + フ +B +9 +A +B +C +D +E ォ F Sum 
1720 ED 53 OF 12 CD 1O 17 E1 C9 ED 5B OF 12 1a FE 24 =:a4 1COO 44 44 2F 43 SO 49 52 2F 43 5O 44 52 2F 43 5O 49 =:48 
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BASE FM- 8 ダン プ ・ リ スト 




















人 Add  +O 1 +2 + さ +4 +5 +6 + フ + 日 +9 +QR +B +C +D +E +F Sum Add  +O +1 +2 + さ +4 +5 +6 + プ 7 + 日 19 + 人 Aa +B +C +D +E +F Sum 
2600 26 11 OO OO ED 5 く ミ 27 12 36 OO D6 08 28 22 3D 2 7 さく 2BOO OS 2 14 D1 FE O5 3O 1 3D CD 7C 1 C6 4 く CD OD iDE 
2610 1B さ D 2 35 SD 28 22 3D 28 09 36 09 さ E FD 32 27 s7D 2B10 24 O1 ED Oa OD OO C9 D1 CD OD 24 O1 22 OD OO C siBA 
2620 12 1 2B 3 さ 6 09 さ E DD 32 27 12 1 1F 36 09 1 1B sCO 2B20 CD DB 2 さ 1 F さ CD 5 19 BZ7 CA B9 17 32 2C 12 FE iDO 
26 さ O 36 4 3E ED さ 32 2 12 1 12 さ E B7 CD A1 2 さく 36 42 s3F 2B さ O OE 28 22 FE OZ7 DQ B 17 FE OF D2 B9 17 3 2 12 』2C 
2640 ES 21 2 12 36 ED E1 1 02 1H F さ CD 5 19 BZ 28 s6 2B40 FE O2 DA B9 17 CD 66 1 さ a 2C 12 D6 07 C6 70 32 siB4 
2650 26 FE 07 D2 B9 17 さ a 27 12 BZ C4 QA1 2 く 3 3 28 12 jiF さ 2BS5O 2Q 12 CS3 2 2 CD 5O 1A さ 2 12 D6 OB FE 76 20 iCA 
2660 B7 C4 QA1 2 さ 79 FE O5 3 O2 3E 0 さ 3D CD 7C 1a 4F s25 2B60 02 3E 77 32 2 12 CSB2 2 D5 CD SD 17 43 D1 D1 』BF 
2670 さ 29 12 1 CS Q1 2 さ CD 5D 17 CD OD 24 O2 DS 11 ia4 2B7O CD OD 24 02 E5 21 OD O1 36 OB O1 E1 OO C9 2 09 =: さく 
26BO OD OO さ 3 27 12 B7 C4 QA1 2 ささ 2 12 BZ7 C4 A1 23 72 2BBO 12 22 07 12 CD 26 16 4C 41 42 45 4C 20 54 41 42 』AD 
2690 さ Q 29 12 Co6 10 CD 1 23 さ E D1 C さ 1 23 FE 16 さ O 』B6 2B9O 4C 45 20 46 52 4F 4D 20 さ F OD OO 11 3 11 CD 10 』F さ 
26QO SB D6 OE さ 2 27 12 CD 52 19 B7 CA B 17 FE OZ7 Da :12 2BQO さ 1 CD B9 OB DA B9 2D 22 11 12 CD 26 16 2 5O 41 iBB 
26BO B9 17 FE OF さ O 32 D6 07 さ 2 2 12 FE 07 28 1C CD si9E 2BBO 53 5 く 3 20 さ O OD OO EB 2 O7 12 7EFE3B 2B SF FE is6D 
26CO 0O さ 24 CB さ 2 12 4F 3 27 12 CD 7D 1 BB1 CD ^a1 :7B 2BCO OD 28 SB FE 20 2 57 FE さ a 2 5 さく BZ 2 SE ED 53 izSD 
26DO 2 さ CD さ 1 16 29 OD OO C2 B9 17 C9 さ a 27 12 FE O4 si3D 2BDO 1F 12 FE 2B CA CS5 17 FE 2F Ca CS 17 FE 2D Ca CS sBD 
26EO 3 さ BE1 CD 0 さ 24 CB 1 DB CD BF 2 さく D6 07 さ 2 28 12 :CS さ 2BEO 17 FE さ aA 2 OE FE 20 28 OA FE OD 28 06 12 1 く 23 』S6 
26FO CD 0 24 CB さ 25 12 CD A1 23 1 CZ7 FE 19 30 65 si4C 2BFO 7E 1 DF さ E OD 12 1 さ DS aF 12 2 11 12 ED SB 1F 2F 
Sum: OB QA7 BS 2C BB SB FC 9E O4 72 FQ 7 さ 3 EZ7 E2 BB 5C szDO Sum: 9C SF FO 2 6O 4 AC 1 4D SE FC 5D a9 CZ CC FD iDB 
Add  +O +1 +2 + さ +4 +55 +6 + プ + 日 +19 +a + せ B +C +D +E ォ F Sum dd  +O +1 +2 + さ +4 +5+ ら 6 + フ + 日 キワ 9 +aA +B +C +D +E +F Sum 
2700 D6 16 OF OF C6 40 32 27 12 2 OF 12 7E 2 22 OF s98 2COO 12 1Q 1 さ 46 2 さ 04 OS 2 10 B7 Ca C9 17 BB 2 F1 si1B 
2710 12 FE さ O DA B9 17 FE 3 日 D2 B9 17 D6 さ O CD 7D 1^a 2C 2C10 2B 7E 2 さ FE OD 28 E6 18 F BZ7 C2 C9 17 D1 2 07 si5O 
2720 32 2 12 CD 31 16 2C OO C2 B9 17 CD 52 19 FE 0 フ 7 』7B 2C20 12 7E 23 FE OD 2O Fa 22 07 12 1 BB 12 13 く ED SS 』1B 
273O DR B9 17 FE OF 3O 1D CD 03 24 CB D6 07 4F さ a 27 si5O 2C3O 1 さ 12 ED 53 17 12 C9 2 09 12 22 07 12 22 0F 12 s1A 
2740 12 B1 4F 3 2 12 1 CD a1 23 CD さ 1 16 29 OD OO 』B2 2C40 E5 21 2D 12 36 00 E1 2 13 12 22 17 12 21 40 12 』69 
2750 CB CS B9 17 CD BF 23 F5 CD OS 24 CB 3 25 12 CD :FC 2C50 22 40 12 2 07 12 7E BZ CB DD 22 42 12 2 07 12 』4 
2760 QA1 2 さ F1 1 D6 FE 1C さ O 42 FE 19 2 1C FE 1 2 』EA 2C60 22 1D 12 CD 57 24 CD 95 OB FE 5B CQ B9 2D FE 20 ki2a 
2770 SE CD SD 17 CD 0 ミ 24 D さ 3 DS CD さ 1 16 29 さ D 41 OD :E ミ S 2C70 CC 70 12 DD ES D1 2 42 12 EB BZ ED 52 44 4D CD i?E 
27BO OO C2 B9 17 D1 7B CS aQ1 23 CD さ 1 16 43 29 OD OO 』F2 2CBO_B4 2C 1B CF さ 15 12 FE OS CO 3 44 12 FE O1 CO giO8 
2790 28 15 CD SD 17 7B CD OD 24 O1 DB Oa OO CD さ 1 16 =:F1 2C90 CD AO 2C F5 CD 口 7 2C F1 CB CD AO 2C C2 99 2C C9 skFO 
270 29 OD 0O CB CS B9 17 CD OD 24 O2 ED 7 OO C9 CD BC 2CAO CD 47 12 2 42 12 ES ED SB 1B 12 19 CD 91 12 E1 s68 
27BO 5B 19 FE OZ7 Da B9 17 FE OF D2 B9 17 Do6 07 CD 7D :F6 2CBO OC OD CB 0O6 06 CD 6C 12 7E 2 く 3 22 42 12 CD 96 12 』C4 
27CO 1Q C6 41 CD OD 24 O1 ED OA_OO C9 FE 1C 20 29 2^ se6D 2CCO OD CB 10O F1 F6FF C SE 19 CD FO 2C 2 OD 12 23 』40 
27DO OF 12 7E FE 22 CC 28 1F 7E FE 2O CC EE 17 CD 31 』 さ D 2CDO 22 OD 12 EB CD EZ 12 CD 6C 12 ED SB 1D 12 1 FE iCC 
27EO 16 29 OD OO CB 2 OF 12 EB CD BC OB Da B9 17 EB 』7 さ 2CEO 20 CC EB 2C CD 76 12 C9 0C6 05 CD 6C 12 1O FB C9 48 
27FO CD a1 2 く 22 OF 12 18 D7 FE 1F さ O さ E D6 1D 28 07 7O 2CFO CS 47 CD 6C 12 3 71 11 BB C2 F2 2C C1 C9 ES 21 3B 
Sum: 62 CB さ 1 64 E2 0 さ 6B 5F 22 SF DF FC E7 EB Sa 06 :FC SBumz 95 1E 9E E さ BE B6 F1 17 FZ7 DB CS 1E 4E 67 C1 F5 iCE 
Add  +O +1 +2 +3 +4 +5 + ら 6 + プ +B +9 +a +B +C +D +E ォ +F Sum dd  +O +1 +2 + さ +4 +5 ロ +6 + プ + 日 +9 + +B +C ビ +D +E+ ォ F Gum 
2B00 さ 3E C1 32 27 12 1 O5 さ E CS5 さ 2 27 12 CD さく 1 16 41 ki4a 2DOO 15 12 36 OO E1 21 OO OO 22 19 12 22 1B 12 22 OD 』2A 
2B10 46 OD 0QO 2 12 CD 5 19 Ca B9 17 FE 04 CA B9 17 sO1 2D10 12 21 40 12 22 40 12 CD 7E 2B CD 26 16 2 5O 41 』 さ さ 
282O FE 0O7 D2 B9 17 1 02 さ E 04 FE O5 D4 DB 23 さ D CD :DF 2D2O 5 くさ 53 20 OO 3 15 12 Co6 さ 1 CD 59 12 CD 4C 12 CD 』4E 
2B3O 7C 1A 4F さ 27 12 1 C さ 3 A1 2 さ FE 20 2 1B CD SD :EB 2D3O 37 2C さ Q 15 12 さ C 32 15 12 FE O4 C2 1 2D DD ES 』26 
2B40 17 7B FE OB D2 B9 17 CD 7D 1a C6 C7 CD Aa1 2 さ CD :89 2D40 E1 CD 47 12 11 51 2D CD 76 12 CD 91 12 CD 47 12 kB1 
28SO さ 1 16 29 OD OO CB CS B9 17 CD OA 1 昌 C9 CD さ 1 16 』a4 2D5O C9 2 4F 42 4 45 43 54 20 45 4E 44 さ A OD CD 26 sDB 
2BSO 21 OO 20 1B CD OS 24 CD CD SD 17 CS B4 2 く 0O6 OO :FE 2D60 16 0C 20 20 23 2 くさ 2 く 23 20 42 41 5 45 20 46 4D iDC 
2870 FE 07 DA DB 2 さ FE OF 3 O5 CD BF 2 ミ 06 O1 C9 CD 』70 2D70 2D 3 20 56 さ 1 20 2 くさ 23 23 2 くさ OD OD 43 4F SO 59 』OD 
28BO 52 19 BZ CA C7 2 32 27 12 32 2a 12 CD さ 1 16 2B :F5 2DBO 52 49 47 4 54 2 4 くさ 29 20 42 59 20 4 さ 41 52 52 』15 
2890 OD OO 3a 27 12 20 2Q OE 0 2E O4 FE O5 D4 6E 2 :79 2D90 59 20 4C 41 42 2E OD OO AF さ 32 45 12 21 0O 34 22 32 
2BQO さ D FE OS 3O 07 CD 7C 1 B1 CS a1 2 く OS 20 09 CD siDD 2DQO 09 12 CD 47 14 さ a 0O6 12 BZ 20 OE ES 21 OF EO 36 』a5 
28BO BB 2 3 25 12 C さ A1 2 く 3 Do6 06 CD 7D 1a BS5 CS a1 sO1 2DBO BQ E1 ES5 21 OE EO さ 6 02 ~E1”"CD 4C 12 さ 1 FO 10 11 』EA 
2BCO 23 CD さ 1 16 2D OD OO さ A 27 12 20 06 OE OB 2E 05 』56 2DCO AS 11 CD 10 さ 1 1 FE 45 20 OS CD 日 1 15 18 EQ FE saZ 
28DO 18 C9 CD さ 1 16 2B 2B OD OO 3 27 12 20 OC OE 0S 08 2DDO 4 2B 72 FE 4D CA 51 2E FE 2 さ Ca 12 さ O FE 4B CA isBB 
2BEO 2E O4 CD 9B 28 さ 27 12 1 B1 CD さ 31 16 2D 2D OD 79 2DEO EB 2E FE 4F Ca 7F 2E FE 21 CA OO OO FE 41 2 42 』eF 
2BFO OO 3 27 12 20 06 OE OB 2E O5 18 E6 ES 21 2 12 :2 さ 2DFO FE 24 2B 02 18 C さ CD FB 2D 1 BE 1 1 さ FE 24 CO 』01 
Sum: 22 9 96 4 Q1 E さ C6 B9 73 4 日 AF AB 3B DA DD 1 』FZ Sum: B2 D4 5O 41 16 21 E2 BD BF さ 6 F2 27 F 93 02 63 sBB 
Add  +O +1 +2 + さ +4 +5 +6 + プ + 日 す 49 +Q +B +C +D +E +F Sum Add  +O 1 +2 + さ +4 +5 +6 + プ + 日 +9 +Qn +B + ビ +D +E +F Sum 
2900 36 OO E1 CD さ 1 16 3D OO C2 B9 17 さ @ 27 12 FE OF si7a 2EOO CD O4 さ 1 1B DB 1 FE OD 20 1 ささ E 24 CD 59 12 CD iB4 
2910 3 さ O SE O1 32 2 12 3a 25 12 B7 2 OB F5 CD 58 :B8 2E10 91 12 CD 6C 12 11 A く 3 11 CD 日 く OB 1 DE FE 20 20 42 
2920 19 F1 さ 2 25 12 79 1 0 さ CD 5B 19 B7 2 76 32 29 』F5 2E20 O1 1 く 3 CD BC OB DB 77 2 く 3 1 DB 11 aA く 3 11 CD BS OB i2D 
293O 12 32 2 日 12 さ a 27 12 CD BF 2 ささ 2 27 12 さ a 29 12 sBO 2E さ O 1 C4 1 さ 1 FE 2F さ E OO 20 O2 3E O1 さ 2 44 12 CD 』2a 
2940 18 09 CD 5 19 BZ 2 5C さ 2 29 12 FE OF さ 1 さ さ a :99 2E40 FE 2C C さ B9 2D 1 さ CD B9 OB Da B9 2D 11 B9 2D DS iC さ 
2950 2B 12 BZ C2 B9 17 3 29 12 CD BF 23 32 29 12 32 』46 2ESO E9 1 さ CD B9 OB CD 4C 12 さ E 24 CD 59 12 CD 91 12 』C2 
2960 2B 12 さ Q 27 12 D6 07 Da B 17 CD 7D 1a 4F さ Q 29 :4a 2E60 O6 OB CD 6C 12 7E 23 CD 96 12 10 F6 CD 95 OB B7 』99 
2970 12 D6 07 Da B9 17 1 C6 4 CD a1 23 3a 2 12 B7 :DC 2E70 C4 70 12 FE 5B CA B9 2D FE OS CA B 2D 1 D6 1 さ szFE 
298O CB さ Q 27 12 D6 OD 28 OE さ a 29 12 Do OD 20 06 さ a 』OC 2EBO 1 FE OD 28 OE ED 53 OF 12 CD 5D 17 EB CD 91 12 is58 
2990 25 12 C さ Aa1 2 く C9 3 29 12 D6 OD CA B9 17 さ 25 iDB 2E90 CS B9 2D ED 5B 11 12 DD 2 1 く 12 1a B7 CA B 2D iC1 
290 12 C さ A1 2 く CD さく 1 16 5O 4F 52 54 2 43 29 OD OO 』9 さ 2EAO CD DE 2E DD 7E OO DD 2 くさ eF DD 7E 00 DD 23 67 CD i32 
29BO 20 15 さ Q 27 12 D6 07 Da B9 17 CD 7D 1a C6 40 CD :66 2EBO 91 12 3E 3 CD BO 12 DS CD 76 12 D1 CD D7 2E CD 』14 
29CO OD 24 O1 ED OQ OO C9 CD さ 1 16 2 OO 2 5O CD SD 』pDo 2ECO 95 OB BZ C4 70 12 FE 1B Ca B9 2D FE 5 Ca B9 2D ie6C 
29DO 17 さ 3 2 12 FE OZ7 3O 10O FE O5 D4 DB8 2 さ さ D CD 7C 2a 2EDO 1Q BZ Ca B9 2D 1 C4 1 1 く FE OD 20 FA C9 さ 3 71 :2 さ 
29EO 1Q さ C CD Q1 2 く ヒ さ B4 2 く FE OF さ O OE D6 0O フ 7 CD 7D :F さ 2EEO 11 BZ CB FE 14 CB CD 6C 12 1 日 F さ 3 1 く CD B9 OB CD 31 
29FO 1 C6 06 CD a1 2 く 3 7B CS a1 2S FE 11 2 09 FE 14 :CB 2EFO 91 12 CD 62C 12 7E CD 96 12 CD 6C 12 11 3 11 CD isBE 
Sumi BA DA O1 Ba FO 6 さ Oa 5 さく D2 DS C2 さ D 6D 52 89 4 :11 Sum: B4 D6 09 4C OC 4B FR 21 7B 55 90 5 BZ 1B 54 日 7 :B6 




















&O 


BASE FM- 8 ダン プ ・ リ スト 








Rdd  +O +1 +2 + さ +4 +55 +6 + プ + 日 +9 +aA +B +C +D +E +F Sum さ 290 43 5O 5 く 54 52 20 21 2 22 29 22 3 さ O3O 29 OD 20 』1 昌 
さ 3000 4C 12 E5 21 O1 11 36 OD E1 CD 92 OB 11 F1 10 CS =:D9 さ 2R0 49 46 20 3C SE 20 54 4 45 4E 20 SD 42 43 さ 4 』F7 
3010 92 OH CD 1 3O CS B9 2D 3 45 12 BZ 20 15 SE O1 =:1 フ 7 さき 2BO SD 3 さ O 3 41 3D 4 ささ 52 45 54 OD 20 SD 42 43 さ a iD6 
さ 3020 32 45 12 CD 26 16 50 52 49 4E 54 45 52 20 4F 4E :7 さ さき 2CO 41 さ D 4 くさ さ a 52 45 54 OD 4 く 3 50 52 45 47 さ O さ 32 20 』E6 
30 さ O OD 00 C9 AF 32 45 12 CD 26 16 50 52 49 4E 54 45 』E9 さ 2DO SD 44 45 20 2 4 く 50 27 29 3D 44 45 20 21 43 5O saB 
3040 52 20 4F 46 46 OD QOO C9 FE OD 20 04 3E Oa 1 05 』B7 32EO 52 45 47 3O 3O 3 52 45 54 OD OD 4 ミ 5O 52 45 47 EE 
さ O05O FE 20 3O O1 AF C く D4 OB OE EO 36 0S E1 E5 21 OE :BC さき 2FO 32 20 4 日 4C 3D 52 54 41 42 4C 45 20 4 52 20 43 FC 
3 さ O6O_EO さ 6 07 E1 C9 さ OD EO E6 0O7 FE O6 CB 1B F6 OO sB5 。 | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
3070 AF CD さ 3O F1 DS FF 3E BO DS FE 0O7 CD 3 3O aF :BZ Sum: CA OB 2 くさ 5O AS 7 さ F1 さ E C9 B5 91 2 94 OD 5B Oa iCB 





30BO 21 45 12 36 OO E1 CS さ B 2D 1 さ CD 04 さ 1 22 04 11 4 +a +B 
3OCO CD 04 さく 1 ED 4B O4 11 BZ ED 42 2 く 3 22 02 11 CD 04 SE FE OD 
さ 30DO 31 22 06 11 CD O4 31 22 1F 12 0O1 10 0O 21 F1 10 :F2 oO 0O 
さ 3 さ OEO_ EB ED BO ES 21 O1 11 さ 6 OD E1 CD 9B OB DA B9 2D :FZ 0O OO 
SOFO 2 1F 12 22 04 11 CD 9E OB DA B9 2D CD 26 16 OD :DE 56 45 
Sg ーー ニー ニー ニー ニー デー ニー ニー ンー デー ニー ムペ ーー 0O OO 
Sumi 3O 47 BB 20 5C B7 FE AD CO 70 73 BB C9 12 14 2D :57 3 さ 46 

31 32 

20 31 

OO OO 





AD D9 B9 92 














さき 230 DS CS 21 OO 03 22 a1 11 CD DZ7 OB O1 EB 03 OB 7 』BO 
さき 240 B1 20 FB CD D7 OB C1 D1 E1 C9 OO CD O1 O1 さ D 32 >sF5 
さき 250 3O 20 47 4F 54 4F 2O 4 さ 5O 52 45 47 3O さ 33 OD 20 siaa 
3260 43 さ D 3O 20 41 3 さ D 3O 3 52 45 54 OD 4 さ 3 50 52 45 iDA 
3270 47 さ O さく 20 SB 42 4 く 20 21 44 45 SB 41 44 52 5 く 』 ヵ F9 
3280 SD 3 さ Q 41 3D 45 さ a 28 4F 46 53 29 さ D 41 OD 20 21 』99 








還 EEEEEEEEEEIEEESE 晴 GO) シス テム ・ モ ニタ アセ ンプ ブル ・ リ スト EE 














O1 0000 ポポ ポポ ポポ ホホ 氷 氷 ホ 水素 氷 氷 ポポ ボボ ポポ 率 東京 

02 0000 s* ネ Z- ヨ 0 System Monitor * 

03 0000 : 。 ゅ ゅ ゅ 9 FM 日 Version 1.0 @%%% ネ 

O4 0O000 s* Copyright (C) 1982 し 3 

05 0000 3 By HIRU/ETF Laboratory * 

06 00OO j* Mritten by T. に Kaa5aku- ま 

07 OO00O 】 ネネ ネネ ネネ ホホ ネネ ネネ ポポ ネネ ポポ ポ 氷 氷 氷 ホ ポポ 氷 氷 

OB 000O 日 

09 0000 P RCB: EQU OBEOH j REQUEST CODE BLOCK 
10 OO00 P RCB 日 s ERU EBOBH 

11 OOOO_ P BUFF* EQU O43DH iCMT & KEYIN BUFFR 
12 OO000 P BUF * EQU 3DO4H 

1 さ 3 OOOO_ P ATCUDE: EQU OBFCH 

14 OOOO P RETFLG: EQU OBFDH 3 RETURN MODE 

15 OOOO 日 

16 000O REL OBBOH 

17 OBBO 日 

18 OBBO j Jump Tabl1e 

19 OBBO 日 

20 OBBO C32EOE MAINs JP MAIN1 jJUNP TO MONITOR 
21 OBB3 CS940D BETLs JP BETL1 sLINE INPUT 

22 OBB6 CS3D1O0C LETNL: JP LETNL 1 RETURN & LINE FEED 
23 さ OBB9 C3CCOC NLs JP NL1 jCRLF IF CUR X く >O 
24 OBBC C さ 9OC PRNTS: JP PRNTS1 SPACE PRINT 

25 OBBF CS9EOC PRNTs JP PRNT1 jaCC PRINT 

26 OB92 CSBEOC ISGs JP NMSG1 

27 OB95 C さ 47OD BETKY: JP BETKY1 3 REAL TIME KEYIN 
28 OB CSFAOC BRKEY: JP BRKEY1 : BREAK CHECK 

29 OB ウ B C さ O20C 2WR1s JP B1SAVE 

さ 0 OB9E C さ OCOC ?MRDs JP SAVE 

さ 1 OBA1 C3O40C ?RD1* JP B1LOAD 

32 OBA4 C3O ヨ 0 ビ ?RDD: JP B2LUAD 

ささ OBA7 C さ 100 ビ ?VRFY: JP VERIFY 

さ 4 OBQAA C39COC BELL JP BELL 1 

35 OBAD C3C7OD HEX4PR: JP H4PR1 

さ 6 OBBO CSCCOD HEX2PR: JP H2PR1 

37 OBB さ 3 CS3E20D ASCs JP ASC1 

3 OBB6 C3EBOD HEX: JP HEX1 

39 OBB9 C さ OOOE HLHEX: JP HLHEX 1 

40 OBBC C3OFOE 2HEX JP 2HEX 1 

41 OBBF C3230C ?DPCTs JP ?DPCT1 

42 OBC2 CSOOOD ??KEYs JP ??KEY 1 

4 く OBC5 CS26OE RETURN: JP RET1 3s RETURN TU FBASIC 
44 OBC C さ QA5OD BETCs JP BETC1 
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Z80 シス テム ・ モ ニタ アセ ンプ ブル ・ リ スト 











OBCB 
OBCE 
QBD1 
OBD4 
OBD7 
OBDA 


OBDD 
OBDD 
OBDD 
OBDD 
OBDD 
OBDD 
OBDD 
OBDE 
OBDF 
0BEO 
OBE 1 
OBE2 
OBE さ 
OBE4 
OBE5 
OBE6 
OBE7 
OBE 晶 
OBEB 
OBE 晶 
OBEB 
OBEE 
OBFO 
OBF さ 
OBF6 
OBF ヨ 
OBFB 
OBFE 
OCO1 
OCO2 
OCO2 
O0CO さ 3 
OCO4 
OCO6 
OCO8 
0COA 
OCOC 
OCOE 
OC1O 
OC12 
OC15 
OC16 
0C19 
O0C1C 
OC1F 
0C2O 
OC21 
OC22 
OC23 
OC2 さ 
OC2S 
OC24 
OC25 
0C26 
OC28 
0C29 
OC2B 
OC2D 
OC2E 
OC2F 
OC さ 1 
OC さ さ 
OC34 
0C く 5 
OC37 
OC39 
O0C3a 
0C3B 
OCS3D 
OCSF 
OC4O 
OC41 
OC4 さ 3 
OC45 
OC46 
OC47 
OC49 
O0C4B 
OC4 ビ 
OC4D 
OC4F 
0C51 
OC54 
OC55 
OC56 
0C57 
OC57 
0C5Z 
OCSA 
OCS5B 
OCSE 


CSF 40C 
C3EBOB 
C38O0C 
C328O0D 
C3020C 
C3020C 


22EBO 
22EDO8 
3E11 
210707 
CD57oC 
3EO06 
32EAOB 
CDF40C 
さき AECO 
C9 


内 

9 

3 さ EO3 
18OA 
3EO4 
1806 
3EO02 
1802 
3E05 

さ 32FDO8 


CDBFOB 
CE1 


さ 32EOO8 
E5 

210E8 
22E208 


BIOS: JP 
SCREEN: JP 
MIDTH: JP 
LPRNT: JP 
RUX1s JP 
RUX2 ェ JP 


BIOS1 
SCRN 
MIDTH1 
LPRNT1 
B1SaVE 
B1SAVE 


sBIDS CaLL (680) 


オバ ポ ネネ ネル ルポ ポポ パネ ポポ ポル ネル ポポ パネ ポポ ネ 
3* ゅ IOCS & Subroutin 司 PaC ヒ Kaq ? ネ ポ 
(C) 1982 ETF Lab. * 
3 ネル ポポ ポポ ポポ ポポ ボボ ポポ ポポ ポポ ネネ ボボ 水 氷 束 


s* 。 Copyrigh モ 


日 

CRDATAz ENT 
DEFB 
DEFB 
DEFB 
DEFB 

MDATA: DEFB 
DEFB 
DEFB 
DEFB 


0 


CRNs ENT 


B1SAVE AND 
B1LUADi LD 
B2LOAD: LD 
SAVEs LD 


VERIFY: LD 
SETRFB』 LD 


H 
?DPCT1: ENT 


DP1s INC 
DP2s INC 
DP INC 
DP4s INC 
DP5s INC 
DP6= INC 


DP7s CaLL 


日 
RCBSET: ENT 


ここ 】 


OO に 。 〇 いい ょ の 〇 と ひので 


(REB+11) 。HL 
(RCB+1 さ ) 。HL 


a。 11H 
HL,O707H 
RCBSET 

人 A。6 
(RCB+10) 。a 
BInS1 

人 。 (RCB+12) 


Aa。5 
(RETFLG) 。 
人 
(10FOH) , 
BIO0S1 

a, (10FOH) 
Aa 

Z 


(RCB) 。A 
HL 

HL, RCBB 
(RCB+2) 。HL 


BACK CULOR 
MINDOM X 
3MINDOM Y 
SCROLL FRDNM 

3 SCRULL LINES 
FUNCTION SMITCH 


COLUR SMITCH 


ODDC 


: CURSDR DOMN 


j CURSOR UP 


3 CURSOR RIGHT 


5 CURSUR LEFT 


j CURSUR HONE 


3 MIND ロ M CLEAR 


5 BACK SPACE (DEL ) 


j =REQRUEST NUNBER 


5 H=DUTPUT BYTES 
ョ 上 =INPUT BYTES 





9 人 4 
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Z80 シス テム ・ モ ニタ アセ ンプ ブル ・ リ スト 

















OC6a 2E0O 
OC6C 22E608 
OC6F 65 
OCZ7O 22EB08 
OC73 C9 


OC74 3EFF 
OC76 32E20 晶 
OCZ9 3EO1 
OC7B 32EOO8 
OCZ7E 1874 


OCBO E5 
OCB1 さ E1O 
OCBS さ 2EO0 晶 
OCB6 21DDOB 
OC89 7C 
OCBR 65 
OC8BB 6F 
OCBC 22E208 
OCBF 21000B 


OCE FEOD 
OCAO 22F 
OCA2 CD2FOD 


OCA5 E5 
OCA6 SE11 
OCAB 210504 
OCAB CD570 ビ 
OCAE 3 さ EOA 
OCBO 32EA0 昌 
OCB さ CDF40C 
OCB6 2EBO 日 
OCB9 227111 
OCBC E1 
OCBD C 


OCDO CB 


OCEA 3 さ aFCOB 
OCED 6Z 
OCEE 2E11 
OCFO 22ECOB 
OCF3 E1 


OCF4 aF 
OCF5 3205FD 
OCF OO 





H 
MUTDN: ENT 


日 
MIDTH1: ENT 


日 
PRNTS1: ENT 


BELL1: ENT 


日 
PRNT1』 ENT 


STACUR: ENT 


MG さ = 


日 
LETNL1 


日 
RTBUTEs 


日 
BIOS1s 


ロ 
(RCB+4) 。HL 
HL 


L,O 
(RCB+6) 。HL 
H, ヒ 

(RCB+B) HL 


RFFH 
(RCB+2) 。a 
Aa 1 
(RCB) 。a 
BI0S1 


HL 
ay 10H 
(RCB) 。A 
HL,CRDATA 
AH 
H。 し 
L,a 
(RCB+2) HL 
HL,OBOOH 
(RCB+4) ,HL 
HL 
BIOS1 

oooC 


AR 
PRNT1 
OOSE 


フ 
oo12 


ODH 
Z。LETNL 1 
ACCPRT 


HL 
Aa 11H 

HL, 0405H 
RCBSET 

a, OQH 
(RCB+1O) 。A 
BrDS1 

HL,』 (RCB+11) 
(1171H) 』HL 
HL 


0015 


PUSH DE 


R, (DE) 
oDH 


0009 


a, (1171H) 


aND 谷 
RET Z 


0006 


a, ODH 


CALL AaCCPRT 


az OaH 


CaLL PRNT 


A。 10H 


PUSH HL 


HL,O60OH 


CALL RCBBET 


HL, 020 さ H 
(RCB+10) 。HL 
a。 (ATCODE) 
H, 

L,11H 
(RCB+12) ,HL 


POP HL 


a 
(FDO5H) 。 
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Z80 シス テム ・ モ ニタ アセ ンプ ブル ・ リ スト 





OCF9 ヒビ RET 

OCFA 9001E 
OCFA BRKEY1: ENT 

OCFA CD47OD CALL BETKY1 
OCFD FEO さ CP さ 

OCFF C RET 

ODOO 5 09B さ 
ODOO 3?KEY1』 ENT 

ODOO CDOEOD CALL CURON 

ODO ミ CD47OD KEY1s CaALL BETKY1 
ODO6 RZ AND は 1 

ODO7 28FA JR Z。 KEY1 
ODO9 1 

ODO CUROFFi ENT 

ODO9 F5 PUSH AaF 

ODOA 3E16 LD 人 16H 

ODOC 180 さ JR CUR1 

ODOE 日 

ODOE CURUN: ENT 

ODOE F5 PUSH AF 

ODOF 3E17 LD 内 。 17H 

OD11 32EBO 晶 CUR1s LD (RCB+11) ,Q 
OD14 ES PUSR HL 

OD15 210004 LD HL 。 O4OOH 
OD18B 3 さ E1O LD 人 。 10H 
OD1A CD570C CALL RCBSET 
OD1D さ EOC LD 人 AOCH 
OD1F 32EAOB LD (RCB+10) , 人 
OD22 CDF40C CALL BIOS1 

OD25 E1 PP HL 

OD26 F1 PP AF 

OD27 C9 RET 

OD28 日 

0D28 LPRNT1』 ENT 

OD28 32E808 LD (RCB+) 。 
OD2B 3EOE LD RA。OEH 
OD2D 1805 JR PRT1 

OD2F j 

OD2F CCPRT: ENT 

OD2F 32EB08 LD (RCB+ 日 ) 。 
OD32 3E14 LD 仙 。14H 
OD34 32EO08 PRT1s LD (RCB) 。 
OD37 E5 PUSH HL 

OD3B 210001 LD HL ,O100H 
ODSB 22E408 LD (RCB+4) 。 HL 
ODSE 2108E8 LD HL , RCBB 
OD41 22E208 LD (RCB+2) 。 HL 
OD44 E1 POP HL 

OD45 18AD JR BIOS1 

0OD47 5 001B 
OD47 BETKY1: ENT 

OD47 3E15 LD AA。 15H 

OD49 E5 PUSH HL 

OD4A 210001 LD HL 。010OH 
OD4D CD570C CALL RCBSET 
OD5O E1 POP HL 

OD51 CDF40C CALL BIOS1 

OD54 3QEBO8 LD RA。 (RCB+ 晶 ) 
OD57 C9 RET 

OD58 3 

ODS8 BETCAs ENT 

OD5B F5 PUSH RF 

ODS59 さ E1 さ LD 内 。 1 さ H 

ODSB 180 さ JR GETO 

ODSD 5 

ODSD BETs ENT 

ODS5D F5 PUSH AF 

ODSE 3E12 LD RA。 12H 
OD60 E5 BETOs PUSH HL 

OD61 D5 PUSH DE 

OD62 21FFOO LD HL , OOFFH 
OD65 CD570C CALL RCBSET 
OD6B 21043D LD HL , BUF 
OD6B 22E208 LD (RCB+2) 。HL 
OD6E CDF40C CaLL BIOS1 

OD71 3SEO4 LD 人 (BUFF+1 ) 
OD74 FEOZ CP YA 

OD76 2 昌 1 さ JR Z。BET2 
OD7B 213DO4 LD HL 。 BUFF 
OD7B 3E5OB LD 代 。 (RCB+5) 
OD7E 160O LD D,O 

OpBO SF LD E。 aa 

OD8B1 19 ADD HL , DE 

OD82 36O0D LD (HL ) 。 ODH 
OD84 3a3EO4 LD 代 。 (BUFF+1 ) 
OD87 FEOD CP ODH 

OD89 2005 JR NZ , BET さ 
ODBB 3E1B BET2* LD 全 。 1BH 
ODBD 324104 LD (BUFF+4) 。 
OD9O D1 BET さ 』 PP DE 

OD91 E1 POP HL 

OD92 F1 PP AF 

OD93 Cg RET 

OD4 5 000 さ 
OD94 BETL1: ENT 

OD94 CDOEOD CaLL CURON 

OD97 CDSDOD CALL GET 

OD9a CDABOD CALL GETBUB 
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ODD 
OD9E 
ODA1 
ODA2 
ODA5 
ODA5 
OD^A5 
ODA 昌 
ODAB 
ODA 晶 
ODA9 
ODAA 
ODB 
ODAC 
ODaF 
ODBO 
ODB2 
ODB さ 
ODB4 
ODB6 
ODB 
ODBA 
ODBC 
ODBD 
ODBE 
ODCO 
ODC2 
ODC3 
ODC4 
ODC5 
ODC6 
ODCZ 
ODCZ 
ODCZ 
ODC8 
ODCB 
ODCC 
ODCC 
ODCC 
ODCD 
ODCF 
ODDO 
ODD1 
ODD2 
ODD3 
ODD6 
ODD9 
ODDA 
ODDC 
ODDF 
ODE2 
ODE2 
ODE2 
ODE4 
ODE6 
ODE 晶 
ODEA 
ODEB 
ODEB 
ODEB 
ODED 
ODEE 
ODFO 
ODF2 
ODF4 
ODF5 
ODF7 
ODF9 
ODFB 
ODFD 
ODFE 
ODFF 
OEOO 
OE0O 
OEOO 
OEO1 
OEO4 
OEO06 
OEO7 
OEOA 
OEOC 
OEOD 
OEOE 
OEOF 
OEOF 
OEOF 
OE1O 
OE11 
OE12 
OE15 
OE17 
OE1 晶 
OE19 
OE1A 
OE18 
OE1 ビ 
OE1D 
OE1E 


F5 
CD ヨ 6OB 
F1 
C3090D 


CDSBOD 


F5 
E5 
D5 
C5 
214104 
EB 


CDB3OB 


D5 
CDBCOB 
さ 07 
67 
CDBCOB 


30D 


CDB6OB 


日 
BETC1s 


日 
GETSUBs 


BETS1s 


BETS2* 


日 
H4PR1s 


日 
H2PR1s 


や 


コ ビ 1 s 


HEXAs 


HEXBs 


日 
HLHEX1 = 


HLHEX2: 


H 
2HEX1s 
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AF 
LETNL 
RF 
CUROFF 


BETCA 


HL, BUFF+4 
DE,HL 
B,79 

a, (DE) 
(HL) 。a 
1BH 

Z, GETS2 
oDH 

Z, GETS2 
DE 

HL 

BETS1 
(HL) , ODH 


03Ba 


03CS 


03DA 


0SF タ 


Oo410 


DE 
2HEX 
C,HLHEX2 
H。 

2HEX 
C,HLHEX2 
L,A 

DE 


041F 


ーー! 
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シス テム ・ モ ニタ アセ ンプ ブル ・ リ スト 
OE21 3B01 JR C。2HEX2 
OE2 く 3 B1 OR ヒビ 
OE24 C1 2HEX2: POP BC 
OE25 C9 RET 
OE26 5 
OE26 RET1s ENT 
OE26 SEO1 LD 人 1 
OE2 3 さ 2FDO ヨ LD (RETFLG) 。 人 Aa 
OE2B CDF40 ヒ CALL BIOS1 
OE2E j 
OE2E SKP H 
OE2E ネネ ネネ 氷 ボ ボネ ボボ ポポ ホネ ポメ ネ ネネ ネネ ネネ ネネ ポポ 
OE2E 3 ネ Z-O Tiny System Moni モ or ネ 
OE2E 3 Copyright (C) 192 * ネ 
OE2E 3 BY ELECHNM Soft * ネ 
OE2E ュ ネ Mritten by Jun.manai * 
OE2E ルポ 水 水 素 水 水 率 氷 水 氷 ポ 水素 氷水 氷水 氷 氷 ボ ポポ ルポ パ ポポ ポポ ネネ ポポ 
OE2E H 
OE2E MAIN1: ENT 3s TNITTALTZE 
OE2E さ 1FO1O LD SP , 1OFOH 
OE さ 1 3EOZ LD 内 。7 sMHITE COLOR 
OE さ 3 32FCO LD (ATCODE ) , 
OE さ 6 CDD10B CALL MIDTH #MIDTH SET 
OE さ 9 1 1 ビ さ OF LD DE。TITLE 3sTITLE PRINT 
OE さ C CD920B CALL MSG 
OE3F COMAND: ENT 
OE さ F 31FO1O LD SBP , 1OFOH 
OE42 CDB6OB CALL LETNL 
OE45 さ ESE LD TP 
OE47 CDBFOB CaLL PRNT 
OE4A 11 人 311 SCCOM: LD DE 。 1 1Q3H siFUR SCREEN EDIT 
OE4D CDB3 さ OB CALL BETL 
OESO 1a LD A。 (DE) 
OES1 FE3E CP At 5 SEREEN EDIT 
OE5 さ 3 C2BAOE JP NZ,EDIT 
OES6 1 さ 3 INC DE 
OE57 1a LD 人 A。 (DE ) 
OES5 13 INC DE 
OE59 1 さ INC DE 
OE5A F5 PUSH AF 
OESB CDB9OB CALL HLHEX 
OESE F1 PQP AF 
OESF ち 
OESF 3 RETURN TO F-BASIC 
OE5F H FORMAT >! 
OESF H 
OESF FE21 CP Pt 
OE61 28C さ JR Z,RET1 
OE6 さ 日 
OE6 さ 3 CMT MOTOR ON 
OE6 さ 日 FOMAT > る 
OE6 さ 『 
OE6 さ FE4O CP Lu 
OE65 2005 JR NZ , CON1 
OE67 CD740C CALL MOTON 
OE6Q 18D さ JR COMAND 
OEeC ち 
OE6C 日 GU TU NEM LUCQTION 
OE6C 日 FURMAT >G BOOO 
OE6C H 
OE6C FE4 フ CON1 : CP の 回 
OE6E 2001 JR NZ。COM1A 
OE7O E JP (HL ) 
OE71 FE4a COM1A: CP 4 
OE73 2004 JR NZ ,。 CUN2 
OE75 20611 LD HL 。 (1 106H) 
OE7 E JP (HL ) 
OE79 FE4D CON2s CP 1 s ENMURY CHANGBE 
OE7B 286O JR Z。 CHANGE 
OE7D FE5Z CP "MM iPRUBRAN1 SAVES TOU TAPE 
OE7F CA3OOF JP Z。MRITE 
OEB2 FE4 ヒ CP 4 sLUAD FROM CMT 
OEB4 CAZ7aOF JP Z。LOAD 
OEB7 FE44 CP 4 5 MEMURY DUMP 
OEB9 20B4 JR NZ 。 CHMQND 
OEBB 日 
OEBB 1 NEMURY DUNMP & CHECKSUN 
OE8B H FORMAT >D 2000 
OEBB H 
OEBB DUMP ENT 
OEBB E5 PUSH HL 
OEBC CDB6OB CALL LETNL 
OEBF CDADOB CALL HEX4PR 
OE92 O608 LD B, 晶 
OE94 08 EX AF 。AF* 
OE95 RaF XOR 1 
OE6 0 EX AF 。AF* 
OE97 CDBCOB LINE1: CALL PRNTS 
OEa 7E LD QA。 (HL ) 
OE9B 08 EX AF 。 AF 
OE9C 6 ADD 人 Q。 (HL ) 
OE5D 08 EX AF 。 AF 
OEE CDBOOB CALL HEX2PR 
OEA1 23 INCE HL 
OEA2 10F さ DJNZ LINE1 
OEaA4 CDBCOB CALL PRNTS 
OEA7 3E3a LD 人 Q。 さ 人 H (82 
OEA9 CDBFOB CaLL PRNT 
OEAC 08 EX aF,aF* 
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OEaD 
OEBO 
OEB1 
OEB4 
OEB5 
OEB 日 
OEBA 
OEBA 
OEBA 
OEBA 
OEBA 
OEBC 
OEBF 
0EC2 
OEC5 
0EC 
OECA 
OECD 
OECF 
OEDO 
OED1 
OED2 
OED4 
OEDZ 
OEDA 
OEDB 
OEDD 
OEDD 
OEDD 
OEDD 
OEDD 
OEDD 
OEEO 
OEE さ 
OEE6 
OEEZ 
OEER 
OEEC 
OEEF 
OEF2 
OEF4 
OEF6 
OEF 
OEFA 
OEFC 
OEFE 
OEFF 
OFO2 
OFO5 
OFO6 
OFO フ 7 
OFOa 
OFOB 
OFOE 
OF10 
OF11 
OF12 
OF 15 
OF1 フ 7 
OF1a 
OF1D 
OF1F 
OF22 
OF25 
OF27 
OF28 
OF2A 
OF2B 


OF2E 
OF3O 


OF3O 
OF さ 3O 
OF3O 
OF3O 
OF3O 
OF3 さ 
OF34 
OF3Z 
OF3A 
OF さ 3B 
OF3D 
OFSE 
OF41 
OF44 
OF47 
OF4^a 
OF4C 
OF4F 
OF52 
OF さ 
OF55 
OF5Z 
OF5 
OF 
OF5A 
OFSC 
OFSE 
OF6O 
OF61 


CDBOOB 
E1 
11080O 
19 
CDB4OF 
18D1 


FE1B 

CA3FOE 
CDB9OB 
DA3FOE 
11AB11 


CDCBOB 
1 人 na 
18DD 


11AS11 
CDaDOB 
CD ヨ COB 
7E 
CDBOOB 
3 さ E2D 
CDBFOB 
CDC2OB 
FE20 
28 く 1 


CDBFOB 


1 さ 


CDBCOB 
307 
77 

2 さく 
CDB60B 
1 ヨ C6 
CDAAOB 
CDBCOB 
3ESF 
CDBFOB 
11 人 311 
18C 


220411 








EQLL HEX2PR 
POP HL 

LD DE, 8 
DD HL,DE 
FALL PaUSE 
JR DUMP 


SCREEN EDIT 


EDITs ENT 


CP 1BH 

ZCOM: JP Z, COMAND 
CALL HLHEX 

CEYCDM: JP C, CDMAND 
LD DE, 1 1QBH 
LD B, 


EDIT1: CaLL 2HEX 


LD (HL) 。a 
INC HL 
INE DE 
DJNZ EDIT1 
LD DE, 1 1SH 
CALL GETC 
LD (DE) 
JR EDIT 

H 

: MEMORY CHANGE 

FORMAT >M aBoo 

CHANBE: ENT 
LD DE, 1 1QSH 
CALL HEX4PR 
CALL PRNTS 
LD Aa, (HL) 
CALL HEX2PR 
LD a。 2DH 
CALL PRNT 

ERRBCK: CALL  ??KEY 
CP 2oH 
JR Z, BACK 
CP oODH 
JR Z,FMD 
CP さ 
JR Z,ZCON 
LD (DE) 。a 
CaLL PRNT 
CALL 2?KEY 
INE DE 
LD (DE) 。a 
CALL PRNT 
DEC DE 
CaLL 2HEX 
JR C,ERR 
LD (HL) ,A 
INE HL 
CALL LETNL 
JR CHANBE 

ERR: CALL BELL 
CaLL PRNTS 
LD DCT 
CALL PRNT 


BACK DEC HL 


FMD: INC HL 
FMD1s CALL LETNL 


MRITE TU CASSETE TAPE 


日 
日 
日 
H 
い ) 


FURMAT 
RITE: ENT 
LD (1104H) 。HL 
PUSH HL 
LD DE , 1 1 QBH 
CALL HLHEX 
POP DE 
BBC HL。 DE 
INC HL 
LD (1102H) 。 HL 


LD DE , 1 1 BOH 
CALL HLHEX 
LD (1106H) 。HL 


NAMETIN: LD 人 a。 (DE ) 


CP ODH 
JR Z, MBPC 
LD (HL) 
INE 。 HL 
INC DE 


DJNZ NAMEIN 
JR CMPLNN 


MSP ビ Cs LD (HL ) 。 20H 
TNC HL 
DJNZ MBPC 


>M 1A00,2FFF 。 2000, HUDS ロ N 


EDITINB CUMPLETE ? 


8 BYTES 
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OF6 さ 


リス ト 
11EFOF 








OF66 
OF69 
OF6C 
OF6E 
OF71 
OF74 
OF7 フ 7 
OF7a 
OF7a 
OF7A 
OF7A 
OF7a 
OF7a 
OF7D 
OF7F 
OFB2 
OFB5 
OFB ヨ 
OF8B 
OFBE 
OF91 
OF94 
OF97 
OF98 
OF9B F1 
OF9C 
OF9E 
OFAO 
OFA2 
OFA4 
OFA6 
OFA9 
OFaAC 
OFAF 
OFB2 
OFB4 
OFB4 
OFB4 
OFB4 
OFB4 
OFB フ Z 
OF B 
SFBB 
OFBE 
OFCO 
OFC1 
OFC さ 
OFCS 
OFC さ 
OFCZ 
OFCB 
OFCF 
OFD さ 
OFD6 
OFD7 
OFDZ 
OFDB 
OFDE 
OFDF 
OFDF 
OFE3 
OFE6 
OFE7 
OFEZ 
OFEB 
OFEE 
OFEF 
OFEF 
OFF さ 


CD9208 
CDOCOC 
3009 

CDB6OB 
11F7OF 
CD920B 
CS33FOE 


CDO40C 
3BED 

11D7OF 
CD92O0B 
11F11O 
CD9208 
CDB60B 
11DFOF 
CD92OB 


18D1 
CDB6OB 
11E7OF 
CD92O0B 
CDO ヨ 0C 
18B8 


CD95OBE 


52D3830 
20535953 
54454D2O 
4D4F4E49 
544F52 
OD 


466F756E 
6432O 
OD 


4C6F6164 
203F20 
OD 


4C6F6164 
696E67 
OD 


7726974 
696E6 プ 
OD 


07 
4572726F 


OFFC 72 
OD 








CMPLNM: LD DE,MRITNB 
CALL MSG 
CALL BAVE 
TaPEOPi JR NC, AYCON 
CEALL LETNL 
LD DE, ERRMSG 
CALL MG 
AaYCOM: JP CDMaND 
3 
』  LDAD PR ロ GRAN 
3 FORMaT >L 
H 
LOaD: ENT 
EaLL BILDaD 
JR CTAPEQP 
LD DE,FOUND 
CALL MSG 
LD DE, 1OF1H 
CEALL MSG 
FALL LETNL 
LD DE,LOAD? 
CALL MSB 
FALL  ??KEY 
PUSH AF 
CALL PRNT 
PDP AF 
CP 内 の 
JR Z。MEMYN 
CP aw 
JR Z,LOaD 
JR aYCON 
NEMIN: CALL LETNL 
LD DE,LOQDIN 
CALL MSG 
CALL  B2LOAD 
JR TAPEDP 


日 
日 PAUSE & BREAK CHECK 


5 
PAUSBE * 


?Z-O SYSTENM MONITORY 





ラベ ル ・ テ ー ブ ル 還 還 間 昌 昌 間 間 間 間 間 昌 間 間 昌 還 昌 昌 EEE 








B1LOAD 
BELL 1 
BRKEY 1 
COPR1 
CUR1 
DP2 
DP7 
ERRBCK 
GET 
GETC1 


ENT 
CALL BETKY 
CP 1BH 
JR NZ , BREAK? 
CALL  ??KEY 
BREAK?』 CP さ 
RET NZ 
JR AYCON 
日 
TITLEs DEFN 
DEFB oODH 
日 
FUUND: DEFM "Foundi " 
DEFE  ODH 
LOaD?: DEFM "Load ? 
DEFB  ODH 
LOADIN: DEFNM Loading" 
DEFB  ODH 
MRTTNB: DEFM “Mriting? 
DEFB  ODH 
ERRNBG: DEFB フフ 
DEFNM  ?Error” 
DEFB  ODH 
END 
・ モ ニタ 
2HEX2 OE24 PPKEY 
?RD1 OBQ1  ?RDD 
QCCPRT  OD2F  ^ASC 
QRTCUDE OBFC AUX1 
B1SAVE  OCO2  B2LOAD 
BTI ロ S OBCB BIOS1 
BUF さ 3DO4 BUFF 
CUNM1^a OE71 CN2 
CURUFF  ODO9 CURON 
DP さ OC39 DP4 
DUIP OEBB EDIT 
ERRMSG OFFZ7 FOUND 
GETO OD6O GET2 
BETCA ODSB _ BETKY 
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OBC2 
OBA4 
OBB さ 
OBD7 
OCOB 
OCF4 
O43D 
OE7 
ODOE 
O0C3F 
OEBA 
OFD7 
OD8BB 
OB5 紀 


??KEY 1 
?VRFY 
ASC1 
RUXS 
BACK 
BREAK? 
CHANGE 
CUNMAND 
CYCON 
DP8 
EDIT1 
FMD 
GET3 
BETKY1 


ODOO 
OBR7 
ODE2 
OBDAa 
OF27 
OFBE 
OEDD 
OE3F 
OEC2 
OC45 
OECA 
OF2a 
O0D9O 
OD47 
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BETL 
H2PR1 
HEX4PR 
HLHEX2 
LOAD 
MAIN 
MSG1 
NL1 
PRNTS1 
RET1 
SCREEN 
TITLE 
MRITE 





OB 
ODCC 
OBaD 
OEOD 
OF7a 
OBBO 
OCBE 
OCCC 
0C98 
OE26 
OBCE 
OFC さ 
OF3O 


BETL1 
H4PR1 
HEXAa 
KEY1 
LORD? 
MaTN1 
MSG2 
PaAUSE 
PRT1 
RETFLG 
SCRN 
VERIFY 
MRITNG 


OD94 
ODCZ 
ODFB 
ODOS 
OFDF 
OE2E 
OCBF 
OFB4 
OD34 
OFD 
OBEB 
OC1O 
OFEF 


BETS1 
HEX 
HEXB 
LETNL 
LOADIN 
MEMIN 
MSG さ 
PRNT 
RCB 
RETURN 
SETRFG 
MDATA 
MSPC 


OBB6 LETNL1 
OFEZ7  LPRNT 


OFaA6 MOTON OC74 MSG OB92 
OCCA _ NaMEIN OF52 NL OB89 
OBBF PRNT1 OCE PRNTS OBBC 
OBEO RCB EBOB RCBSET  OC57 
OBC55 GAVE OCOC SCCOM OE4A 


OC12 STACEUR  OCA5 TAPEHP OFeC 


OBE1 MIDTH 
OFSE  ZCOHN 


ODB2 BETS2 ODC2 _ BETSUB  ODa ヨ 
OBB6 HEX1 ODEB HEX2PR OBBO 
ODFE HLHEX OBB9 HLHEX1  OEOO 


OCD1 LINE1 OE97 
OBD4 LPRNT1  OD28 


OBD1 MIDTH1  OCBO 
OEBC 
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BASIC で グラ フィ ッ ク ・ デ ー タ を PUT 文 で 扱う と き , 
マシ ン 語 デー タ ま た は , DATA "を 配列 に 落と す の に 非常 
な 時 間 を か け て いま す が , この 作業 は 機械 語 レベ ル で 考え 
る と 恐ろし く 無 駄 な こと を や っ て いま す . 


サ プ ブルー チン は 3 つ あ り , それ ぞ れ に 機械 語 が あり ます . 


(1) は GET 文 で 読ん だ 配列 (整数 型 に 限り ます ) を マシ ン 
語 デ ー タ と し て メモ リ に 落と す も の . (2) は その 逆 に PUT 
文 で 用 いる た め に 配列 に 格納 する も の . (3) は 配列 を 介さ ず 
直接 GET 文 な ど で 作 成 し た マシ ン 語 デー タ を PUT す る 
も の で す (この 場合 は グラ フィ ッ ク ・ デ ー タ に 限り ます ). 


1) : 配列 ユマ シン 語 デ ー タ 
(2) : 配列 一 マシ ン 語 
(3): マシ ン 語 デー タ PUT 
①), ⑫) の 動作 原理 は 簡単 で 、 BASIC の 整数 型 配列 が , 


配列 数 (2 バイト ) + 要 素 と な っ て いる の で , 単に メモ リ ・ 


プロ ッ ク の 転送 に すぎ ませ ん (文字 , カラ ー 対 応 の いか 

ん を 問い ませ ん ). (3) は BASIC の PUT 文 ル ー チ ン を 借 

用 し て いま す . 
以上 非常 に 簡単 な も の で す が , 実用 的 に は , 

ゆ PUT 文 用 の 配列 へ デー タ を 格納 する 待ち 時 間 が な く 
な る (スピ ー ド は BASIC と は 問題 外 で す ). 

@ 同一 配列 を 複数 の グラ フィ ッ ク ・ デ ー タ 用 と し て 使う 
こと が で き , メモ リ の 節約 に な る . 

PUT 文 の 読み 込み 時 間 が な く な る の で 実行 中 スト ッ 
プ し て も 気 に な ら な い . 

(3⑬) は オー ル ・ マ シン 語 の プロ グラ ム で も 表示 用 の サブ 
ルー チン と し て 使え ます (スピ ー ド も か な り 速 いも の 
7 で 0 
BASIC を 使う 場合 , 特に (3) を 使う 必要 性 は ほとん ど あ り 

ませ ん . 1 /O “82 年 2 月 号 ′" の スタ ー ト レッ ク の よう な 

大 きい も の で は , メモ リ ・ サ イズ を 節約 する 目的 に 使え ま 

す . スピ ー ド 的 に は (2) と ほとん ど わ か ら な いと 思い ます . 
(1) と (2) を 使っ た サン プル ・ プ ログ ラム と し て グラ フィ ッ 

ク ・ エ ディ タ を 付け ます . 一 度 使っ て みて くだ さい ( マ 

シン 語 も 入力 し て くだ さい ね ). 
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BASIC に つい て は 最近 いろ いろ 出 て いる の で あえ て 書 
きま せん が , 1 つ , PUT な ど は デー タ が 連続 し て いま す 
が サブ シス テム と の 共有 エリ ア は 128 バイ ト し か な く , P 
UT 文 に 相当 する サブ コマ ンド だ け で 制御 する こと は 不可 
能 で す . 実は 継続 デー タ を 示す サブ コマ ンド が 他 に あり ま 
す 





$80 $ 64 継続 デー タ これ は GET 廊 や PUT 文 
の すべ て に 共通 で す . 
(くわ し く は $EB86 を 


逆 ア モン プル ) 


0 1 2 


まだ 継続 する と き は $80? 








参考 文献 

1) イン ター フェ ー ス , 81 年 11 月 , 82 年 2 月 号 
2) 1/O, 2 年 12 月 号 

3 ) その 他 雑 多 





&O 





が -Size?3B8 
Y-Size?158 


が -Size?dBB 
Y-Size?158 





が -Size?3HB 
Y-Size?1SB 





X-Size?368 
Y-Size?158 











Size=&H1SFR 4 


RUN す る と X 方 向 と Y 方 
向 の ドッ ト ・ サ イズ を 聞い 
て くる の て , 任意 の 値 を 入 
れ ま す . (X= ニ 1 一 588,。Y 
=1 168). 

指定 サイ ズ の 枠 が か か れる 
と 同時 に 配列 の サイ ズ が 右 
上 に 窒 示 され ます . 


Size=&H15SFR 


エディ タ を 使っ て 絵 を プロ 
ッ ト し て ゆき ます . この モ 
ー ド で は メモ リ を ほとん ど 
使用 せ ず , また エディ タ の 
速度 も 早い で す が , 万 一 [$ 


| カー ソル 位置 の ドッ ト を プロ ッ ト す る か 消去 する か の モ 
ー ド を 切り 換え る . 

隔 在 の カー ソル 位置 を セー ブ す る . 

HP で セー ブ し た 位置 へ カー ソル を 移す . 

(分 枝 メ に 便利 で す . ) 

画面 デー タ を メ 王 り リ 上 に マシ ン 語 デー タ と し で て で セーブ し 
ます . セーブ プ する アド レス を 聞い て くる の で , HH な し 
の 16 進 で 入力 し て くだ さい . この と き エ リア が 重 な ら な 
いよ うに 注意 し て くだ さい . 

LIS で セー ブ プ し た デー タ を 画面 上 に 出し ます . この と きも 
アド レス を 開い て くる の で 入力 し て くだ さい . 

画面 を クリ ア す る . 念 の た め 再 度 OKK か 聞い て きま す . 
8 ※16 ド ッ ト の 網目 を 出力 と と も に メモ リ の ワー ク ・ エ 
リア も 同時 に 更新 する モー ド に な り ま す . S と 同 横 に ワ 
ー ク ・ ア ドレ ス を 入力 し て くだ さい . 

RR 網 目 だ け を 消し ます . モー ド は 元 に 戻り ます . 
EISTOP 

mmm ーー ンー 語 デー ター> 丁 変換 サ プル ー チ ン emm 








TU 




















の | 














O 








| 


























TOP | 1 を 押し た と き の た 
め に こま め に “S? コマ ン 
ド で て データ を メモ リ 上 に セ 
ー プ し て くだ さい 。 








Size=&H1SFR イト 


*Q” コマ ンド て 網目 を 出 
力 し ます . この モー ド で は 
画面 と と も に 対応 する メモ 
リ 上 の ワー ク ・ エ リア に も 
同時 に ドッ ト を 更新 し ます . 
操作 上 は “5S? コマ ンド が 
実際 上 使え な いこ と 以外 は 
変わ り ま せん が , 若干 速度 
は 遅く な り ま す . 私 の よう 
に 絵心 の な いも の で も これ 
な ら 下 書き の 絵 を うま く 写 
すこ と わ で きま す . 

また , この モー ド な ら 途 中 
STOP し て も RUN し て , 
コマンド で ウー クマ 
エリ ア を 戻し て や る こと が 
で き 安 心 で す . 


Size=&H1SFR 人 


*R” コマ ンド て 網目 だ け 
を 消し ます . 
実際 に は 画面 を クリ ア 
し て , メモ リ 上 の マシ 
ン 語 デー タ を 配列 に 落 
し PU する の で す が 
PUT の 時 間 は 2 一 3 
秒 し か か か り ま せん 
画面 の モー ド は 前 に 戻り ま 
す . 


HODE:o 

















ーーーー テン e キーーーーー 
に | 箇 叶 了 2a 
ンジ 2 旧作 
































十 








隔 在 の カー ソル の 位置 を 知ら 
な いと き , カー ソル を 他 の 場 
所 へ 移し た いと き に 使い ます . 
グラ フィ ッ ク ・ カ ー ン ソル が 出 
る の で , 動か し て [RETURN | 
KGSNI7S2SYS。 


00001 444444444444444448441444114 
00002 1 人 97 に わ 1 
00003 444444444444444444141414 
00004 7500 ORE 57500 
00005 7500 0000 8DDR FDB 0 

00008 4109 -) 2 イデー 
00007 750234 72 BETSAV PSHS )Y,U8 
00008 7504EE 02 LDU 2.X 

00009 7506 108E 5E LDY -2U 

00010 7509E 8DFFRG LDX  )ADDRPR 
00011 750DEE 〔t LOOP1 LDD ,Mt 

00012 750FED 81 STD ,Xt 

00013 751131 YF LEAY -1LY 

00014 7513 2 F8 750D BNE LOOP 
00015 751535 F2 PULS YUAPE 
00016 4 

00017 4 人 09 (- 2 アー 

00018 751734 72 LOAD PSHS XYWUA 
00019 7519E 02 LDX 2 

00020 7518 10AE 1E LDY -2.X 

00021 75IEEE 85 誕 上 LDU  )ADDRPCR 
00022 752220 E9 7509 BRA LOOP1 

00023 1 

00024 4 

00025 2 アデ ー9 PUT 

00026 752434 7 左 PSHS BYU,P 
00027 7526 人 E 02 LDX 2 

00028 7528EC 81 LDD ,Mt 

00029 7526FD 00C5 STD  )400C5 
000 752DEC 81 LDD ,Mt 

00031 752FFD 00C7 STD  )40007 
00032 7532EC 81 LDD ,Mt 

00033 75?4FD 00C9 STD  )00C9 
00034 7537EC 81 LDD  ,Mt 

00035 7539FD 00CB STD  )%00CB 
00036 75SXCEC 81 LDD  ,Xt 

00037 75?EFD 00F5 STD  )%00F5 
00038 7541EC 81 LDD  ,t 

00039 7543FD 00FS STD  )900F5 
00040 7546EC 81 LDD  ,Mt 

00041 7548F7 0165 STB  )%0165 
00042 754BEC 81 LDD  ,Mt 

0004? 754DF7 00C2 TB  )%00C2 
00044 7550EC 84 LDD , 

00045 7552F7 00FB STB  )00FB 
00046 75558D EB27 JSR 9EB27 :BASIC 7 お わ 
00047 755835 FE PULS BY,ULDPIP 
00048 END 

TOTAL ERRORS 00000--00000 

TTAL MARNINGS 00000--00000 

PRD6RAN BEBIN ADDRs7500 

PRO6RAN END ADDR=7359 

PROGRAN ENTRY ADDRs4444 
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グラ フィ ッ ク ・ パ ター ン 作成 プロ グラ / EE 








1 48848444444444044444440444444444444444434 


2 4 7737497 の) 9764 7" ロ 7734 4 
3 4484844844448044844444044144444414444144334 
4 ' 


10 MIDTHB0,25:DEF USRO=&H7502:DEF USR1=&H7517 

20 LOEATE 10,1:LINE INPMT "X-9ize29359:SX=VAL(S9)iIF (SX)538)0R(SXK1)THEN 20 
30 LOEATE 10,2iLINE INPUT "Y-Size7":98:SY=V8L(59):IF (SY〉168)0R(SY く 1)THEN 30 
40 SIZE=INT(SX&SY/16)+1:LOEATE 60,2:PRINT *9ize=&H"iHEX%(517E2)j" 下條 " 

50 DIHN (SIZE) 

60 Li 上 E9 (100.30)-(10115X,31+8Y) PSET,,B 

70 8Ms1i=INT10018X72):V=INTG0+9Y/2) :XP=X:YP=YiSM2=0 

75 『" 

80 744NAIN44444444444444444444400444444444444444744444444 

90【% を INKEYWiIF K%="" THEN 90 

100 IF Ks"9* THEN IF (100+9X) AND (Y231 ) THEN #=t1:Y=Y-1:605UB280 


110 1F K$="B" THEN jF (Y231 ) THEN Y=Y-1:60SUB280 
120 IF Ks7* THEN IF (5101 ) 6ND (51 ) THEN X=》-1jY=Y-1:B0SUB280 

130 1FK%="6" THEN IF (100197) THEN =+1 60SUB280 

140 IF K%="5* THEN B0SUB280 
150 IF K$s"4" THEN IF (2101 ) THEN =X-1:B0SUB280 

160 IF K%="3" THEN IF (100+9》) AND (Y〈30+SY) THEN =1:Y=Yt1iB0SUB280 
170 IF K%="2* THEN IF (V〈30+5Y) THEN YsYt1iB0SUB280 


180 IF K%="1" THEN IF (2101 ) AND (Y30+8Y) THEN #=%-1:V=V-1:60SUB280 

190 IF K$="。* THEN IF SMs1 THEN SM=0:LOEATE 60,10:PRINT "NODE:O"』 ELSE 5Ws1iLOCATE 60,10:PRINT "HODE:@"i 
200 IF K%=t" THEN 6LURSOR (4),(Y) 

210 IF K%="PP THEN PsXiYPsY 

220 IF K$s"H' THEN XXPiYsYP 

230 IF K$="L" THEN 60SUB370 

240 IF K$="5" THEN 60SUB310 

250 IF K$s"E" THEN LOEATE 60,12:LINE 1NPUT "ELNRR OK2(V) "99rIF 59=YYY THEN LINE9 (101.31)-(100154。30+SY) ,PRESET,,BFiLOEATE 60,12:PR 
INT SPAEE$(15)j ELSE LOEATE 60,12:PRINT SPAEE$(15) 

252 IF K9s*8" THEN IF SW2=0 THEN 5M2=1:60SUB1000 

254 】F KsrR' THEN IF SM2=1 THEN SM2=0:605UB2000 

260 IF K%=WE" THEN STOP 

270 BOTO 80 

280 IF SMs1 THEN PSET(,Y) ELSE PRESET(X,Y) 

290 IF 8M2=0 THEN RETURN 

292 6DD=INT(((Y-31) StX-101) /8)+MORK 

293 =(((V-31) HOD 的 49XtX-101) HUD 8:BIT=2^(7-81) 

294 MsPEEK(ADD)iIF SM=1 THEN POKE ADD,(BIT OR W) ELSE PDKE DD,(M AND (NT BIT)) 
300 RETURN 

310 '44SAVE883440444444444444444444444444449444444444444 

320 6ET9 (101,31)-(100+8。30+8Y), 本 6 

30 LEATE 60。20:LINE INPUT"SAVE ADDRES92"5%WsVAL("&HS9)iTF =" THEN 360 
340 POKE &H7500,NT(WM/256):P0KE &H7501,(W NOD 256) 

350 MsUSRO(VARPTR(AZ(0))) 

360 DEEP1iFOR 1=1 TO 100:NEXT:BEEPO:LOCEATE 60,12:PRINT SPAEE%(19)』:RETURN 

3⑰0 "844LOAD44484444484444444444444444444444444444444444144441 

390 LOEATE 60。21:LINE INPUT"LOAD ADDRES92"189:WVAL(" 旭 89):IF 89="" THEN 430 
400 POKE &H7500,INT(W/256):POKE &H7501,(W MOD 256) 

410 MsU5R1(VARPTR(AZ(0)) ) 

415 LINES (101,31)-(100497。30+8Y) ,PREGET,,BF 

420 PUT9 (101,31) -(100+SX。30+8Y), 人 Z。PSET 

430 BEEP1:FOR 1=1 T0 100:NEXT:BEEPOiLOEATE 60,21:PRINT SPAEE$(19)j:RETURN 

1000 !4 人 CURSOR444344444444444444444444444444424414444444474 

1010 6ET9 (101,31)-(100+8,30+8Y) , 導 6 

1020 LOEATE 60,20:LINE INPUT"MORK ADDRES82"99:MsVAL("&HTt99)iIF 96="T THEN 360 
1030 WURK=H:POKE &H7500,INT(W/256):POKE &H7501,(W HUDD 256) 

1040 USRO(VARPTR( 本 (0) ) ) 

1042 FOR 1=38 T0 30+SY STEP 8iLINE9 (100,1)-(100+57。1) PSET:NEXT 

1044 FDR !=116T0100+SX STEP16iLINE9 (1,30)-(1,30+8Y) ,PSET:NEXT 

1050 BEEP1:FOR 1=1 TO 100:NEXT:BEEPOLOEATE 60,20:PRINT SPAEE(19) jjRETURN 
2000 "488CURSOR CLEAR4444444444484444444444444444414444444444 

2030 sU5R1(V8RPTR(Z(0) ) ) 

2040 LINE9 (101,31)-(100+57。30+SY) PRESET,,BF 

2050 PUT9 (101.31)-(100+5.30+SY) ,2,PSET 

2060 BEEPIiFOR 1=1 T0 100:NEXT:BEEPO:LOCATE 60,21:PRINT SPAEE%(19)』:RETURN 
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0 


マン ン 語 換 サブ ルーー チ ン 還 還 還 昌 時 





100 !48444444444444444444444114444441444441434114444 


110 4 FH-B iMU9(W429 胃 だ 9 て -) 92 イデ -9 499 9777 かわ # 
120 444444444444444444444400444414413 
130 


140 DR (100) ! 1) (2) / 7 9942"-ー2 タ カイ デー-9 3972 

150 4 (1) MO -) 0 イアー 4 計 444444404644041144111413 
140 DEF USRO=&H7S02 

170 POKE &H7500,&H30:POKE &H7501,&H00' フ コ " デ -9 39 ADDRESS 

180 MsU5RO(VARPTR(W(0))) 

190 4 (2) 09(- 99 デー9 4 
200 DEF U5R1=&H7517 

210 POKE &H7500,&H30:POKE &H7501。&H00' エ バト ガ ゲ 5739 

220 WUSR1(VARPTR(AZ(0))) 

230 44 3) 9 イデア -9 お 769 PUT (に ト だ ) 88444444444444444444444 
240 DEF USR2=&H7524 

260 (0)=0 '#-START 

261 (1)=S0 *Y-START 

262 (2)=40 'X-END 

270 3)=80 "Y-END 

271 (4)=&H30007START DDRESS 

272 (5)=&H31007END ADDRESS 

280 (6)=0 '9A 

281 (7)=0 ! 補 9 

282 導 (8)=7 *COLOR 

290 MsUSR2(VARPTR(6Z(0) ) ) 

30 7944444444444444444444444444411444114444441 
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1/O 誌 81 年 12 月 号 の 『MZ-80B 用 TV 黒板 プロ グラ ム 。』 と '82 
年 1 月 号 表 紙 の 『FM-8 グ ラフ ィ ッ ク 花 札 』 の 絵 の す ば らし さ 
に 刺激 され て , FM-8 用 パタ ー ン ・ エ ディ タ を 作っ て 見 ま 


便 い 1 方 


⑯ プ ログ ラム を RUN する と , 画面 を イニ シャ ライ ズ し た あ 
と , パターン の 大 き さ を 聞い て くる の で , タテ , ヨコ の 順 
で 答え て くだ さい . 最大 タテ 16 ベ ヨコ 64 ド ッ ト で す . それ 
以上 の 大 き さ の も の を 作り た い 場 合 は .、 いく つか に 分 け て 
行なう と よい と 思い ます . 

あと は , 画面 に マト リッ クス が 表示 され る の で , 各 コ マ 
ンド を 活用 し て , パタ ー ン を 作成 し て くだ さい . 
バター ン が 完成 し た ら , RR コ マン ド で パタ ー ン の デー タ 
を BASIC の デー タ 文 と し て 作成 し ます . 民 コ マン ド を 指定 
する と 。 “カラ ー モ ー ド 20 開 V で AS る の で カラ ーー パラ 

メー タ と と も に デー タ に する 場合 に は , Y を , そう で な い 
と き は , 他 の キー を 押し て くだ さい . 

次 に , “ギョ ウ バ ン ゴ ウ ? "と 半 い て くる の で , デー タ 廊 
を 作成 する 先頭 の 行 番号 を 入力 し て くだ さい . た だ し , 1000 
ー31999 の 間 に 限 り ま す . 後 で , 簡単 に リナ ン バ ー が で き 
る の で , その 間 な らい くつ で も よい と 思い ます . 

次 は , “ヘン スウ メイ ? “と 聞い て くる の で , 後々 この デ 

ー タ を 読み 込む 配列 の 変数 名 を 入力 し て くだ さい . 
@ 以 上 , 入力 が 終わ る と , 行 番号 を 表示 と な が ら デ ー タ 廊 
を 自動 作成 し て , この プロ グラ ム 自 身 に アペンド し ます . 
ベル が ピッ ピッ ピッ …… と 鳴る と 作成 完了 で , 再び プロ グ 
ラム が ター ド し ます 

スト ッ プ ・ キ ー を 押し て , リス ト を 見 て くだ さい . み ご 
と に デー タ 文 お よび , それ を 配列 に 読み 込む サブ ルー チン 
・ プ ログ ラム が , 自動 作成 され て いる と 思い ます . あと は , 
本 プログラム を デリ ー ト し て , メイ ン の プロ グラ ム を 作成 
し で . く 2 だ 礼 . い 。 


コマ ンド の 説明 
1|-IZ| : ペン ・ カ ラー を 設定 し ます - 


ーILLUEH: カー ソル を 移動 し ます . ペン ・ ダ ウン の 状態 
で は , カー ソル の 移動 と と も に ドッ ト を セット また は , リ 
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セッ ト し ます . 

|]: 現在 の カー ソル 位置 の ドッ ト を セッ ト し た 後 , カー 
ソル を て 方 向 に 十 1 進 め ま す . 

SPACE| : 現在 の カー ソル 位置 の ドッ ト を リセ ッ ト し た 後 , 
カー ソル を 方 向 に 十 1 進 め ま す . 

[Al: すべ て の ドッ ト を 現在 の ペン ・ カ ラー で セッ ト し ます . 
[c ほ た は [CLEAR| : すべ て の ドッ ト を リセ モット し ます . 

[: ペン を UP し ます . 

[pl]: ペン を DOWN し ます . 

[WMI: ペン ・ ダ ウン 状態 の と き , カー ソル 移動 で ドッ ト を 
セッ ト す る か , リセ モット する か , モー ド 変 換 し ます . 

限 |:: ドッ ト ・ デ ー タ を BASIC の デー タ 文 と し て , 自動 作 
成 し ま す . 


ウル レレ テア パピ ニーJA re 


フロ ー チ ャ ー ト も 書か ず に いき な り コ ー テ ィング し た の 
で , 非常 に 解り に くい プロ グラ ム に な っ て し まい まし た . 
最も 苦労 し た の は , デー タ 文 を 自動 作成 し て ,. アペンド 
する 部 分 で ,。 ここ だ け で 5 回 以上 コー ティ ング を や り 直 し 
まし た . 

具体 的 に どう や っ て , アペンド する か と 言う と , 最初 に 
ドッ ト ・ パ ター ン を 配列 に 読み 込ん だ 後 , メモ リ の $6100 
番地 以降 に 実際 の テキ スト が , メモ リ 上 に 格納 され て いる 
の と 同じ よう に , デー タ を 書き 込ん で いき ます . 

その あと , マシ ン 語 に より 実際 の テキ スト の 後 へ ブロッ 
ク 転 送 し て , 各種 ポイ ンタ を 書き 換え て いま す . 

大 変わ か り に くい と 思い ます が , ファ イト の ある 人 は プ び 
ログ ラム を 読ん で みて くだ さい . 








の 


パタ ー ン の 大 き さ が 小さ い の で , 今後 , 改良 し て いき た だ たい 


あと が と 思い ます .。 な お , ディ スク BASIC で も 動作 確認 し て いま す - 





避 参 考 文献 
いき な り コ ー テ ィング し た わり に は 。, 結構 便利 な プロ グ 1) 高嶋 発 “TV 黒板 "1/O, ”81 年 12 月 号 
ラム が で きた と 思っ て いま す . し か し , 一 度 に 作成 で きる 2) F-BASIC 文 法 書 


初期 画面 の ハー ド ・ コ ピー 





ーー 一 一 


P 台 TTERHN 


PHTTIERH 3 
EDTITUR 


RMODE 
RESET 


PEHN 
U り ビ 





カラ ー 回 軒 男 
1 ご づ オ 5 ラ ら 6 デ 





マト リッ クズ サイ ズ ~ や タテ 。。。.。 ユ 1 らら ヨコ 。。.。-- ら 4 マテ デ 
3 








エディ ッ ト 中 の 画面 の ハー ド ・ コ ピー 


0909999809860900900000006000999999069909060999098698999909009908 
@00000000000000000000000000000000000000000000000000000000000000@ 
@00000600986666866066000000000000008@000000000696660886998000008 
@@@000000000000@@00000060@6696 
@00000000009@99900000000000000000990000000@@000000000000009@000 
WOOnQ0O00000@W@WW 介 000000000000000@W0000000@@@00000000000000@@W@00@ 
@000000000099900000000000000000@W000000009@@000000000000008@9000 
@W0000000000 介 介 人 HUOOUUUUU0000 介 D00000000W@@00000000000000W 介 00 
@O00000000009@ 人 0000000000000@W000000000089@000000000000009@900@ 
@0000000000@@0 人 0000000000009@000000000000@W0000000000000000@00 
WO000000000099@W@00000000000@@0000000000008@@00000000000000800008 
@0000000000W@@ 介 0000000000 介 0000000000000 介 00000000000000@@@00 介 
@00000000009@@980000000009@000000000000008@W0000000000000099900@ 
@000000000999909060669000900000000000000008 作 0 の 696686669000 












PRTTERRN 
EDITOR 






せ / ロ 


NODE 
SET 


PEH 

U り ビ 
カラ ー 還 是 
1 ご 4 らら デ 






IZA マデ 





自動 作成 され る プロ グラ ム 例 


2000 FR 1=O TO 194:READ AZ(T) :NEXT: RETURN 
2010 DATA 1 。-1 。 1 。-1 。 3276 日 。 O。O。 1 。 2477 。 1024 。 1 231 。 さ 1 
2020 DATA -3270 日 。O。246 日 。 1 1 さ 。- さ 270 日 。O。ー1627 ラ 。 1 1 さ 。 3270 日 。 1 。 - さ 26 上 6。 1 1 さ 
2030 DATA -3270 昌 。 さ 。 112。11 さ 。- さ 270 日 。6。 112。11 さ 3。 3270 日 。 12。112。113 
2040 DATQ 3270 日 。 24。 1 12。11 さ 3。- さ 270 日 。 4 日 。 11 つ 。 1 1 さ 。 3270 日 。96。112。11 さ 

王 O DATQ -3270 日 。 192。1 12。 1 1 さ 。 245 フ 7 。 96 。 6 さ 。 1 。 - う 276 日 。 O。 0。 1 
206O DATA -1。』ー1。ー1。-1。O。O。0。O。O。O。0。O 



































づつ 070 DAT 0。O。O。0。0。0。O。O。O。0。0。O 
20 ヨ 0 DATA 0。O。O0。0。0。O。O。0。0。0。0。O 
2090 DATA 0。O。O。O。O。O。O。0。0。O。O。O 
2100 DaTA 0。O』0。0。0。0。0。0。0。0。0。0 
づつ 110 DATA 0。O。0。O。0。0。O。O。0。O。0。0 
2120 DATA O。O。0、0、0。0。0。0。0。0。.0。0 
32130 DATA 0。0。O。O0。0。O。0。0。0。O。O。O 
2140 DaTA 0O。O。0。0。0。0。O。0。0。0。O、O 
215O DATA 0O。0。O。0。0。0。O。O。O。O。O。O 
2160 DaTA O。0。O。0。0。0。O。O。O。O。O。0 
0。0。O 
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カラ ー パ ター ン ・ エ ディ タ プロ グラ ム ・ リス ト 





10 
20 
さき 0 
40 
50 
60 
70 
0 
90 
ESE 
100 
11O 
UP 
120 
1 さ O 
14O 
15O 
160 
170 
180 
190 
200 
s C ロ 
210 
TH 
。 45 
220 
230 
240 
円 
250 
N" 
260 
95) 





270 
ESE 
280 
ET。 
290 
300 
さ 10 
さ 20 
さ 30 
さ 40 
さ 5O 
さ 60 
さ 70 
さ 3BO 
さ 90 
400 
410 
420 
430 
440 
450 
460 
470 
48Q0 
490 
500 
510 
520 
53O 
40 
5S5O 
560 
57O 
58O 
590 
600 
610 
に 】 コ 

620 
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SET",2。1。 フ 


ポポ 水 水 水 水 素 水 水 氷 水 素 水 氷 氷水 ポポ ポポ ボ 水 水 水 氷水 氷 氷水 ポ 氷 氷水 氷水 水 氷水 氷水 ポ 水 水 氷水 氷水 氷水 水素 炒 水 氷水 ポ 水 ポポ 
1 4 


7 PATTERN EDITOR Copyright 1982 By ETF Laboratory T.KABABAKU * 
1 4 

"ポポ 水 氷 ポ 水 ポポ ボ ※ 水 水 ※ ポ 水 氷 水素 氷水 氷水 水 氷 水玉 水 ポ 米 炒 ポ 玉 水玉 水玉 水玉 氷水 炒 氷 氷 ポ ポポ 
MIDTH BO。20: CLEAR さ QO。&H5FFF: DEFTNT AZ:PDL=7:COLDR COL 
BDSUB 310 
SYMBDL (60。20) 。 "PATTERN" 。6。4。1:DIMA(194) 
SYMEDL (57, 18) , "FATTERN" 。 6。4。 2: BYMBDL (525 ロ 。 B5) 。 "MODE"。2」 1 。7: SYMBDL (520, 95) 。" 。 R 
T"。 ら 。 1 7』MF=1 

SYMEDL (BO。 60) "EDITDR" 。6。4。2 

SYMEBDL (77。58) 。 "EDITUR" 。6。4。6: SYMBOL (525。 110) 、"PEN" 。2。 1 。 7 SYMBDL (520。 1 20) 。" 
"2。 1 7 ェ KF=1 

SYMEOL (20, 170) "マト リリ ゅ ワ ス サイス" や? グ テ 。。。。16 ヨコ 。.。.64 マテ ""』2。1。 フ 
LUCATEO。 1 日 : TNPUT" ウ テ "iMY:TF MY く <1 ロ R MY>16 THEN PRINTCHR 和 (7) 』 : BDTD 13O 
LDCATEO。 1 日 : INPUT "ヨコ "』MX: ITF MX く <1 OR MX>64 THEN PRINTCHR$(7) 』 : BDT 140 

LINE (0 O) 一 ( 品 16。 159) , PRESET 。 。 BF 

LINE (0』0) (MX-1 。MY-1 ) 。" ロ "。 CDL , BF: GBDSUB 52O 

LINE (0。 162) (639。199) 。PREBET。 , BF 

SYMBUL (20。170) 。 リ コマ フト" の リ 2。1。7 

人 =TNPUT$(1 ) 

=ASC.( 人 Q 生 ) : IF A<56 AND A>4 THEN COL=-48:LTNE (590。 13 日 ) -(637。145) 。、PSET 。 CDL , BEF 
LDR COL: GDBSUB 520: BOTD 17O 

IF Az>27 QAND <32 THEN IF KF=1 THEN ロ N A-27 BDTU さ 90,420,45O。48O ELSE IF MF=1 
EN BOBUE 5BO:DN A-27 BUTD さ 90,』420。450。4BO ELSE BUSUB 560rDN a-27 BDTD 390。』420 
O, 48O 

IF Aa=B さ THEN BOBUB 60』BUTD 390 

IF A=32 THEN PRESET(CUX+55O』CUY+5O ) : CDLDR 7kLOCATECUX 。EUY: PRINT" ロ リュ ェ BDTDS90 
IF a=B5 THEN KF=1:LINE(520。 120) (6 さ 9。 13O) , FRESET。 。 BF: SYMEBOL (520。120)』" UP 
21877 

IF a=6H THEN KF=O:LINE (520, 120) (6 さ 9。 1 さ 0) 。 PRESET。 。 BF: SYMBDL (520。120) 。" DOM 
の ケ / 

IF =77 THEN IF MF=O THEN MF=1:LINE(520。9) -(6 さ 9。 105) 。 PRESET。 。 BF: SYMBDL (520。 
ュ 「! RESET"。2。1,7 ELSE MF=O:LINE(520。955) (6 さ 9, 105) 。PRESET。 , BF : SYMBDL (520。95) 。 " 


IF =12 ロ R Aa=67 THEN LINE(O』O) 一 (MX-1。MY-1) 。" ロ "7。BF:LTNE (550,50) (620。7O) 。FR 
T。 ,BF: CUX=Oi CUY=O BUSUB520 

IF Aa=65 THEN LINE(0,O) (MX-1 ,MY-1) 。" 借 "EDL 。 BF:LTNE (550 50) (MX+549。MY+49) 。PB 
CDL, BF: CUX=O: CUY=O: BHSUB 2O 

IF A=B2 THEN59O 

BOTD17o 

LINE (0』 160) (6 さ 9。161 ) 。PSET。 4 B 

LINE (517,0) -( 呈 1 160) 。 PBET。 4。B 

LINE (525,Q) (6 さ 9。 40) 。PSET 。 1 。 BF 

SYMBDL (525, 呈 ) , "PATTERN" 。 2。 1 4 

SYMBOL (5540。 15) 。 "EDTTDR" 。2。1。4 

BYMBDL ( 王 25。 1 さ B) , リカ ラー"。 2。 1 フェ LTNE (5590, 13B) (6 さ 7。 1 45) 。、PSET 。 CDL 。 BF 

FURI=1T07: SYMBHL (TX16+509。 4 日 ) MID* ま ("123467"』T。1) 。2。1 。T:NEXT 

RETURN 

*CUX + 

GOSUB540: CUX=CUX+1 : TF CUX=MX THEN CUX=O: CUY=CUY+1 : IF CUY=MY THEN CUY=O 
BDSUB52O: BDTD19Q 

*CUX 

BOSUB540: CUX=CUX-1 : TF CUXXO THEN CUX=MX-1 : CUY=CUY-1 : TF CUY く O THEN CUY=MY-1 
BDSUE520: BDTD19O 

『CUY + 

BDSUE540』 CUY=CUY-1 : TF CUYXO THEN CUY=MY-1 

BDSUB52O BUTD19O 

*CUY 一 

BDSUB540: CUY=CUY+1 : TF CUY=MY THEN CUY=O 

BSUB5SO: BUTD19O 

* CURSDR SET 

LINE (CUX* 日 。 CUYX10+ 日 ) -(CUXX 昌 TB。 CUYX10+ 日 ) 。PSET 。 COL s RETURN 

* CURSDR RESET 

LINE (CUX 日 。EUY※10+) (CUX 日 日 。CUY※10+ 日 ) 。、PRESET: RETURN 

* DOT BET 

FSET (CUX+550。 CUY+50。 COL ) : CDLUREDL : LUCATEEUX 。 CUY: PRTNT "代り s: RETURN 

* DDT REBSET 

FRESET (CUX+55O。 CEUY+5O) : CULDR7:LDCATECUX 。 CUY: PRTNT" ロ " ョ ェ RETURN 

LTNE (0」 162) (639。 199) 。 PRESET 。 。 BF 

SYMBDL (20。 170) 。" カ ラー モー ト " で (Y/N) "。2。 1 。7 ェ も =TNPUT*(1 ) 

TF 人 Q ま = リ Y" THEN じ =(((MX*MY+ フ ) / 日 ) ※ さ キャ ラー1 ) /2: BET9A (55O。5O) -- (MX+549。MY+49) 。 人 BEL 


じ =( (MX※XMY+ ブ ) / 日 キロ ー1 ) /2: BET) (55O』。50) (MX+549。 MY+49) 。 人 Q。 は 
LUCATEO。1B: INPUT "キョ ウー リト ラフ ゴ "ウー"』BYHE IF BYUX1000 DR BYO テ > さ 2000 THEN FRINTCHR$( 











&O 


カラ ー パ ター ン ・ エ ディ タ プロ グラ ム ・ リ スト 


7) 』 :BDTO62O 
63 さ 0 LUCATEO。 1 昌 : INPUT "フタ ウー メイ "』H:TF ASP(H$) く 65 UR ASC(H*) >90 THEN PRINTCHR 
(7) 』:BDTD63O 

640 LINE(O』161 ) 一 (6 さ 9。199) 。PRESET。 。 BFsLDCATEO 。 17 

650 "MACEHINE LANBUABE 

660 FURI=&H6QOOO TO &H602 さ :READ 人 Q$rPUKE 1T』VAL("&H"+ 人 も) 』NEXT 

670 DATQ 34』72。10』BE。60,50。BE。 00』 さ 5。 さ O』 1E。 CE。 ら 1 。 00。 人 6。 CO。7。BO 

6B0 DATA さ 1。 さ F,26。F 日 。BE,60,52,BF 。 00, さ 5。 BF 。 00。 さ HBF 。 OO。 さ D , さ コ 。F2 

690 "FDR DATA 

700 DaTa 1』20。49,E6。FE,O1 。00。20, CD 。20。FE。O1 、95。3A。 5。 20。 25 

710 DATQ 2B。49,29. さ 3Q。B2。 さ a。BE。O 

720 LP=FEEK(&H3) *256+PEEK (&&HS6) 2:FD=&H6100:LP1=PD 

730 BODSUB9 さ OF ロ =PD+1 :LP=LP+1 

740 FURT=1TD16:READ 人 $:PUKE PU+T。 VQL ("8H"+ 仙 ) : NEXT: P ロ =P ロ +T :LP=LP+ エ 

750 FDRI=1TD LEN(H*) :FUKE PD+ エ ー1 , SC (MID ま (昌和 ま 。 エ 。 1) ) : NEXT:F ロ =PD+ エ ー1 : し P=LP+ エ ー1 
760 FDRT=1TD9:READ $:PUKE PD+ エ ー1 』。VAL ("日 " 二 人 生 ) : NEXT:F ロ =F ロ + エ ー1 : し P=LP+ エ ー1 

770 PURE &H6110。 じ : GBDBUB960: T=O 

780 BOBUB93O 

フ 790 FU=FH+2:LFP=LP+2= PUEE FU。 1 さ 1:PUKE PU+1 。 さ 2 PF ロニ F ロ +2』LP=LP+ つ 

BOO X=1 

10 MHILE X<1 さ AND 1<=C 

B2O Q$=STR$ も (人 (1) ) : TF (1T) >=O THEN 人 Q$=RTBHT あ (人 ま 。LEN (人 生 ) 1 ) 

BSO FDRJ=1TU LEN( 人 *) :PDRE PD+ー1 』 ABP (MTD も ( 全 。 ゴ 。 1 ) ) s NEXT: PD=FD+ ロ ー1 : し ピ =LP+ ゴ ー1 
B40 IF XX>12 AND IX<>C THEN FDKE PD。44:P0=F ロ +1 : LP=LP+1 

BBO 1T= エ +1:』X=X+1 

B60O MEND 

BZO FOREE PD。O:F ロ =FU+1 :LP=LP+ 1 BHSUB960 

BBO IF 1I<=C THEN 78O 

B90 FUKE FU,OrFUKE FU+1 。0:F ロ =PD+2:LP=LP+2 

900 FDRE &H6050。 INT((FD-&H6OFF ) / 256) s FDRE &H6051 。(P ロ -&H60FF ) MDD 256 

910 FDRE &H6052。 INT (LP/256) : PURE &H605 さ 。LF MDD 256 

920 EXEC&H6OOO:FDR エ =1TU20: BEEF1 : FDRJ=1 TU さ 0: NEXT:FDRJ=1 TH さ O』 BEEFO』 NEXTJ。 T ェ RUN 
930 ?LINE No.。 SET 

940 FU=PU+2:LF=LP+GsPUKE PH。INT(BYU/256) : PURE PD+1 BY MOD 256 

95O FRINT"E リ BYOi "コリ 』 ェ BYD=BYD+10』 RETURN 

960 "リッ PDINTER SET 

970 FORE LP1。INT(LP/256) : PUKE LP1+1。LF MDD 256:LP1=PO:RETURN 

9BO *ーーー END --- END --- END --- END --- END --- END --- END --- END --- END - 
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この プロ グラ ム の 特徴 は キー ボー ド 操 作 に よっ て 任意 の 


曲線 を 描く と き に だ け マ シン 語 の サブ ルー チン を 使い ます . 


マシ ン 語 サブ プ ル ー チ ン で は 点 の X, Y 座 標 を 右 下 端 に , 常 
に 表示 し ます . また , キー ボー ド の |S|, |A| を 押す こと で 
画面 を 消さ な いで スク ロー ル を 0 行 ー25 行 と 20 行 25 行 自 
由 に 変え られ ます . マシ ン 語 モー ド の と き の キ ー ボ ー ド の 
操作 は 図 1 で す . 

通常 は BASIC コマ ンド が 充実 し て いる の で , 直接 命令 
に よっ て 円 な ど を 描き ます . 

図 1 























AND 


描く 

の (PsET) ヒ ゴ 軸 JoR 
ロ 消す 

| (PRESET) 
ル 

20 N の 
行 XOR 軌 図 回 
倍 [ 国 一 BASIC モ ー ド に 戻る 四 
回 - 賜 
還 図 回 急 固 回 較 貴 
黒 青 赤 紫 緑 水色 黄 白 


回 ボー ボ ら ミー ロ \% て 











因 99 絢 向 引 に 


洲 ン % 3 3 
肢 強 総 総 音 頑 交 可 夫 総 間 Sh 
BASIC プロ グラ ム の 説明 は 図 2 の と お り で す . 画面 デ 
ー タ (39K バ イト ) を カセ ッ ト テ ー プ に 記録 する の に 時 間 
が か か る の で , PRINT 半 1B$ で 1 回 に 124 バイ ト 送 る 方 
法 (PRINT せ 1 A2 (N) で は 2 バイ ト ) と , GET@A を 
し た あと , A (0 ) の アド レス を VARPTR (A (0)) 
に より 調べ , LOADM に よっ て いっ ぺん に テー プ に SA 
VE す る 方 法 を 考え まし た が , いずれ も 名 H8000 以 上 の デ 
ー タ を 配列 A 多 (N) に 読み 込ま せる こと が で き な く て 壁 
GS つか っ で し まい まし だ 。 
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な きる 249 の 


2 . BASIC プ ログ ラム の 説明 










































iR マシ ン 語 プロ グラ ム を 読み 込み ,。 スク ロー ル を 
20 行 か ら 25 行 に し ます . 
マシ ン 語 サ プ ブルー チン に 飛び , 点 や 線 を 描き ま 
RUN 20 
す . 
画面 (0,。 0) 一 (639。 161) を テー プ に 記憶 し ま 
RUN 30 
店 
テー プ に 記憶 され て いる 画面 デー タ を ディ スプ 
RUN7070 
レイ に 描 が きま す . 
画面 (0 0) 一 (639。161) を テー プ に 記憶 し ま 
RUN 200 
す . 
テー プ に 記憶 され て いる 画面 デー タ を ディ スプ 
RUN 270 
レイ 画面 に 表示 し ます . 
隊 和 寺 ESESKeiRite2hoie 泊 il| 
陸 8 給 
陸 有 信人 | 





較 方 式 1 

まず 画面 を GET@A に より DIMA22 に 読み 込み , VAR 
PTR に より 配列 A 用 の アド レス を 調べ , カセ モット テー プ 
に 配列 A 多 の アド レス と 配列 A 多 の デー タ を SAVEM に 
より デー ジジ に モー しまう): 

カセ ッ ト テ ー プ か ら の ロー ド は その 手順 を 人 逆 に 行ない ま 
9 が > 
圏 方 式 2 

まず 画面 デー タ を GETGA に より DIMA2 (6482) に 語 
み 込 み ま す . この 配列 A2% の うち 0 で な いも の だ け を 16 進 





』O 


変換 し , それ を B$ に まとめ て PRINT 半 1 B$ に より 一 に 読み 込ん を だ デー タ を PRINT せ 1, A の 2 (N) で て 送る と 50 分 
刀 に 258 バイ ト ず つ カ セッ ト テ ー プ に 転送 し ます . ぐら いか か り ま す が , 方 式 1 で す と 7 分 , 方 式 2 で す と 6 
カセ ッ ト テ ー プ か ら の FM- 8 へ の ロー ド は 上 記 の 手順 分 に 短 縮 され ます . 


を 逆 に 行い ます . 
画面 の テー プ へ の SAVE は GET@A で 配列 A (6482) 
Ei = デビ 球 板 ビ 信 GIC プ ログ ラム ・ リ スト EE 


還 





10 MIDTH40. 325 CHNSHLE20。5。 0』 1: CLEAR 。 SHZBFA: LOADM"T "END 
2O_ EXECSH7BFH:』 END 

さき さ 0 CLEAR。S&HZBFA: DIMQZ(6482) 

40 FUHR Y=OTU1@1STEP54: GET9RA(O。Y) 一 (6 さ 9。 Y+ ロ くさ ) 。 AZ。G 

SO _ ロ FEN"H"。1。"F": S=VaRPTR (AZ(O) ) : FRTNT#1 8:CLUSE 

60 SAVENM"DATA" 。S。 VaRFTR (AZ(6482) )+1 .S:NEXTY:END 

70 CLEAR, &H7ZEFRA DTMAZ(64 ヨ 2) =FHR F=O TO642: AZ(F) =1 : NEXTP 
BO_ FURY=OT0161STEP54: ロ PEN" 1"。1。"F": TNFUT#1 =: CLOGBE 

0 T=VaRPTR(AX(O) ) 

100 LOaADM"DATA" ,T-8 

110 PUTDa(O。Y) 一 (639。Y+ ロ 3) 。 AZ。 FPSET』 NEXTY:s END 

150 PUTSA(O。』Y) 一 (639。』Y+ さ 1 ) 。 AZ。 PSET:』 NEXTYsEND 

2Q0 CLEAR1000。&&H7EFAE HFPEN" ロ 1. "FEDIMAX(6482 ) 

10 FOUR Y=O TOU161STEF54: BETSA(O。Y) 一 (6 さ 9。Y+5 さ ) 。 ん 。 Bs FRN=OTO6482 
<SO IFaZ(N) =OBHTO2SO 

デー1 N ま =R1IGHT ま ("0 リ 7+ リ 0 リ 0+ リ 0O リ +HEX ま (N) 。 4) : 人 =RTGHT ま ("0"+ リ "0" キリ OO"+HEX 生 (人 ん (N) ) 。4) 
2 さ 0 も = 日 ます N 呈 + 全 和 ま : ドニ ド +1 : TFE く さき 1GUTU25O 

40 日 本 + す "TKTVgFRTNT 提 1 。 日 呈 = 日 = リ リュ ドニ 0 

250 NEXTN: = も +"Z 人 MAT:PRTINT 韻 1 HB 昌和 ま = リ "リュ K=0 

260_NEXT YiEND 

270 CLEAR1000.%H7BFA DTMZ(6482) gi HFPEN" 1 エリ 1 "F" 

2B0 FURY=OTU161STEFS4 

290 日 呈 = リリ 』TNFUT 后 1 。 Hs N=O 

さ 00 じ 生 = モ MID 生 (ER ま 。 BN+1 。4) : TFC まま = リ "TAKTTBUTU290 

さ 10 IFC$= リ ZaMA"GHTHSSOELSEDX=VaL ("8H リキ MTD も (H。 日 N+ ロ 2) ) 
さ 20 IF DE 12BGHTUSSOELSEDX=D メ ー256 

ささ 0 ZZ(VaL ("82H リ + じ ) ) =256%DZ+VaL ( "82H リキ MTD ま (昌和 も 。 BN+ ブ 。 人) ) : N=N+1 
さ 40 BT03QOO 

さ 50_ FUTSa(O。Y ) 一 (6 さ 9。 Y+5 さ ) 。 ん 。FSET 

さ 60 IFY:100BUTOSBO 

さ 70 FURZ=OTH64B2 iRZ(Z) =O0gNEXTZ 

さ B8O_NEXTYi END 











の ーー es= コ ミン ーー ーー ーー デー ニ デー! テレ ビ 黒 坂 マシ ン 語 ・ ダ ンプ ・ リス ト EE 





フ 7C4O BB 1 さ 7 26 OE 7 7C F2 BE 7C EF さ O 1F BF 7C EF giO1 7DSO 04 7F 7C F3 39 1 58 26 Q6 6 0O1 BZ 7C FS さ 39 1 :97 
7CSO 7E 7C BB 1 39 26 OE 7 7C F2 BE 7C EF さ O O1 BF z74 7D60 4 さ 26 0O6 86 02 B7 7 ヒビ F3 39 日 1 56 26 06 86 03 BZ 』99 
7C6O 7C EF 7E 7C BB 1 3 る 1 26 OD 7C 7C F2 BE 7C EF 3O s 18 7D7O 7C F さ 3 39 1 42 26 06 6 04 BZ 7C FS 39 81 4E 26 』75 
7C70 1F BF 7C EF 20 15 日 1 さく 26 OE 7C 7C F2 BE 7C EF :79 7DBO O6 6 OS BZ FC F さ 3 39 日 1 4D 26 06 6 06 B7 7C FS si1C 
7CBO さ O O1 BF 7C EF 7E 7C BB BD 7D 1D FC 7C EF BD 9B :F6 7D90 39 1 2C 26 06 6 07 B7 7C FS 39 昌 1 41 26 QD BE szB1 
7C90 EF BD CO ミ BD B9 7 EC O1 FD 7D O4 EC O さ FD ZD :B1 7DAO OO 19 BF 7D 1 BE 7D OC BD F2 DB 39 1 5 くさ 26 O5 :4 さ 
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脅 児玉 良幸 


グラ フ 作 成 と いう の は , な か な か 面倒 な 作業 で す . デー 
タ の 数 が 多けれ ば な お の こと , また , ある 数 式 が どん な グ 
ラフ に な る の か 直感 する の は , 困難 な こと で す . そこ で グ 
ラフ 作成 プロ グラ ム を 作り まし た . 


出 還 旨 計 NIS 


この プロ グラ ム の 特徴 は 。 あら ゆる プロ グラ ム の サ プ ブル 
ー チ ン と し て , 自分 の ほし い 型 の グラ フ が 作成 で きる と い 
う 点 に あり ます . 
選択 型式 は , 表 1 の よう に な り ま す . 
表 1 グラ フ 選 択 
デー タ 様 式 レン 
へ 数 式 


Linear-Linear 








グラ フ の 型 
Linear-ILog 
Log-ILinear 
Log-Log 


使い 方 が わか ら な く て 
は 話 は 始ま ら な い 


引数 に つい て 説明 し ます ( 表 2 参照). 
デー タ の 様式 が 2 通り ある と いう こと を , 先 に 述べ まし 
た が , その 様式 の 与え 方 は , 変数 DA を 使い ます . た と え 
ば , 数 式 で 与え る 場合 は , 
DA 三 2 
と に 朱 お? 
グラ フ の 型 は , 変数 GR で す . タ 座 標 を Linear, Y 座 標 
を Log と 指定 する と き は , 
GR=2 
と な り ま す . Li-Li も Lo-Li も Lo-Lo も 同様 に .。 それ ぞ れ 
の 数 値 を 与え ます . 
座標 の 最小 値 , 最大 値 は .。 それ ぞ れ XMIN, XMAX, Y 
MIN, YMAX を 用 いま す . この と き LOG 座 標 に 関し て は , 
1 x107 ( ヵ は 整数 ) を 用 いて くだ さい . た と えば 
と いう よう に で す 計 ご れ で グラ フ の 型 は 決ま り ま し た . 
次 に デー 災 の 与え 方 で す . 
DA= テ 1 (デー タ ) の と き は , デー タ の 数 を ND に 代入 
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表 2 引数 お よび 数 式 





D A ム ーー データ の 様式 1 フー ジグ 
2 式 
GR 一 グラ フ の 型 1 Linear-Linear 
2 Linear-Log 
3 Log-Linear 
4 Log-Log 
XD ( ) 一 DA テニ 1 の と き の X デ ー タ 
YD ( ) 一 DUA テ 1 の と き の Y デ ー タ 











N DーーーーーD A テ 1 の と き の デ ー タ 数 
XMIN X 座標 最小 値 
XMAX X 座 標 最大 値 
YMIN Y 座 標 最小 値 
TMAX Y 座 標 最 大 値 





DEF FNY (X) =DA= 2 の と き の 式 を 与え る . 











し じ 旭 次 デ デ タ , Y 議 久 を 人 る 密 人 れれ 


XD ( ) = 
AUDI 0WOD 
と いう よう に , ディ メン ジョ ン で 与え ます . 当然 , 最初 に 
DIM YD(ND), XD(ND) を 人 定 言 する 必要 が あり ます . 
DA=2 (数 式 ) の と き は , 式 を 
| DEF FNY (X) = 
で 与え て くだ さい 。 
準備 が で きた ら , GOSUB 10000 で , 自動 的 に 枠 を 描き , 
目盛 を 打ち ます . 


プロ グラ ム を 見 て みよ 
うか 


リス ト 1 が , グラ フ 作 成 サ ブ プルー チン ・ プ ログ ラム で す . 




















ー 


10000 一 10140 
10150 一 10200 


SUBROUTNE の 初期 設定 で す . 

X 座 標 の 目盛 を 計算 に より 適当 に 作り 出 
も まず 。 

Y 座 標 の 目盛 を 計算 に より 適当 に 作り 出 
( ほ 表 す 。 

10150 一 10280 で 決め た 目盛 の デー タ に 従 
っ て グラ フ の 枠 を 作成 し ます . 

デー タ 形 式 の と き の 点 の プロ ッ ト ・ サ プ ブ 
ルー チン 

式 の と き の 点 の プロ ッ ト ・ サ ブル ー チ ン 


10210 一 10280 


10400 一 10520 


15000 一 15090 


16000 一 16110 








20000 一 20140 
22000 一 22130 


linear scale を 作り 出す サブ ルー チン 
1og scale を 作り 出す サブルーチン 





サブルーチン が あっ て 
も メイ ン が な けれ ば 


簡単 な 応用 例 を 示し ます . 
数 式 を グラ フ に する (リス ト 2). 

最も 基本 的 な 使い 方 と し て 数 式 を グラ フ に し て み ま し ょ 
う . 必要 な デー タ を 与え 終わ る と , 画面 に グラ フ を 作成 し 
ます . 

出力 結果 1 一 3 は , DEF FNY(X) =X へ 2 十 Sin(X) 
*10*※ に よっ て ,。 TLi- 本 Li-Lo。 Lo-Lo の グラ フ を 作 
っ た も の で す . 

行 番号 10 を 書き 変 た 0 る こと に より , いろ いろ な 数 式 を 与 
そる こと が で きま す ,。 グラ フ が で きた と ころ で , [mm 空 入 
力 す る と , Hardc 1 が 実行 され [H| を 入力 する と , Hardc2 
が , [上 の 入力 に より プロ グラ ム が 終わ り ま す 
② テ デー タ を キー ボー ド よ り 入 力 す る (リス ト 3). 

説明 は 省き ます . 指示 に 従っ て , 入力 を すれ ば グラ フ が 
で きま す : 





出力 結果 1 


gs=X^21sin(x) きま 1 








OO 
終わ り は 悲し く や っ て 
くる 


この プロ グラ ム を 利用 し て , 私 は 金属 の 内 部 摩擦 の デー 
タ 整 理 を し て いま す ( 出 力 結果 4).、 デー タ か ら 人 各種 の 計算 
を 行なわ せ , デー タ を 外部 記憶 装置 に 送り , 最後 に この プ 
ログ ラム を 利用 し て , 様々 な デー タ の 組み 合わ せ を 呼び 出 
グラ フ に し て いま す . 

この プロ グラ ム は , 少し の 変更 に より , 極座標 に する こ 
と も 可能 で す . 

メイ ン ・ プ ログ ラム と し て は , 計測 装置 か ら の デー タ 読 
み 込 みや ,、 FM-8 の 持っ て いる 4ch ア ナ ロ グ 入力 を 使用 す 
る の も 面白 いで し ょ う . 

最後 に 何かと 助言 を いた だ いた , 研究 室 の 西山 先生 に お 
礼 を 申し あげ ます . 
参考 文献 
F-BASIC 文法 書 





出力 結果 2 








X^21SIRX) き 10 約 











出力 結果 3 





X^24SIN(X) 16 交 





10000 氷水 水 ポ 水 素 氷水 氷水 氷水 氷 ※ 水 氷 氷 ポ 氷 氷 氷 氷 氷 氷 氷水 ※ 水 ※ 氷 氷水 氷 ※ 氷 氷 氷水 水玉 水玉 炎 求 氷水 求 氷 ※ ポ ポポ 


10010 !※ 

10020 『※ 5 い DFOu モ ュ ロ 是 GBRQFH 

10030 "※ 

10040 !※ (by  Y.Rodama) 
1005O0 "※ 


10060. "水玉 玉 氷 氷水 水 水 ※ 水 水玉 玉 玉 玉 来 氷 氷水 ※※ ポ ポポ ポポ ※ 
が 


10090 
101Q0Q0 "main 
10110 IF ZZZZ=1 THEN 1Q1 さ O 


1012O DIM XL(2O) 。X し まま (20) 。YL(2O) 。YL ま (20) 。L(20) 。 し まま (20) 


1013O MIDTH 0。25 

















Ver 1.0 


半 甘 半 甘美 甘 
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(の 


リス ト 1 


10140 CHNSULE OO.255 

10150_ MAX=XMAXiMIN=XMIN 

10160 UN BR GOUSUE 20000』20000。22000。22000 

10170 FOR 1I=Q TO ビー1 

10180 XL(T)=L(TI) 

10190 XL ま (1) = し 生ま (T) 

102OO_NEXT 

10S10 XN= ビ ピー1 

10220 MAX=YMAXs MIN=YNHIN 

10230_HN BR GHSUE SO000。22000. SO000 4 2200O 

10240 FUR 1 エ =O TO ビー1 

1025O_YL (1 ) = し (1 ) 

10260 YL ま (1 ) =L ま (1) 

10270_ NEXT 

1028O_YN= ビ ピー1 

10400 『 

10410 "ma graph 

1042Q " 

10430_ LINE (5O。10) (6280。 180) 。FSET 4。E 

10440 FOR 1=O TO XN 

1045O_ LINE (5Q+XL(T) % 王 70。175) (5Q+XL(T) 70。185) 。 FSET。 4 
1O460_ SYMEL (2O+XL(T) 70。190) 。XL(T) 1。1。7 

10470_NEXT 

104BO_“* 

104909 FOR 1I=O_ TO YN 

1Q05OO LINE (40。1 ヨ 0-YL(1) ※170) 一 (60。 10ー-YL(1) ※170) 。FSET。4 
105510 SYMEUL (10。 17 ロ -YL(T) ※170) 。YL ま ( エ ) 。1。1。7 

1052Q_NEXT 

1053O " 

10540 IF GR= さ ロ R BR=4 THEN XMIN=LHG(XIMIN) /LHG(10) : XMAX=LTG(XMAX) /LUG(10) 
1055QO IF GR=2 HR GR=4 THEN YMIN=LOG(YMIN) /LHG(10) : YMAX=LHG(YMAX) /LHB(10) 
10569 『 

10570_ ロ N Da GOSUE_ 150Q00。16000 

105BQO ZZZZ=1』:RETURN 

10590 『" 

10600 『 

10610 『“ 

1062SO_ 

10630ー『 

15QOQQ_ FOR 1=1 TO ND 

15QQO IF (BR= さ HR GR=4) AND XD(T) ぶ =O_HR (BR=2 HR BR=4) aND YD(T) ミ =0 THEN 1SQ8BQO 
15O10O TIF BR= さ る ロ R GBR=4 THEN X=LUG(XD(1) ) /LUG(10) ELSE X=XDK(1) 
15QSO TIF GR=2 OR GR=4 THEN Y=LOG(YD(T) ) /LHB(10) ELSE Y=YD(1) 
150 さ O XFP=50+570※%(XーXMIN) /(XMQX-XMTN) 

15040  YF=18Qー-170※(YーYMIN) / (YMAX-YNMIN) 

1505O_IF XPP62O_ ロ R XPSBO_ THEN 1508O 

15060 IF YFE1BO_UR YFS10 THEN 1508QO 

15070._。PSEIh ご CXESXE5.e2 

15QOBQO_NEXT 

15O90_RETURN 

151Q9 『* 

は の ) う 

15120 『* 

1 ちち]1 さ Q⑳* 

16Q0QQO_ FR 1T=Q TO 557QO 

16010  X=XMTN+T※(XMXーXMIN) /70 

1602O _ 1F GBR=3 ロ HR GR=4 THEN X1=10FX_ ELSE X1=X 

16030  Y1=FNY(X1 ) 

16035 ITF (BR=2 JR GR=4) QND Y1E=O_THEN 16100 

16040 IF GR=2 UR GR=4 THEN Y=L ロ G(Y1) /LUG(10) ELSE Y=Y1 

1605Q XFP=5Q+ エ 

16060  YF=1 ヨ 0Oー170※(YーYHIN) /(YMXーYHIN) 

16070 ITF XFPE62O_ OR XFPSEO_THEN 16100 

16QBO IF YPS1BO_HR _YFE10 THEN 16100 

1609O PSET (XP。YF。2) 

1610Q_NEXT 

16110 RETURN 

1612SO_ * 

1613O “ 

161409 
1g1509. ? 
SOOQO "5uubFOutin 与 1inear 5 ご a1G 
2O010 
2Q0Q0EO L(O) =Q 











2O0 さ OL (1 ) =1 

20040 上 しま (O) =STR ま (MIN) 

2OQO5O しま (1 ) =SBTR ま (MAX ) 

200609 EE1=INT(LHG (MAX-MIN) /LUG(10) 一 。1) 
20070_M1= ニ INT((MIN/10TE1) 二 1) 氷 10E ド 1 














&O 


リス ト 1 





200BO =2 

2QQ9Q_ FUR ME=M1 TH MAX STEP 10“" ド 1 
2O095 ME=INT(ME/10 で 1+。 王 ) ※10 ド 1 
2QO10O _ し L(C)=(ME-MIN) / (MXーMIN) 
2O110 し L 和 ま (C)=STR ま (IE ) 

2012Q0 = ビ + 1 

2013O_NEXT 

2Q0140_ RETURN 

20 小弓 

2016Q ”" 

9jy70)4 

22000 "5uD1Gutin 1qq 5=ca1 
22010『* 

22020 L(QO) =Q 

220 さ O し (1 ) =1 

22SO040 し 還 (0) =BTR$ ま (MIN) 

2205O 上 第 (1)=STR$ (MaX ) 

22060 ドド 1=LHG (MAX/MIN) /LOG(10) 
22070 ビ =2 

22QOBO FR ME=1/E1 TH 1 STEF 1/E ド 1 
22090_L(C) =IE 

22100 し (E) =STR ま (MIN* ま 10“ (ビー1 ) ) 
22110 = ビ +1 

22120 NEXT 

22130 _ RETURN 





2 で 140 水玉 水玉 求 水 求 水玉 水玉 水 水 玉 ボ 光 玉 水玉 玉水 ※ 水 玉 氷 水 水 素 水 氷 氷 氷 氷 水 水素 水 水 水 水素 炒 玉 ※ 素 水 求 水玉 


22150 ** * 
22160 ** END 1981 年 9 月 7 日 15 晴 56 信 呈 6 * 
22170 『* * 


2 1 昌 HO 水 水 水玉 玉水 炒 米 水玉 水玉 ポ 炒 玉水 洲 ボ 素 水 氷 氷水 氷水 光 ※ 水 水素 氷水 氷水 水 水 水 水 氷水 氷水 水 ※ 水 素 玉 炒 玉 











SEEN 
1 * 
2 "FROGRAI No 1 
4 * 
品 MIDTH B0。SO 
6 CUNSHLE 0O。20。.0。 1 
7 C ロ LOR 4。.09 
B CLS 
10 DEF FNYK(X)= 
20 Da=S 
さき 0 LINE INFUT" の "ラフ / ノ ナマ エ 『。 介 和 
40 1NFUT"xmin = "。XMIN 
0 INFUT リ "mak デリ 。 XX 
60 INFUT"ymin = " リ 。YMIN 
70 INFUT"ymax = ー"。YIAX 
BO INFUT" gr = "。BR 


90_ GHSUE 1Q00Q00 
100Q LOCATE 2040 
11Q FRINT 人 盾 


120 IF INEEY ま =" THEN CLS:END 


130 IF INEEY*$= リ h" THEN HARDC 1 
140 IF INEEY ま ="H" THEN HARDC 全 
15O GOTO 120 









MIDTH 0.25 
20 CHNSHLE OQ。254 0。 1 

3O_CLS 

40 TNPUT" タ "イタ イ ./ テ "ー タ スウ "sN 

5O_DIM XD(N+10) 。YD(N+10) 

60 エ =1 

70 FRINT "(の ETE リ )= リ "リュ gTNPUT "4 XD(I) 
BO_PRINT "y("iTi")= リ "リョ ETNPUTTV。YD(r) 
90 TIF XD(TI)=Q THEN XD(1 ) =XD( エ ー1 ) 
1O0 IF YD(T)=O THEN YD(T )=YD( エ ー1 ) 
110 IF XD(1)=-999 THEN 130 

120 ユエ = エ +1 

125 GOTQ 7Q9 

よさ 0 ENBIUUiTN ジ ー テ "ー タ ドラ ヲ 』 サ オス 
140 IF =2 THEN 2OO 
15QO FRINT 
160 INFUT" 
170 FRINT 
180 GUDTO 70 
2QO_ND=1 
10 INFUT"Xmin = リ 。XMIN 
22O0 INPUT "Xmax 
230 TINFUT"Ymin 
240 INFUT"Ymaz 
250 INFUT "gr=! 
260 Da=1 

270 BUSUE 100QO 

280 IF INEEY ま も ="h" THEN HaRDC1 
290 IF INEEY ま ="H" THEN HaRDC2 
さ 0O IF INEEY ま = リリ! THEN 210 
BOTO 2BO 


マー ニュ ウリ ョ ウ ワリ 


1="』I 






























"sa 
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@ グ ラン の 存 成 と べ ん り 婦 … 





AutO PloOt 





Auto Plot は グラ フ 作 成 用 プロ グラ ム で す . 画面 を グラ フ 
表示 領域 と , グラ フ の 仕様 を 入力 する 領域 と に 分 か れ て い 
る の で , グラ フ の 仕様 。 デー タ の 変更 が 容易 で す . また , 
1 つの グラ フ に 数 種類 の デー タ を 表示 し て 比較 する こと が 
可能 で す . 非常 に 使い や すく な っ て いる の で , どん どん 使 
っ て みて く 〈 く ださい.。 


プロ グラ ム の 読 明 





本 プロ グラ ム の フロ ー チ ャ ー ト を 図 1 に 示し ます . 
図 1 


較 岡 田 皇 三 





各 プ ロック の 内 容 を 説明 し ます . 
に 】 = 間 上 
グラ フ の 仕様 を 決め ます . カー ソル 移動 キー で 編集 し ます . 


. MIN 丈 : 
.。 MAX 叉 : 
。MIN YY: 
. MAX Y: 


PHO4 SPEC 

LINE(1 一 3) : プロ ッ ト す る デー タ の 線 の 種類 . 
1 … 実 線 、 2 , 3 … 間 隔 の 異な る 破 

X 軸 の 最小 値 

X 軸 の 最大 値 

Y 軸 の 最小 値 

Y 軸 の 最大 値 

AXES SPEC. 








(19t Sms 3:wrsw 4 SPlot 650S 7:Cms 8:Ed ) Fit aw ie 
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1 は きき 3 を 3 回 1 


&O 


1 . X LABEL : X 軸 の 目盛 の 数 値 を 表示 する 間隔 . CLS 
2 . X TICS : XLABEL を 分 割 す る 最小 単位 の 長き . 480x180 の グラ フ 表 示 領 域 を 消去 し ます . 
3 . Y LABEL : X の それ と 同じ . 
4 YUDIGSSX の の 国民 。 480 メ 180 の グラ フ 表 示 領 域 の ハー ド ・ コ ピー を プリ ンタ 
⑲. PLOT OPTION に 出力 し ます . 
1 . POINT : プロ ッ ト す る デー タ の 数 . 
2 . GRID(0 一 1) : 1 で X, Y の LABEL の 交点 を 表示 . NT5) 
⑮. TEXT OPTION プロ グラ ム の 終了 . 
1 . SIZE : K@WESYE】 で 書き 込む 文字 の 大 き さ , 8 ドッ 
ト 単位 . 


2 . ANGLE : 文字 を 回 転 す る 角度 を 示す . 入力 する 数 値 
は 0 一 3 です. カー ソル 移動 KEY で 編集 し ます . 








の 仕様 に し た が い , グラ フ の わく を 表示 し ます . 

GRAPHIC CURSOR を 動か し て 文字 を 書き 込ん を だり この プロ グラ ム の 使い 方 は と くに 難 か し く な いと 思い 
(SET). 消去 し た り (RESET) する の に 使い ます . ます . プロ グラ ム を RUN さ せれ ば 自然 に 解り ます . この 
RNN 人 も ee COPY を の ぞい て 

LO の かー グ 2035 議 Y 人 上 な ジブリ (し まり すら > それ ほど 実効 速度 は 気 に な ら な いと 思い ます . し か し , C 
“0 "一 "9 "が 有効 で , 最大 5 文字 まで で す . な お , 入力 は OP Y の 実効 時 間 約 15 分 と 2 今後 機械 語 に 直し て 
左 づ めで 入力 し て くだ さい . カー ソル 移動 キー で 編集 し ま 実効 速度 を あげ る 必要 が ある と 思い ます . な お , 私 の プリ 
す 、 ・ 前 の デー タ 表示 ., : 次 の デー タ 表 示 . ンタ は エプソン の MP-80 K な の で , 他 の プリ ンタ を 使っ 
て お られ る か た は プロ グラ ム を 少し 変更 する 必要 が ある か 

愉 江 交 に じ だ が 六 汽 だ デー タ を PLOT じ ます 。 も し れ ま せん . 


Auto Plot BASIC プロ グラム ・ リス ト EE 還 還 EE 








1000 「 ポ 水 水玉 水 水 水 水 水 水 水 水 水玉 水 水 水 ※ 涼 水玉 水玉 洲 水 水 求 水 水 水玉 水 水 水 水 水 水 氷水 水 水 水 水 水 水 ボ 水 水 玉水 水 水 氷水 水 水 水 水 水 水 水 水 水 ポ 水 水 氷水 水 氷水 


1002 "ポポ 氷水 ※ 水 ※ 水 涼 ※ 
1004 ポポ ポポ ※ 人 UTU FLOT し る すす る 1 
1006 "ポポ 氷水 By Kozo OUEAaDA し も る すす 
100 日 " 水 水 氷水 ※ ポ 光 ポポ 


1010 ポポ 水 水 水 水 水 氷水 水 水 水 水 水 水 水 氷水 氷水 氷水 水 水 水 水 水 水 水 氷 氷水 水 氷水 水 氷水 氷 氷水 水 水 水 水 水 水 水 水 氷 氷水 氷水 水 水 水 氷 氷水 水 ボ ポポ 水 水 氷水 水 水 氷 氷 ※ 
1012 CLEAR SOOQO 
1014 MIDTH 0。2 ロ g メニ フロ: Y=1 : XD=14:N=1 : GXO=230』 BYO=100』 CUNSHLE24。 1 
1016 FOURKE %&H1E さ 。 OiPURE %HFDOO。&H40 
1018 UPEN "0 』。#2。"LPTOs " 
1020 DIM PAR$(7。 19) 。 SUM ま (19) 。DT 和 まま (50O。 10) 。DX ま (5O) 。DY ま (5O) ,DX (5O) 。 DY (50) ,BX( 人 2) 
1022 DEF FNX(X) =40+((XG- 40) \NX ) XX: DEF FNY(Y) =160-((160 一 YB) \NY) XY 
1024 DEF FNFX(X) =40+INT((XGー-40) / (MAX-MIX) *※(DX(X) MIX) ) 
1026 DEF FNPY(X) =160-INT((160-YG) / (MAY-MIY) *(DY(X) --MIY) ) 
102B DEF FNM(X)=(FY(X+1) PFYKX) ) / (PX(X+1) 一 FX(X) ) 
1030 DEF FNDPY(K。 1)=PY( エ )+TNT(( ド ーPX(T) )※(PY( エ +1 ) 一 PY(i) ) / (PX( エ +1) 一 PX (1) ) ) 
1032 DEF FNDFX(K。T) =FX(T)+INT((K ド -ーPY(1).) ※(PX( エ +1) 一 PX(T) ) /(FY( エ +1 ) PFY(1) ) ) 
10 さ 4 DEF FNPX1(X)=40+INT((X ロ ー40) / (MAXーMTX)*※(XーNMIX) ) 
1036 DEF FNPY1(X)=160-INT((160-YB) / (MY-ーMTY)*(XーMIY) ) 
103B AZ(O) ニー ワ 2 ロ 2X( 1 ) =B064 
1040 3 ん (0) =25 昌 64 : さん (1 ) =20 さ 52 
1042 4X(O)=ー1971: 4X(1 ) =ー2BBQ0O 
1044 5Z(O) = ニー1922 3 人 (1 ) =B064 
1046 6X( ひ )=64 日 さ 』 6 ん ( 1 ) ニー さ 968 
1048 7Z(D) ニー ワ 62』 7X(1) =B064 
1050 ABX(O) =ー961 : ABX( 1 ) =B064 
1052 AX(O) = ニー5 弓 6』 9X(1) =17408 
1054 人 10%(O) ニーヨ 97』 合 10 ん (1 ) =B064 
1056 人 Q11 ん (0O) = ニーB9 昌 』 人 11 ん (1 ) =B064 
1058 A1X(O)=0:Q1Z(1 ) =512: # 
1060 AOZX(O) =62』 OX(1 ) =0s と 
1062 LINES(480.0) (480。 1 ヨ 0) 。 FSET, さ 。B 
1064 LINES(O。1 ヨ 0) 一 (6③9。 18o) PSET 。 さ 。 Bs CHLOR 4 
1066 LUCATE61 。0s PRTNT"a。 PLOT SFEC・ 
1Q068 LUCATE6 さ 。 1 sPRINT "1。LTNE (1 一 う ) 『" 
107O LCATE6 さ 。 2 PRTNT"2.MIN X『 
1Q072 LHCATE6 さ 。 さ PRTNT " さ 。 MAX X" 
1074 LUCATE6 さ 。 4:FRINT "4。MIN Y" 
1076 LUCATE6 さ 。5sFRINT "5.MAX Y" 
1078 LUCATE61 。7』FRINT"B。 人 AXES SPEC。" 
1Q08Q0_ LHCATE6 さ 。 日 gPRINT"1.X LABEL" 
1082 LHCATE6 さ 。9sFRINT "2.X TICS " 
1084 LHCATE6 さ 。10gPRTNT" さ 、Y LABEL" 
1086 LUCATE6 さ 。11:FRINT"4。Y TICS" 
1088B_ LUCATE61 。 1 さ :FRINT"C。 FLHT ロ FTION" 





E。]1 
| 
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1090 LUCATE6 さ 。 14:』PFRINT" 1.FUINT" 


1092 LHCATE6 さ 。 15:PRINT "B.BRID(O-1) " 

1094 LUCATE61』17:FRINT"D. TEXT UPTION" 

1096 LHCATE6 さ 。18:FRINT "1.SIZE "! 

1098B LUCATE6 さ 』。 19:FRINT "2 . 人 NBLE " 

110Q0 SYMBHL (SQO』 20) 。 "AUTO 。 9 6。6。0。FSET 

1102 SYMBOL(122490) 。 "FLHT"。9。6。6。0。FSET: CULOR 7 

1104 LHCATEQ。24sFRINT"[ 1:SBet 2zaxe= さ zsBcursor 4:Data SsF1ot 6iCLS 7iCapy 
BsEnd ]3 "5 

1106 ”? 

1108 『" COMMAND 

もみ 4O 

1112 SYMBOL (55Q。 192) 。 "Hit any Key"』1。1.5 

1114 CM ま =INPUT ま (1) 』 ITF CM まく "10 OR CM まり BU THEN 1114 

1116 CM=VaL (CM ま ) : SYMBOUL (55Q。 192) 。 "Hi モ any Key"。1。1.Oi ロ N CM GSUB 1120.122 日 。 1 さ 20。 
1 さ 62 1464.1560。 15 さ 0 。 1568 

1118 GT 1104 

3120 編 

2 の 2 SET 

1124 ? 

1126 SYMBOL (SO4。16B) 。" リ Hit E(End) "1。1.5 

112B LUCATE X。』 Yi 1X=Xー74』 TY=Yi GBHSUE 1156 

1130 IN も =INPUT ま (1 ) : TIN=ASC(TN$) 

1 1 さ 2 ITF (IN まく = リ 90ANDTN ま も > ら ="0")UR (TIN ま ="。" HUR TIN$=CHR ま (SH2QO) ) HUR TIN ま $= リ ー" THEN SYME 
ロ L (BXX。B*Y) 。 CHR ま (&HB7) 。 1 。 1 。0: SYMBHL (BKXX。 ヨ XY) 。 IN ま も 。1。1:PAR 和 まま (TX。 1TY)=IN ま も : GHSUB 1170: 

BOTQ 112 昌 

1134 1F 1N>=2 日 AND IN<= さ 1 THEN SYMBUL (BKX。 日 XY) 。 CHR ま (SHB7) 。 1 。 1 。 。 』。XUR:HN IN-27 GOS 
UB 1168。1184。1200』。1216』 BOT 1128 * 

1 136 IF IN ま ="E!" THEN SYMBOL (BKX。 ヨ XY) 。 CHR ま (8&HB7) 。 1 。 1 。 。 。XHR SYMBOL (504 168) 。"Hit E 
(End) "。1。1.0:BHSUB 1146: GBDSUE 114:RETURN 

113 BUSUB 1162』GOTO 1128 

1140 ” 

1142 ? GET CHARACTER 

1144 * 

1146 SUM ま (TY)="0gFHR TX=1 TH 曲 :SUM ま (TY) =SUM ま (TY) +FAR ま (TX。TY) : NEXT: RETURN 

114B LT=VaL (SUM$ も (1 ) ) :MIX=VQL (SUM ま (2) ) : MAX=VAL (SUM ま ( さ ) ) : MIY=VaAL (SUM ま (4) ) 

115O_MAY=VaAL (SUM ま ( 呈 ) ) : XL=VAL (SUM ま (日 ) ) : XT=VAL (SUM ま (9) ) : YL=VQL (SUM ま (10) ) 

1152 YT=VAL (SUM$( 1 1 ) ) = FT=VQL (SUM ま (14) ) : DG=VQL (SUM ま (1 王 ) ) : BT=VQL (SUM ま (1 日 ) ) 

1154 QAN=VaL (SUM ま (19) ) : RETURN 

1186 

11S8 ”" FRINT 

116Q ? 

1162 SYMBHUL (BKXX。 XY) , CHR ま (SHB7 ) 。 1 。 1 。 。 。 XUR : RETURN 

1164 " 

16@i 。* MOVE_ RIGHT 

1168B * 

1170 DN Y G ロ TH 1172。1172。1172。1172。1174。117 日 。117 日 。1172。1172。1172.1174.1178。117 日 。 
1172。1174。117 昌 。 117B。 1172。1176 

1172 ITF X=79 THEN GOSUE 1146』Y=Y+1 =』 X=7 昌 :RETURN ELSE X=X+1:RETURN 

1174 IF X=79 THEN GOSUE 1146』 Y=Y+ さ : X= ニ 75: RETURN ELSE X=X+1』RETURN 

1176 IF X=79 THEN BOBUB 1146:Y=1 =: X=7 王 : RETURN ELSE X= ニ X+1 

1178 RETURN 

11 ヨ 0 " 


1182 * MVE LEFT 
1184 ” 


1186 ロ N Y G ロ TO 11 ヨ 。1190。1190。1190。1190。1194。1194。1192.1190。1190。1190。1194。1194。 
1 192。1190。 1194。1194。1192。119O0 

118B ITF X=75 THEN GUSUB 1146』 Y=19』 X= ニ 79: RETURN ELSE X=Xー1:』RETURN 

1190 ITF X=75 THEN GOSUB 1146』Y=Yー1 : X= ニ 79:RETURN ELSE X= ニ Xー1:RETURN 

1 192 ITF X=75 THEN GUSUB 1146』 Y=Yー さ : X= ニ 79: RETURN ELSE X=Xー1 

1194 RETURN 

1196 ”? 

9 日 < MVE UP 

1200 ”" 

1202 ON Y BTO 1204。1206』。1206。 1206』1206』。1210。1210。1208。 1206』1206。1206』1210。1210。 
120 昌 。 1206,。1210。1210。120 日 。 1206 

1204 BUSUB 1146:』Y=19:』 X=75: RETURN 

1206 BUSUB 1146』Y=Yー1 : X= ニ 75: RETURN 

1208 GOUSUB 1146: Y=Yー さ = メニ 75: RETURN 

1210 RETURN 

2 ルー 

1214 " MVE DQMN 

1216 ” 

121 日 UN Y G ロ TO 1220。1220.1220。 1220。 1222。 1226。1226。1220。1220。1220」 122。 12 つら 6。 12 ぞ 6。 
1220。 1222。 1226。 1226。 1220。1224 

1220 GUSUB 1146:Y=Y+1 : メニ 75: RETURN 

1222 GUSUB 1 146:Y=Y+ さ = X=75: RETURN 

1224 BHSUB 1146』Y=1 : メ = フロ 

1226 RETURN 

1228 ! 
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123O * AXES 

1252. 1 

1234 NX=INT((MAX-MTX) /XT) =: NY=INT((MQY-MIY) /YT) : MX=INT(XL/XT) : MY=INT(YL/YT) 
12 さ 6 XG=462ー(422 MDD NX) :YB=1+(159 MHD NY) :LINES(40。160)-(XG。YG) 。FSET 。 ア 。 BE 
123B FUR KY=1 TO NYiYL1=FNY(KY) 』 IF KY MHD MY=QO THEN LINE(4Q。YL1) 一 (46。YL1) 。FSET。 ア 
ELSE LINE(40』YL1) 一 (4 さ 。YL1 ) 。 FPSET。 フ 

1240 NEXT ERY 

1242 FUR KX=1 TH NX :XL1=FNX(KX): IF KX MHD MX=O THEN LINE(XL1 。15 フ 7) 一 (XL1 。160) 。FG 
ET,。7 ELSE LINE(XL1。15 ヨ ) -(XL1。160) 。 FPSET。 ア 

1244 NEXT KX 

1246 IF DG=O THEN GO TO 1254 

124B FR KX=MX TH NX STEF_ MXiXL1=FNX(KX) :gFHR KY=MY TO NY STEPF_MY:zYL1=FNY(EY) 
1250 PSETIGXB128YEBL/Z) 

1252 NEXT RY,EX 

1254 『" 

1256 『" LAEBEL 

の 日 

1260 QAYO=162i QRY1=166 

1262 FHR J=MIX TH MAX STEP XL:IF BS(J) ミ .QOQOOQ1 THEN J=Q 

1264 IF MID$ も (STR ま (JJ) 。1)="! THEN XL ま =MID ま (STR ま ( ゴ ) 。2) ELSE XL ま =STR ま (J) 

1266 CN=LEN(XL 和 も) : CND=CN\2g XL1= ニ FNPX 1 (J) 

126B FOR I=O TO CN-1 

1270 QAXQ=XL1-7%CND+ フ ※ エ ェ 人 X1 ニ 人 QXO+ 和 4 

1272 CX$=MTD$(XL ま 。 エ +1 ) : CX= ニ SC (CX まま) : CNX= ビ Xー44: ITF CNXXO_ GO TO 1276 

1274 HN CNX GUSUE 1294。1296。 1 くさ 1 日 。 1298。1 さ QO。 1 さ 02。 1 さ 04 。 1 さ O6。 1 さ 0B。 1 さ 10。1 さ 12。 1 さ 14。1 さ 
16 

1276 NEXT 1.J 

1278 FR J=MIY TO MAY BTEF YLiIF BS(J) ぶ 。QOQOQO1 THEN J=QO 

12BO IF MID ま (STR ま (J) 。1)=""! THEN YL$=MTD$ も (STR ま (J) 。2) ELSE YL ま =STR ま () 

1282 CN1=LEN(YL も ) :YL1=FNFY1 (J) 

12B4 FR 1=O TO CN1-1 

126 QYQ=YL1-4: QY1=YL 1 : XO= ニ さ ヨ ー7*※ じ CN1+ キ 7 アポ 1 エ = 仁和 RXO+4 

128B CY ま =MTID ま も (YL ま 。 エ +1 ) : CY=ASC(CY ま ) : CNY= ビ Y-ー44: IF CNYXO_ GO TO 1292 

1290 ロ N CNY GUSUE 1294。1296。1 さ 1 日 , 129 コ 。 13 さ OO。 1 さ OS。 1 さ 04 。 1 さ 0O6。 1308。 1310。1 さ 1 1 さ 14。13 
16 

1292 NEXT 1.JiRETURN 

1294 FUTS(QXO。RYO) 一 (AX1.QY1) 。Q0Z。 PSET 。7: RETURN 

1296 FUTS (AXO。QYO) (AX1.Y1) 。A1X。FSET。7:RETURN 

129B_ FUTS(QXQO。 人 YO) (AX1.QY1) 。 2Z。FSET。7:RETURN 

13 さ OO_ FUTD(AXO。QYO) (人 QX1。AY1) 。 3X。 PBET。 7:RETURN 

1 さ 302 FUTS(AXO。AYO) (AX1。QY1) , 人 4 ん 7。FSET 。 7 RETURN 

1304 FUT9 (AXO。AYO) 一 (AX1.QY1) 。R5X。 PSET。7:RETURN 

1 さ Q6 FUTD(AXO。RYO) 一 (AX1.QY1) 。Q6X。FSET 。7: RETURN 

1 さ OB_ FUTS(AXO。QYO) 一 (AX1.QY1) 。 7,。FSET 。 7: RETURN 

1 さ 1Q FUTS(QAXO。QYO)-(QX1。QY1) .。 QBZ。 PSET 。 7 RETURN 

1312 PUTS(QXO。RYO) 一 (AX1.QY1) ,。Q9X。PSET 。 7 RETURN 

1 さ 14 PUTS(AXO。QYO) 一 (AX1。QY1) 。R10XZ。PSET 。 7 RETURN 

1 さ 16 FUTS(AXO。 人 YO) 一 (AX1。QY1) 。Q11X。PSET, 7 

1 さ 18 RETURN 

1 さ 20』? 

22 GCURSQR 

1324 " 

1326 FRINT 

1 さ 28 FRINTiLUCATEO。24:FRINT "[ 1: Bet 2: Reset さ 』 End  ]"s 

1 ささ O SYMBOL (256。 192) 。 "Hit any Rey"。1.1。5 

1 ささ 2 GC ま =INFUT ま (1 ) : IF GC ま ぐ く "10 ロ R BC まかり さり THEN 1 ささ 2ELSE GC=VaL (BC ま ) 

1 ささ 4 IF BC= さ THEN RETURN 

1 ささ 6 ロ N GC GBHSUE 1 ささ 8B,135O』 GO TO 1 さ 2 

SS 日 

1340 『" SET 

1342 ? 

1 さ 44 SYMBOL (256。 192) 。 "Hi モ any Rey"。1。1.0:LUCRTE さ 2 。 24:.INPUT "Text ーー ジリ 。TX 還 
1 さ 46 FRINT "Bet モ th on COordianate"s 

1 さ 48 BCURSUR(BXQ』 BYO) 。 (BX』。 BY) 。6: SYMEHL (BX』 BY ) ,。TX ま 。 SB1.。S1。7,QN。 FPSET: TX=LEN(TX も ) 』 BX 
0=GX-ー 昌 TX*X (QRN=O) +T 昌 TXX (AN=2) : BYO=GY+ 昌 TX※(QN=1 ) TX※ (人 N= さ ) : RETURN 

1 さ 35O ? 

SS の RESET 

1354 * 

1356 SYMBL (256。 192) 。 "Hi モ any Key"。1。1.0 

135B GCURSUR (BXO。 BYO) 。(BX,BY) 。6: SYMBOL (BX 。 BY ) 。 CHR ま (SHB7) 。S1.S1.。O。QN。 PSET : GXO= ロ Xー 
B* (QN=QO ) + ヨ * (人 RN= さ ) : GYO=GYー ヨ * (人 N=2 ) + 日 *※(QN=4 ) 

1 さ 6O RETURN 








1362 

1364 * DaTA 

1366 『" 

136B FRINT 

137Q0 COLOR 4:PRINT " NOs X= Y= "agCEHLUR 7:N ま =STR ま (N) 


1 さ フ 2 SYMBOL (5O4。192) 。"Hi モ E(End) "。1。1 
1374 SYMBOL ( さ 2。192) 。N$。1。1。 プ ェ SYMEDL(112。192) 。 DX まま (N) 。1。1。7 ェ SYMEDL (208。192) 。 DY*(N) 
ト  』 5 
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1 さ 376 LUCATE XD.24: BUSUB 140 昌 : DQ ま =INPUT ま (1 ) : Da=QSC (DR まま ) 

1 さ 37 日 IF (Da まぐ ="90 AND DQ も >= リ 0") HR (DR ま ="。"UR (DR も = リー" HR DR ま =CHR ま (&H2O) ) ) THEN 
SYMEBOL (BKXD。192) 。CHR ま (HB7) 。 1 。 1 40: SYMBUL (BKXD,。 192) 。DQ ま 。 1 1: TXD=(1 さ ーXD) *(XDX2O)+( 
20-XD)%(XD>2O) :DT 和 まま (N。 TXD) =DQ 和 まま : GHSUE 1416:GH TO 1376 

1 さ BO IF DA>=2B AND DK= さ 1 THEN SYMEOL (BKXXD』192) 。CHR$ (SHB7) 。 1 。 1 。 。』XHRs HN DA-27 GO 
SUB 1416。14 さ 0O。1444』1454: GU TO 1376 

13B2 IF DA=69 THEN SYMBOL (BKXD。 192) 。EHR ま (SHB7 ) 。 1 。 1 。 。 』 XURE BUSUE 13B6』LUCATEO。24sF 
RINT: RETURN 

1 さ B4 BUSUB 1414:GH TO 1 さ 76 





13B6 

13BB 『" BET CHARACTER 

1390 ? 

13 さ 92 DX$(N)=""gFHR 1=1 TO ロ : DX 生ま (N) =DX ま (N) +DT ま (N。 1) : NEXT: DX (N) =VQL (DX ま (N) ) 


1394 IF DX(N) >MAX THEN DX(N) =MAX 

1 さ 96 IF DX(N) く MIX THEN DX(N) =MIX 

1 さ 9 DY ま (N)="":FUR エ =6 T ロ 10:DY ま (N) =DY ま (N) +DT ま (N。 1 ) :NEXT: DY (N) =VAL (DY ま (N) ) 
14QO IF DY(N) >MAY THEN DY(N) =MaY 

1402 IF DY(N) く MIY THEN DY(N) =MIY 

1404 LINE ( さ 2。192) 一 (64。199) 。PSET 0Q。BFsLTNE (112。192) 一 (152, 199) 。FSET 。 0。BF: LINE (20。 
192) 一 (24B。 199) 。PSET 。 0。BF 

1406 RETURN 

1408 ”" 

1410 " FRINT(2) 

1412 > 

1414 SYMBOL (BKXD。 192) 。CHR$(&HB7) 。 1 。 1 。 。 。 XR : RETURN 

1416 ” 

141 * MOVE_ RIGHT( ら ) 

1420 * 

1422 IF XD=1 昌 THEN XD=26: RETURN 

1424 IF XD= さ O THEN XD=14:BDSUB 1454:RETURN 

1426 TF (XD>=14 AND XD<1 昌 ) UR (XD>=6 ND XD< さ O) THEN XD=XD+1 
142 コ RETURN ゃ 

1430 * 

1432 ! MVE LEFT(2) 

1434 " 

14 さ 6 IF (XD>14 AND XD<=1B) ロ R (XD:S6RND XDX= さ Q) THEN XD=XD-1:RETURN 
14 さ B IF XD=14 THEN XD= さ 0O:GHSUB 1444:RETURN 

1440 1F XD=26 THEN XD=18 

144 人 2 RETURN 

1444 * 

1446 『 EACK 

144 * 

145O BUSUER 1 さ B6:N=N-1 一 (N=1 ) : N$=STR ま (N) 

1452 SYHBOL ( さ 2。 192) 。N$。 1 。1。7: SYMBUL (113。192) 。DX$(N) 。 1 。1 7: SYMBOL (20B。 192) , DY ま (N) 
ュ 1。1。7: XD=14: RETURN 

1454 ” 

1456 * NEXT 

1458 ” 

1460 BUSUB 1 さ B6:N=N+1 : N$=STR$(N) 

1462 SYMBOL (さら 。 192) 。N$。 1 1.7: SYMBOL ( 112 192) 、DX ま (N) 。 1 。1。7: SYMEDL (20B。 19S) 。DY ま (N) 
。1 1 7: XD=14:RETURN 

1464 ” 

1466 『 FL ロ T 

146 昌 

1470 FOR 1=1 TU PT:FX(1)=FNPX(1) :FY(1) =FNFY(1 ) : NEXT 

1472 * 

1474 ” SORT 

1476 ”" 

147B 1K=FT 

148O 1T ド =INT((TK+1 ) /2) : =FTー1 に 

14B2 FOR 1=1 TO 8:J=I: IF PX(T)<=PX( エ +TE) THEN 1492 

1484 SMAF FX(J) 。PX (J+TK) : GMAF PFY(J) 。FY (J+T ド に) 

14B6 IF (J-I に ) ぐ 1 THEN 1492 

148B IF FX(J-IRK) バ =FX(J) THEN 1492 

1490 =JーIK:GH TO 144:NEXT 





1722 NEXT 

1494 1F 1IRX>1 THEN 148O 
1496 ”? 

149 " FL ロ T SUB 
15O0O ” 


15Q2 UN LT GSUB 1506。 1508。 1518 

1S04 RETURN 

1506 FOUR TFPF=1 TH PT-1:CUNNECT(FX(IF) 。FY(IFP) ) (FX(TF+1 ) 。FY(TF+1 ) ) 。7: NEXT: RETURN 
15OB FOUR TP=1 TO PT-1 

151O IF FNM(TP) ぶ =1 AND FNM(IF) = テー1 THEN FUHR KF=FX(IFP) TH FX(IF+1 ) - STEF 10』CHNN 
ECT(KP。FNDPY (KP 。 TP) ) -(KP+ さ 。 FNDPY (KP+ さ 。 TP) ) 。7: NEXT KP 

1512 IF FNM(IP) 1 THEN FHR KEF=FY(IF) TH FY(1F+1) - 王 STEF 10』 CHNNECT(FNDFX(EF。』 TFP) 。 
KP)-(FNDPX (KP+ さ 。 TP) 。 ド F+ さ ) 。 7s NEXT EKP 

1514 IF FNM(IP) マ ー1 THEN FR KF=PY(IF) TO PY(1IF+1)+ 呈 STEF 一 10』CHNNECT (FNDFPX ( ド PF。 TP 








』&O 


Auto Plot BASIC プ ログ ラム ・ リ スト 


) ,KP) (FNDPX (KPー さ 。 TP ) 。 ド Pー3) 。7s NEXT KP 


1516 NEXT IP:iRETURN 

151H FUR IP=1 TO PT-1 

1520 IF FNM(IP) ヾ =1 RND FNM(TF) >=ー1 THEN FUHR に KP=FX(TF) TU PX(TF+1 ) - BTEF 1 CUNN 
ECT(KP。FNDPY(KP。 TP ) ) -(KP+7。FNDPY(KP+7。 TP) ) 。7』NEXT KF 

15S22 IF FNM(IP) >1 THEN FOR _KF=PY(IP) TH FY(1IP+1 ) 5 STEF 1 CHNNECT(FNDFX(KF 。 IF) 。 
KP) (FNDPX (KP+7。 TP) 。KP+7 ) 。 7s NEXT KP 

1524 IF FNM(IP)<-1 THEN FUR KP=PY(IF) TH PFPY(IF+1)+5 STEPF -15: CHNNECT(FNDFX (KRP 。TF 
) ,KP) 一 (FNDPX (KPー7。 TP ) 。 KP-7) 。 7s NEXT KP 

1526 NEXT 1PiRETURN 





1528 ? 
153O ? SUB HARD COPY ( 2 ) 
1532 ? DUT REGIUN 472*179 
1534 *? 


1536 PRTINT 2。EHR ま (&H1B) 4 "TV ュ EHR ま も (24 ) 
153B PRINT #2,CHR$(&H1B) 』 "2 リュ 

1540 FHR 1I=O TO 472 STEF 8 

1542 PRINT 音 2。CHR ま (&H1B) 3 "KW 

1544 PRTNT ##2。EHR ま (SH6B) 』 CHR$(&H1 ) 』 
1546 FUR J=179 TO O STEF -1 

154B BETS(T。 ゴ ) 一 ( エ + ブ 7。』J) 。GZ』 は 。 フ 

155SO_D ロ =GX(O) \256 aQND 255 

1552 FRINT #2。CHR ま (DO ロ ) 』 CHR ま (D ロ ) 

15S54 NEXT J 


1556 PRINT 韻 2。CHR ま (&HD) : CHR ま (Ha) 』 
15SSB_NEXT TsRETURN 
156Q 
1562 『 CLS 
1564 
1566 LINES(0』O) 一 (479。179) 。FSET。O。BF :RETURN 1104 
1568 ” 
1570 * END 
25225 4 
1574 MIDTH 0.25 
1576 END 
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: で き あ が っ た プロ グラ ム を フロ ー チ ャ ー ト に し て 整理 : 
: すれ ば , プロ グラ ム の 内 容 の 表示 , 改良 , プロ グラ ム の : 


: 追加 な ど に 非常 に 便利 で す . また , 他人 か ら 貰 っ た プロ 
: グラ ム の 内 容 を 調べ た りす る と き に も , フロ ー チ ャ ー ト 


: が あれ ば 役に立ち ます . し か し , プロ グラ ム と 1 対 1 に : 


: 対応 する フロ ー チ ャ ー ト を 手 で 書く の は 大 変 で す . そこ 


: で , フロ ー チ ャ ー ト を 自動 的 に 作成 する プロ グラ ム を 作 : 


っ て み ま し た . 例 と し て フロ ー チ ャ ー ト ・ ジ ェ ネ レー タ 
自身 の メイ ン ・ プ ログ ラム を フロ ー チ ャ ー ト に し て み ま 
し た ( 図 1). 


始め に フロ ー チ ャ ー ト に し て みた い プ ログ ラム を ASC 
II で セー ブ し ます . コマ ンド は SAVE パプ ログ ラム 名 7?。 
A です. フロ ー チ ャ ー ト ジェ ネ レ ー タ を 走ら せ , 先 の テ 
ー プ を カセ ッ ト に セッ ト し , フロ ー チ ャ ー ト に し た い 始 め 
の 行 , 終り の 行 、 プロ グラ ム 名 を 順次 入力 し , も う 一 度 , 
[RETURN| キ ー を 押す と テー プ が 回 り 出 し , 飛び 先 の チェ 
ッ ク が 行なわ れ ま す . 

表示 され て いる 数 字 は 行 番号 を 表わし て いま す . 次 に , 
Draw チ ェ ッ ク が 行なわ れ , 線 が か ち 合 っ て いな いか , な ど 
の 処理 が 行なわ れ ま す . さら に , [RETURN| ネー を 押し , テ 
ー プ を も う 一 度 読 ませ る と 順次 フロ ー チ ャ ー ト が プリ ンタ 
か ら で て きま す . 


ヲ 回 ダグ ヲ ム 居 つ で 


プリ ンタ が な い 場 合 は , 表示 文字 数 を 80 桁 に し て , 40 行 
の ELP TO 人 條 を 人 NAS'GTRNS/m ビ まう 9852Z り リ ジ タ 測 
力 の 部 分 は 1 文字 で も 間違う と 図 が ずれ て し まい ます . 70 
10 行 に スケ ー ル を 付け まし た . 1210 行 , その 他 の 所 の ^… 
.02 十 .02…” を ヾ 十 .04?” に 変え る と , Draw チ ェ ッ ク が 動 
きま せん . 

この プロ グラ ム は FM-8 の プロ グラ ム を , すべ て の ケー 
スロ ー チ ャ ー ド に 変換 じ ま : お 。 ただし,。 図 2 の よう な 
場合 は 2 番目 の NEXT 文 に つい て は 線 を 引き ませ ん . ま 
た だ た, プログ ラム と し て 走ら な いも の に つい て は エラ ー ス ト 
ッ プ する ご と も あり ます . 


ま 誠 


プロ グラ ム が 非常 に 長い 場合 は , Draw チ ェ ッ ク に 時 間 
が か か り ま す が , 半分 ずつ に 分 割 す れ ば お よそ 4 分 の 1 に 
な り ま す . 適当 な サブ ルー チン ご と に 処理 され る こと を お 
勧め し ます . 

表 1 
プロ グラ ム の 内 容 | 
MAIN 
文 解析 
IF 女 
GOTO 文 


STOP 壇 
ONERROR 文 
ON GOTO 支 
Draw チ ェ ッ ク 





どど どら どら どら の 











メル ポポ ネ ポポ ポポ 氷 氷水 氷水 氷水 氷 氷水 氷水 
10 。.※ 7MaIN FROG ※ 
2O 。.※ CLEAR1OOQOO ※ 
さ Q 。。K DIMJUMP( さ OO さ ) 。STACK( ※ 
※ 50) 。 STACEK 和 ま (5Q) 。LN(5 ※ 
* Q) 。JT(100) *※ 
40 。.* UPEN"O" 。 間 1."LPTOs 3 
コ 0 。。*※ PRINT 提 1 。 CHR* (&H1 日 ) : PO 
60 の TNPUT"START LINE NO " 
7 の 。』* TNEUTEND LINE NO "4E * 
BO ..※ INPUT "PRHBRAM NAME "。 ※ 
* FN まま * 
0 。。※ FUHR PASS=1 TO2 ネ 
100 。。* ま SF=10s * 
* FL ニ Qs も 3 


122 


110 


12Q 


130 。 


14Q 


15Q 


16Q 


170 


18Q 


19Q 





大 天 江 エエ エコ 


BSP2=1 
PT=1 

FRINT 
PRINT: 
FRINT 


E。 率 。 素 。 太 半生 、 丈 。 素 . 丈 . 丈 . 丈 . 素 . 素 . 丈 . コ 


IN 
ロ FEN" 
し る る 


ネ ※ 


ネ 
ネ ※ 
NF 
1 
ネ ※ ポ 


* 


ポ 

ェ ネ IF 
*※ 

* 


3 


* 


ポポ ポポ ポ 
2 CLOSE ォ 2 


し る る 1 


* 


INPUT "PLAY EUCK AND 日 


"FSS "』FASSs 


区 、 到 。 素 。 素 . 素 . 元 . コ 


RETURN_ KEY"』Z ま 
1 4 韻 2 FPN 
ネネ ネネ ネネ ネネ ネネ ネネ ネ ネネ ネネ 


277 
ミ 


* 


に 
1 す 17 す キィ パ トイ トイ パイ ト 
* * 


VAL (上 ) く BL 。 = ポーーー ツ キー ニーーーーーーー 


= ここら ニ ンー こさ と ね 


Then 
ネネ ネネ ネネ ネネ ネネ ポポ ネネ 
ネネ ポポ ネネ ネネ ポ ネ ネネ ポポ 


1! マーーーーーーーーーーーーーーーーーーーーーーーーー 


キネ ネネ ネネ ※ た 

ポポ ネネ ルポ 氷 氷 氷水 
* 

※ ※ 


IF PAS5=1 DS 


3 
ヒーーーーーーーーーーー ニ ーーー- ゴ 


店 さこ ご = ニ = こ = ここ こと ここ ここ = もこ 


し ーーーー ーーーーーーーーーーー ゴ 


』0 








90 

100 
110 
12O 
130 
140 
15O 
16Q 
17O 
180 
19O 
200 





* MAIN PROGRAN 
CLEAR1000O 


DIMJUMP( さ 00。 さ ) ,。 STACK (5O) , STACEK ま (50) 。LN(5O) 。JT(10O) 


PEN "ロリ 。 拉 1。"LPTO" 
FRTNT 蘭 1 。 CHR ま (&H1B) 』"OT 
INPUT "START LINE NO "。SL 
INFUT "END LINE NO "。EL 
INPUT "PRUGRAM NAME "。PN ま も 
FUR _FASS=1T ロ 2 
SBP=10:FL=O: GP2=1 : PT ニ 1 
FRINT"FASS "saFASS: PRTNT: FRINT 





INFUT "PLAY BUCK AND HIT RETURN KEY"』Z ま 
OPEN "1" 。#2。PN 中 

TNPUT#2。 し $ ょ し 1=VQL (LEFT 生 (し ま 。TNSTR (し ま 。" ") ) ) 
IF L1XSL THEN GOTO 140 

GOSUE 3QQO 

IF L1SEL THEN 14O 

CLUSE#2 

IF_ PASS=1 THEN GOSUB 6000 

NEXTFPASS 








123 


1O 


フロ ー チ ャ ー ト ・ ジ ェ ネ レー タ BAS 1C リ スト 








210 PRINT#1 。CHR$(&H1E) 』 "2 

22O BTOP 

さ 0O BYNTAX aNaLYSIS 

さ 10 LIN=VaL (し *) : STMT を も =" 

さ 20 IF PASS=1 THEN PRINT LIN ELSE GOSUB1640 

ささ O し =RITGHT$(L ま 。LEN (し $) 一 INSTR (1 。 し ま 。" の )) 

さ 40 BTMT$="" 

さ 50 IF LEFT$( し ぁ 。1)=" " THEN GOTO さ <O 

さ 60 IF LEFT ま (し L$。1)="7 リ OUR LEFT$( し ま 。1)="REM" THEN GOTO 48O 
さ Z0 IF INSTR(1. し ま 。":")=O THEN GOTO 48O 

さ BO STMT*=STMT$+LEFT$( し $。TNSTR (1 . し $ 
さ 90 し =RIGHT ま (L ま 。LEN (し ま ) INSTR (1 。 し ま 
400 J=o 

410 FOR 1=1 TO LEN(STMT$) 

420 IF MID$(STMT$。 1。1) =CHR$( さ 4) THEN =J+1 

43O NEXTI 

440 IF J MOD 2=1 THEN GQTO さ 5o 

450 IF LEFT ま (STMT$。1)="?" OR LEFT$(STMT$。 さ ) ="REM" THEN GOTO 48O 

460 IF LEFT$(STMT$。2) ="TF" THEN STMT*=STMT$+ し も: し *="" ェ BUSUB1000: RETURN 

470 GOSUB 490:LIN=LTN+. 02: GDTO さ 4O 

4B0 STMT*=STMT$*+ し $: TFLEFT$(STIT*$、2) ="TF"THEN し ま ="":BUSUB1000: RETURN 

490 IF LEFT$(STMT$。4) ="B T" OR LEFT*(STMT$。 さ ) ="GOT" THEN GBDSUB2000: RETURN 

500 IFLEFT$(STMT$*。4)="STOF" ロ R LEFT* ま (STMT$ ま 。6) ="RETURN" DR LEFT*(STMT$。 さ ) ="END" 
THEN GOSUB さ OOO: RETURN 

510 IF LEFT$(STMT$。2) =" ロ N" AND INSTR(1 STMT$。 "ERRDR") く >0 THEN GOSUB4000: RETURN 
520 IF LEFT$(STMT$。2)="DN" AND INSTR(1.STMT$。"BO") *TNSTR(1.STMT も 。"TO") く >0 THEN 
GOSUB5OO0: RETURN 

53O GOSUB2090: RETURN 

1000 "*** IF BTAEMENT* ネ ネネ 

1010 TF FL=2 AND PASS=2 THEN PRINT##1 。TQB(7) "% ポ 氷水 氷水 ※ 素 氷水 TB( さ ら ) 
1020 IF FL=2 AND PASS=2 THEN PRINT#1.TAB(19)"!"TAB( さ 6) J$ 

103 さ O ITF INSTR(1.STMT ま 。"THEN" ) >=INSTR (1 。STMT ま 。"ELSE") THEN GDTO 1050O ELSE GOTQ 11 











104O_RETURN 

1050 IF INSTR(1.STMT ま 。 "THEN"' ) =OTHEN STMT$=LEFT$(STMT ま 。 ITNSTR(1 。 STMT ま 。"G ロ " ) 1 ) +"TH 
EN"+RIGHT ま (STMT$。 LEN(STMT$) INSTR (1 。STMT*$。 "BO" ) +1 ) 

106O ITF PASS=2 THEN GT 1OBO 

1070 LIN=LTIN+- O2: STACK(SP ) =L IN: SF=SF+ 1 : しま =RTGHT ま (STMT ま $。LEN (STMT ま ) 一 TNSTR(1 。STMT$。 
"THEN" ) さ ) : STMT ま =" "= GUSUB1450: LIN=L IN+. 02: SP=SP-1 : JUMP (PT 。 1 ) =STACK (SP ) : JUMPF (PT 。 2 
) =LIN: FT=PT+1 : RETURN 

1080 STACK ま (SP2) =STMT$ 

1090_ STMT ま =LEFT ま (STMT ま 。TNSTR (1 , STMT$。 "THEN" ) 1 ) 

1100 GOSUB146O 3 
1110 し ま =RIBHT ま (STACK ま (SP2) 。LEN (STACK ま (SP2) ) INSTR (1 。STACK$(SP2) "THEN" ) - さ ) : STMT$ 
1120 GOSUB145QO 

11 さ O IF FL=2 THEN PRINT 補 1 。TQB(7) "ネネ ポポ 氷水 氷 ボ ※※ 水 ポポ "TB( さ ら ) 

1140 LIN=LTIN+.O2: PRINT 音 1 。 TB (19) "1! く ーーーーーーーーーーーーーーー "ss SHSUB17 さ O 

115O FL=1 

1160 RETURN 

1170 IF INSTR(1。LEFT*$(STMT。 INSTR(1 。SBTMT ま 。 "ELSE" ) 1 ) 。、"THEN" ) =O THEN STMT$=LEFT$( 
STMT$。TNSTR (1 。STMT*。 "GO") 一 1)+"THEN"+RTGHT$ (STMT$,。LEN (STMT$) -TNSTR (1 。 STMT$。 "BOD") + 
1) 

11BO STACK$(SP2) =STMT$: SGP2=SP2+ 1 

1190 IF PASS=2 THEN GQTQ 125Q 

1200 し *=HID ま (STACK*(SP2ー1 ) 。 INBTR ( 1 。 STAEK$(SP2-1 ) 。 "THEN" ) +4。 INSTR (1 。 STACK* (SF2ー1 ) 
・ "ELSE") INSTR (1 , STACK*$(SP2ー1 ) 。 "THEN" ) 4 ) 

1210 LIN=LTN+. 02: STACK(SP ) =LTN: SP=SP+1 : STMT*=""』GBOUSUB1450: STAEK*$ (SP2) =BTMT$: SBP2= 
SP2+1:LTN=LTN+. 02+. 02: SP=SP-1 : JUMP (PT 。 1 ) =STACK(SP ) : JUMP (PT 。 2) =LTN: PT=PT+1 

1220 STACK (SF ) =LIN-. Q2: SBP=SP+1 : し ま =RTGHT$(STACK$(SP2ー2) 。LEN (STACK$(SP2ー2) ) -INSTR ( 
1.SBTACK も (SP2ー2) 。 "ELSE " ) - さ ) : STMT$="" ュ BUSUB1450:LIN=L TIN+ . 02: SP=SP-1 

123O STNMT*$=STACK$(GP2ー1 ) 

1240 IF (LEFT$(STMT$。2)="BO" AND TINSTR( 1 ,。 STACK$(SP2ー-1 ) 。 "TH") く >0) ロ R VaL(STMT ま ) く > 
0 OR LEFT$(STMT$。4) ="STOP" OR LEFT ま (STMT ま 。6) ="RETURN" OR LEFT*$(STMT$。 さ ) ="END" TH 
EN _SP2=SP2-2』 RETURN ELSE JUMP (PT。 1 ) =STACK(SP ) : JUNP (FT 。2) =L TIN: SGP2=SP2ー2』 PT=PT+1 :R 
ETURN. 

125O_STNMT*=LEFT*$(STMT$。 INSTR(1 。STNT ま 。 "THEN" ) 1 ) 

1260 GOSUB146O 

127O 上 *=HID ま (STACK(BP2ー1 ) 。 TNSTR (1 , STACK$(SP2ー1 ) 。 "THEN" ) +4。 INSBTR (1 。 STACK$ (SP2ー1 ) 
・ "ELSE" ) INSTR (1 , STACK$(SP2-1 ) 。 "THEN" ) 4 ) : STMT$="" 

1280 GUSUB145Q: STACK (SBP2) =STIMT*$: BP2=GP2+ 1 

1290 IF FL=2 THEN PRINT#1 。TAB( プ ) "KK ポポ 水 氷 氷水 氷 氷 氷水 氷 氷 氷 り TAB( さ ら ) J$ 

130O "STMT$=MID$(STACK$ (SBP2ー2) , INBTR(1 , STACK$(SP2-2) 。 "THEN" ) +4, INSTR (1 , STACK$(SP 
2ー2) , "ELSE") 一 TNSTR (1 。 STACK ま (SGP2-2) , "THEN" ) 4 ) 

1310 STMT$=STACK (GBP2ー1 ) sz TF (LEFT*$(STMT$。2) ="BO" aND INSTR (1 。 BTACK ま (BP2-1 ) 。 "T" ) 
<>20) OR VAL(STMT$) く >0 OR LEFT$(STMT$。4)="STOP" OR LEFT*$(STMT ま 。6) ="RETURN" QR LEF 
T$(STMT$。 さ ) ="END" THEN FL=O:LIN=LTN+. O2: BHTO1 さ 40 





1 さ 20 FL=1 

1 くさ O LIN=LTN+ 。O2:PRTNT 間 1 。TAB (19) "1! ーーーーーーーーーーーーーーー > リョ ss BUSUB17 さ O 
1340 PRINT 草 1 TAB( さ 6) J$ 

135O LIN=LIN+. O2:PRTNT 間 1 。TQB (19) "1! く ーーーーーーーーーーーーーーー "sz BHSUB17 さ Q 


1 さ 60 STMT$=STQCK$(BP2ー2 ) 

1370 し =RIGHT ま (STMT$。LEN (STMT$) INSTR (1 。 STMT あ 。 "ELSE" ) - さ ) : SBTMT も ="" 

13BO GOSUB145O 

1390 IF FL=2 THEN PRINT 昔 1 。TAB( フ ) "※ ネ ポポ ポポ 氷水 ※※ 水 ※ ポ ※ 素 玉水 ※※ ポ "TAB (さら) 

1400 STMT$=STACK ま (SP2ー1 ) 

1410 IF (LEFT$(STMT ま 。2)="B ロ " AND INSTR(1 STACK$(SP2ー1 ) 。" TO" ) く >0) ロ R VAL(STMT$) く > 
0 OR LEFT$(STMT$。4) ="STUP" DR LEFT$(STMT も 。6) ="RETURN" OR LEFT$(STMT も 。 さ ) ="END" TH 
EN FL=Os LIN=L IN+。02』 GOTO14 さ O 

1420 LIN=LIN+.O2: PRTNT 間 1 。TAB(19) "1 く < 
143O FL=1 : GP2=SP2ー2 

1440 RETURN 

145Q IF VAL(L$) く >0THEN STMT$=" 。"+ キ しま: BHSUB5O40: RETURN: ELSEGDSUB さ 5O:RETURN 
1460 "氷水 氷水 TF ホ 水 氷水 氷水 氷 





ュ : BUSUB17 さ O 





1470 PRINT 昔 1 TH(7) 3 "TAB( さ 6) J 
14BO_ PRINT#1。TAB( フ 7) し 3 3 "s TAB (さら 6) J$ 
1490 PRINT#1。TAB(7) s 3 し 3 "ssPRTNT 提 1 。J 
1500_ PRINT#1 。TAB(7) 』" 1 * ELSE "』TAB( さ 6)J* 


151O IF LIN=INT(LIN) THENPRTNT 間 1 。USTNG" 間 間 提 寺 。。" ォ LTNs 

1520 LIN=LTN+. O2: PRTNT 間 1 。 TAB(7) 』"※ り "=TAB(1 ワ 9-LEN(LEFT 和 ま (STMT*。 1 プ ) ) /2) s LEFT ま (STMT$*。 
17) TAB ( さ 1 ) "※ーーー>!"』 ェ BSUB1 フ さ Q 

153O_MHILELEN (STMT$*) >18 

1540 STNMT ま =RTGHT ま (STMT$。LEN (STMT*) 1 プ ) 











1244 


&O 


フロ ー チ ャ ー ト ・ ジ ェ ネ レー タ BAS1C リ スト 











155O_ PRINT 社 1。TAB(11)LEFT$(STMT ま 。1 フ ) s TB (さら 6) J$ 





156O MEND 

1570_ PRINT 間 1。TAB(7) 』" 3 ネ "TAB (さら 6) J 旬 
15BO_PRINT 提 1。TAB(7)』" し 】 Ker 2 ネ 人 AB (さら 6) 
1590_ PRINT 共 1。TAB(7) 』" * ネ ネ 人 BEB( さ ら 6) J$ 
1600 PRINT 間 1。TAB(7)』" 3 TAB ( さ 6) J$ 
1610 PRINT1。TB(7)』" 1 Then "saTAB( さ 6) J$ 
1620 FL=1 


163O_RETURN 

1640 ”※※※※ 水 氷 LTNE DR 人 AM ホ 水 氷水 氷 

165O !=1 

166O IF JT(1)=O THEN 1700 

167O IF JT(I)=LIN THEN 1720 

168O エニ エ +1 

1690 GOTO 1660 

1700 IF STMT ま まく >"! THEN PRINT 本 1 。TAB( さ 6) まま : RETURN 

171O -TF STMT$=""THEN RETURN 

1720 IF FL=2 AND LIN=INT(LIN) THEN .PRINT 拉 1 。TQB( フ ) "ホネ ポポ 氷水 氷水 氷水 氷水 水 氷 氷水 "TB 
さら 6)J$ 

173O エニ 1 : ゴ = ニ O= まま =STRTNG ま (42。" !) :K 事 SBTRTNG ま (42。"ー") 

1740 MHILE JUMP(I。1) く >O 

1745 IF JUMP(1。 さ )=O THEN BUTO 1790 

175S0 IF JUMP(T。1) く LIN+.O1 AND JUMP(1。2) >LIN+.OQ1 THEN MID*$(J ま 。JUMP( エ 。 さ ) 。1)="1 リ "gzNI 
D$(K も 。JUMP( 1 。 さ ) 。 1 ) = リキ リ 

1760 IF (JUMP(1。1)=LIN OR JUMP(1T。2)=LIN) AaND JUMP( 1 。 さ ) > THEN =JUMP(T。 さ ) 
177O IF JUMP(1。1)=LIN THEN MID$(K ま 。JUMP(T 。 さ ) 。 1 ) =CHR$(&H99) 

17B0 IF JUMP(T。2)=LIN THEN MID ま (K ま 。JUMP(T 。 さ ) 、 1 ) =CHR$*(SH9B) 

1790 =i+1 

1 ヨ 0O_ MEND 

1810 IF LIN=INT(LIN) THEN PRINT#1 。TAB(19) "1! く ーーーーーーーーーーーーーーー "ssFL=1 

1B20_ PRINT 昔 1 。TAB( さ 6) LEFT$ (KJ) iRIGBHT ま (J 和 $。LEN(J$) -) 

183O_RETURN 

2000 "※※※ BU TU STATEMENT ネネ 

2010 IF PASS=1 THEN LTN=LTN+. 02: JUMP (PT 。 1 ) =LTN: JUMP (PT。2) =VQL (RTGHT$ (STMT$。LEN(S 
TMT*$) 一 INSTR( 1 ,。 STMT$。 "TO" ) 1 ) ) : PT=PT+1 : RETURN 

2020 IF FL<>2THEN FRINT せ 1 、TAB(7) "氷水 氷 氷水 氷水 氷 氷水 床上 TB( さ ら ) 久 

2030 ITF LIN=INT(LIN) THENPRTNT 間 1 。 USTNG" 提 提 電 <・・ "LINi 

2040 LIN=LTN+. 02: PRTINT 六 1 。 TAB(7) s" ネ "STMT$TAB ( さ 1 ) "ネーーー>" ュ ェ BUSUB17 さ O 

2050 PRTINT 間 1 TAH(7) " ホ 水 氷水 氷水 氷水 氷 氷 氷 氷 束 氷 床 氷 氷 "本 全日 ( さ ら ) も 

2060 PRINT 昔 1 TAB( さ 36) も 

2070 PRINT 提 1 。TAB( さ ら 6) J$ 

20 ヨ 0 FL=O: RETURN 

2090 ?FUR』NEXTiMHILEs MEND CHECK 

2100 TFPASS=2 THEN GT 2180 

2110 IF LEFT$* ま (STMT ま 。 さ ) ="FOR" DR LEFT$ ま (STMT$*, 王 ) ="MHILE" THEN STACK (SP ) =L IN+。 02: SGP 
=SP+1: LIN=LTN+ 02: RETURN 

2120 ITF LEFT ま (STMT ま 。4) ="MEND" THEN SF=SPー-1 : JUMP (PT。 1 ) =STACK (SBP ) : JUMP (PT ,2) =LTN+。 
02: PT=PT+1:LIN=LTIN+. 02: RETURN 

21 さ Q IFLEFT$(STMT ま 。4) く >!NEXT"THEN RETURN 

2140 J=O:FURI=1TOLEN (STMT$) 

2150 IFMTD ま (STMT$、T。 1) ="。 "THEN ゴ =J+1 

2160_ NEXTI 

2170 LTIN=LTN+・02:FURI=1T ロ J+1 : SP=SP-1 : JUMP (FT。 1 ) =STACK(SP) : JUMP (PT 。2) =LTN: PT=PT+1 
: NEXTI:RETURN 

210 "*※*※ NRMAL STATEMENT 

2190 IF FL<>2THEN PRINTt1 TB(7) リポ ボネ ネネ ネネ ネネ ポポ ネネ ※ 氷 ポ 氷水 氷水 氷 り TB( さ ら )J ま 

2200 IF LIN=INT(LIN) THENPRTNT 間 1 USTNG" 音 電 "LINs 

2210 PRINT 村 1。 TaB(7Z)* "LEFT ま (STMT ま も 。21 ) TAB ( さ 1 ) " ネ り 』 

2220 ITFLEFT も (STMT$。 さ ) ="FOR" ロ R LEFT$(STMT$。4) ="NEXT" OR LEFT ま (STMT$。5) ="MHILE" ロ 
FR LEFT ま (STMT* ま 。4) ="MEND" THEN し LIN=LTN+. 02: PRTNT 提 1 。 リ ーーーー" GBDSUH1 フ さ Os ELBE PRINT 幕 1 。 
TAB (さら 6) J ま 

2230 TIF STMT ま =""THEN GOTn 2290 

2240 IF LEN(STMT ま *) >2 THEN STMT* ま =RIGHT$(STMT$。LEN (STMT$) 2) 

2250 WHILE LEN(STMT$) >20 

2260 STMT ま =RTGHT$(STMT$,。LEN (STMT$) 19) 

2270 FRINT 栖 1 。TAB( フ ) " ポ "LEFT$(STMT$。19) TaB ( さ 1 ) "*※ り TAB (さら ) 

228O MEND 

2290 FL=2: RETURN 

さ Q00 !※※ STHP RETURN END STATEMENT※*※ ネ 

さ 3010 IF PASS=1THEN RETURN 

さ Q2O_TF FL く >2THEN PRINT 間 1 TAH(7) " 水 氷水 水 氷 氷水 氷水 氷 氷水 氷 ボ 氷水 氷水 素 素 氷 氷 氷 り TH( さ ら ) 

さ O03O IF LIN=INT(LIN) THENPRINT 提 1 USTNG" 間 間 章 ・・ "LINs 

さ 040_PRTNT 間 1 。 TAB(7) s"K "BTMT$TAH( さ 1 ) "*%"TQB (さら ) J$ 

さ O5O_ PRINT 欄 1 。TAB(7) "ホホ 水 氷水 水玉 氷水 水 氷水 氷 氷 氷 末 ボ 水 水 氷水 り TAB( さ ら ) 衣 

さ 06O FRTNT 拉 1 。TAB( さ 6)J ま : PRTNT 間 1 。 TB (さら 6) 和 $: PRTNT 間 1 。TAB (さら 6) J$ 

さ Q07O FRTNT 共 1 TAB ( さ 6) JPRTNT 音 1 。 TAB( さ 6) $: PRTNT 間 1 TAB (さら 6) J$ 

さ QBO FL=Oz RETURN 

4000 ” 氷 氷 HN ERRUR *#※※ 

40 さ O _TF PASS=2 THEN BODSUBSO9O 

404O0 STNMT*$=RTGHT ま も (STMT$,。LEN(STMT$) INSTR(1 。STMT$。 "ERRUR" ) 4) 

405O_ GUSUB2O0O 

407O_RETURN 

SOQ0 "※ 氷 氷 N BHT **※ ポ 

5010 エ F PASS=2 THEN GOSUB5SO90 

5Qo2Q STIT ま =RTGHT* ま (STMT*$。LEN (STMT$) INSTR (1 。 STMT$。 "TO" ) 1 ) 

5030 LIN=LTIN+. 02: IF PASS=1 THEN JUMP (PT。 1 ) =LTN: JUMP (PT 。 2) =VAL (STMT$) : PT=PT+1 : ELS 
E PRINT 柱 1 。TQB(19)" "ji VAL (STMT$*) TAB (さら 6) J 生 = PRTNT 音 1 。 TB ( 19) "ーーーーーーーーーーーーーー 一 > リョ:BOS 
UB173Q 

5040 MHILE INSTR(1 。STMT$。"。") く >0 

5O5O STNMT$= ニ RTGHT$(BTMT* も ,LEN(STMT$) INSTR(1 。 STMT$。"、") ) 

506Q LIN=LIN+.O2: IF PASS=1 THEN JUMPF (PT。 1 ) =LTN: JUMP (PT 。 2) =VAL (BTMT*) : PT=PT+1 : EL 
EPRTNT 間 1。TAB(19) 1:VQL (STMT$) TE (さら 6) も: PRTNT 間 1 。TAB(19)"『 ーーーー デ ーーー ビーーーーー ビ ニー >" ョ BUSU 
B17 さ oO 
5O7O_MEND 
5S08O ITF PASS=1 THEN RETURN ELGSE FRTNT#1 。 TB( さ 6) J$: PRTNT 間 1 。 TAB (さら ) J$:FL= ニ 0 RETURN 
090 "氷水 HN ※※ 氷 

5100 ITF FL=2 THEN FRTNT 村 1 。TQB(7) "氷水 氷水 氷水 氷 素 素 氷 氷 氷 氷 率 氷 氷 氷 り TB( さ ら )J 生 

110 IF FL=2 THENPRTINT 間 1 。TAB(19) "1 "TB (さら) も 

5120 FRTNT 提 1.TAB( フ ) 』" し 4 "TAB( さ 6) J ま 

51 さ O_PRINT 提 1。TAB( フ 7) AB (くさ 6) も 

5140_ PRINT 持 1。TQB( フ ) 』" ネ ネ 人 aB (さら 6) 名 

515O_ PRINT 提 1.TQAB(7) 』" ネ * TAB ( さ 6) J$ 

5160 TF LIN=INT(LIN) THENPR INT 間 1 USTNG" 音 大 ・・ "LINs 
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フロ ー チ ャ ー ト ・ ジ ェ ネ レー タ BAS1C リ スト 





5170 STACK$(SP2) =STMT ま : GP2=SP2+1 

51BO_PRINT 柱 1。 TAE( プ 7) s"※ り ュ TQB(19-LEN(LEFT ま (STMT$ ま 。 17) ) /2) sLEFT 和 ま (GTMT$。 1 フ ) TAB ( さ 1 ) "※ ポ 
"TAB ( さ 6) J$ 

5190 WHILELEN(STMT$) >1 日 

5200 STMT$=RIGHT ま (STMT ま 。LEN (STMT ま ) 17) 

5210_ FRINT 提 1 TAR(11)LEFT 和 も (STMT ま 。17) : TaB( さ 6) J$* 





5220 MEND 

523O SGP2= ニ SF2ー1 : STMT$=SBTACK ま (SGP2) 

5240_ PRINT 栓 1。TAB(7)』" ※ し 3 "3 TAB( さ 6) J$ 
525O_PRINT 拉 1 。TQB(7) :" し 3 し 3 "s TB ( さ 6) J も 
5260 PRINT 提 1。TAB(7) 』" し 4 % "si TAB (さら 6) J$ 
5270 FRINT 本 1.TAB(7) 』" し 4 リ "TAB (さら 6) J ま 
52B0 PRINT 提 1。TQB( フ ) 』" 1 TAB( さ 6) J* 

529Q FL=1 


53OO_RETURN 

6000 **※※ 氷 DRAM CHEDK ポ ポポ 

6010_ PRINT:PRINT:PRINT"DRAM CHECK" 

6020 エニ 1 : MAX=0: PT=1 

603O_MHILE JUMP(1。1) く >O 

6040 IF JUMP(T。1) >JUMP(T。2) THEN SMAP JUMP(T。1) 。JUMP(T 、2) 

ら 6041 TF INT(JUMP(T。 1 ) ) =JUMP( 1 。1) THEN JT(PT) =JUMP (1 。 1 ) : T=PT+1 

6042 IF INT(JUMP(1。2) ) =JUMP(T.2) THEN JT(PT) =JUMP(T 。2) : PT=PT+1 

605O 1!= エ +1 

606O MEND 

607O_PRINT"CHECK 1 OK!" 

60BO0 PRINT" CHECK 2" 

609Q MIN=ー1 

610O LIN=64000! 

611O GOSUEB6260 き 

ら 6120 IF LIN=64000! THENBUTO6210 

ら 6121 IF INT(LIN) =LIN THEN GBDT ロ 61 さ O 

6122 IF JUMP(PT。1)=LIN THEN GUSUB6 さ 5O: GOT ロ 6190 

612 さ TF JUMP(FT。2)=LIN THEN BUSUB644Q: PT=PT+1 3 GUTH612 さ :ELSE BUTD619O 

ら 61 さ 3O PT=1 

614O_MHILE JUMP (PT。2) く <>Q 

615O IF JUMP (PT。 1 )=LIN THEN BUSUB6 さ 5O 

ら 6160 IF JUMP(PT。2)=LIN THEN GUSUB6440 

ら 6170 PT=PT+1 

61BO_MEND 

6190_ MIN=LIN 

6200 GOTO0610O 

6210 PRINT"CHECH 2 OK!" 

6220 IF MAX く <21 THEN 1= HILE JUMP(1。1) く >0s JUMP(T。 さ ) = (JUMP (1 。 さ ) -1 ) *※TNT(40/MAX)+1 
ミエ ニ エ +1 : MENDs PRINT "CHECK さ OK! 9 

623O_PRINT"DRAM LINE ALL OK" 

6240 "エニ =1 iMHILE JUMP(T。1) く >0: PRTNT#1 。T ュ TAB(5) JUMP(1 。 1 ) TAB(15) JUMP(T 。2) TAB(25) JUM 
P( エ 。 さ ) : エニ エ +1 : MEND 

ら 6241 ! エ =1:MHILE JT(T)<>0:PRINT 1:TAB(5) ゴ T(1) : エ = エ +1 : MEND 

ら 6250_RETURN 

6260 エ =1 

6270 MHILE JUMP(I。2)<>O 

62BO IF JUMP(T。1) く <=MIN THEN BUTO6 さ QO 

6290 ITF JUMP(T。1) く LIN THEN LIN=JUMP( 。 1 ) :PT=1 

6300 IF JUMP(T。2) く =MIN THEN GUTU6 さ 20 

6 さ 10 ITF JUMP(T。2) く LIN THEN LIN=JUMP( 1 。2) : PT=I 

ら 6320 エニ エ +1 

6 ささ O_MEND 

6 さ 40_ RETURN 

63 さ SO L=0: FURK=1T ロ 42 

6360 IF LN(K)=O THEN GUT0638O 

6370 IF JUMP(LN(K) 。2) く JUMP (PT 。2) THEN 6 さ 755 

6371 IF K=1 THEN GUTO640O 

6 さ 72 IF LN(K) =0 THENK=L: GTO6400 

637 さ IF LN(K) く >0 THENK=L+1 : GT06400 

ら 6 さ 75 上 = し +1 

6 さ BO 
6 さ 90O 
ら 6400 ゴ = ニ Ks WHILE LN(K) く >0 AND <42』 ゴ = ゴ +1 : GMAP LN (J) 。LN (に K) : MEND 

6410 LN(K) =PT 

6420 "PRTNT 間 1。 し INs : FURJ=1 TO15: PRINT1 TAB(JX4+4) LN (J) 』 NEXT iPRINT 章 1 
64 さ O_RETURN 

644O FURJ=1T ロ 42 

6450 IF LN(J)=PT THEN GUT0648O 

6460_NEXTJ 

6470 JUMP(PT。 さ ) =0: RETURN 

ら 64BO_TFJ>40THEN JUMP(PT。 さ ) =40 ELSE JUMP(FT。 さ ) =J 

649O LN(J) =O 

65Q0 IF MAX く <J THEN MAX=J 

651O "PRINT#1。LI FOURJ=1 TU15:s PRTNT##1 。 TAB ( ゴ k4+4) LN (J) 』 :NEXT J:PRINT#1 
6520 PRINT USTNG" 埋 枯 電 間 章 措 一 析 電電 間 間 韻 "sJUMP(PT。 1 ) 。 JUMP (PT 。2) 。 JUMP (PT。 さ 〉 
65 さ O_RETURN 
































7000 

7010 *"+ キ ii は 1 ETEEEEEEHHTIEII。 EEEITIIEE。EEEITEEEI。 II 

7020 7O さ Q 40 SO 6Q 7O 
ヒーーーーー ーー ーーーーーーーーー デニ 
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うら FM-8 





PAR T 1 SSRSaEkEiefiegeicsassk 
ROMRAM 


FM-8 は , 64K ビッ ト / チ ッ プ の DRAM を 採用 
し て いる の で す が , ROM-BASIC を 使っ て いる 
と き に は , 半分 の 32K バ イト が 眠っ て し まい ま 
す . し か も , 私 の 知っ て いる 限り ROM の 切り 離 
し を , バン ク ・ セ レク ト の よう に ソフ ト で 行 な 
うこ と は で きま せん . 

この まま で は 疾 に さわ る の で リス ト 1 の よう 
な プロ グラ ム を 組ん で F-BASIC イ ンタ ー プ リ 
タ を R AM 上 に 転送 し . R AM 上 で て F-BASIC 
を 走ら せる も の で す . た だ し R OM の 切り 離し 
は ユー ザー が 本 体 後部 の ディ ッ プ ・ ス イッ チ を 
切り 換え る こと で 行ない ます . 

普通 は あま り 価 値 の ある プロ グラ ム で は あり 
ませ ん が , 私 は F-BASIC イ ンタ ー プ リタ 上 に 
プレ ー ク ・ ポ イン ト を 設定 する た め に 作っ て お 
り ま す . F-BASIC は $8000 一 $87FF ま で を 使 
っ て いな いた だ ため, フリ ー エ リア は 2K バ イト 増 
えま す が , ブー ト ROM が 違う た め に [RESET| 
お よび [STOP| [RESET] を 行なう と , ベル を 鳴 
らし 無限 ルー プ に 落ち こみ ます . 

リス ト 1 の プロ グラ ム は 6809 の マシ ン 語 で , 
どの アド レス に 置い て も 走り ます . ここ で は $ 
7F00 一 の アド レス に 入っ て いま す が , ここ は 
通常 BASIC の 廊 字 変数 領域 で す . EXEC &H7 
FOO で 走ら せ , し ば らく する と ベル が 鳴り ます 
か ら , ディ ッ プ ・ ス イッ チ を 切り 変え て くだ さ 
い .。 ディ ッ プ ・ ス イッ チ は , ROM -BASIC モ 
ー ド 以外 の どの モー ド で も か まい ませ ん . 切り 
変え たら [STOP] を 押し ます . これ で R AM 上 
の F-BASIC が コー ルド ・ ス ター ト し ます . 


PART 2 RS 
REMARK~ REMARK 


FM-8 は REMARK 文 を 任意 の 色 で 表示 させ 
る こと が で きま す . LIST 処理 の と き 出 力 する 
廊 字 列 の 中 に , $ 11 : DC 1 の コー ド が ある と 。, 
次 の 1 バイ ト の 下位 4 ビッ ト を カラ ー コ ー ド と 
し て , その 行 の 終り まで を その 色 で 表示 し ます . 
反転 も 可能 で す が 次 の 行 に 影響 が 出る こと が あ 
り ま す . 具体 的 に 行なう 操作 を 図 1 に 示し ます . 

行 数 が 多く な る と この 操作 は そら く 時 間 を 食 
う の で , リス ト 2 の プロ グラ ム を 組ん で 自動 的 に 
や ら せ て し まい ます . ま ず 色 を つけ た い 行 を “ 行 
番号 '@@A 一 " と 書き 替 を ます . 2 つの ^@" が 
ある アド レス に は $ 0D : $11 の コー ド が 入り ま 
す . 次 の "A" は どん な 廊 字 で も よく , この 文字 
の ASCII コー ド の 下位 4 ビッ ト が , カラ ー コ ー 
ド に な り ま す . 以降 は カラ ー で 表示 し た い 文 字 
列 を 書き こん で くだ さい . 終っ た ら リ スト 2 の 
プロ グラ ム を 走ら せま す . 

リス ト 2 も 6809 の マシ ン 語 で , アド レス に 無 
関係 に 動き ます . この 場合 は , EXEC &H0500 
で 走ら せま す . アッ と いう 間 に 処 理 が 終り “Rea 
dy" が 表示 され る の で , LIST を と っ て み ま し 
P 


行 番号 ずら つか な い 色 の みつ いた REMARK 廊 
が スク ロー ル ・ ア ッ プ し て ゆき , 非常 に 不気味 
で す .。 な お , リス ト 2 の プロ グラ ム は 行 の 先頭 
以外 の “""@@" や “REM" に は 反応 し ませ ん . 
また $0500 一 $0510 は F-BASIC の キー 入力 用 
バッ ファ で す の で , プロ グラ ム を LOAD し た 後 
に , 190 廊 字 以上 の 廊 字 列 を 入力 する と , プログ 
ラム が 破壊 され る 可能 性 が あり ます . 


PAR EEEIEEEEEEIENEIEE5 


LET'S GO MUSIC 


リス ト 3 は FM-8 の カセ モッ ト ・ ポ ー ト か ら 音 
楽 (らし きも の ) を 出力 する も の で す . メイ ン 
・ ル ー チ ン は 6809 の マシ ン 語 で す が , BASIC 


の DATA 廊 の 形 に し て あり ます (140 行 一 490 行 ). 


これ も どの アド レス で も 動き ます . アド レス を 
変更 する と き は リス ト 3 の プロ グラ ム リス ト 中 
の (* 1) の 数 値 を 変え た て くだ さい . 

500 行 以降 は 演奏 用 の デー タ で , 実行 時 に は メ 
イン ルー チン の 直後 の アド レス か ら 順 に POKE 
し て ゆき ます . デー タ は 音 の 長 さ , 音 の 高 さ の 
2 つ で 1 粗 に な っ て お り , と も に 1 バイ ト で す . 
音 の 長 さ は 20msec 単位 の 時 間 で す . これ が 0 と 
な る と , 終了 と みな し BASIC へ 戻り ます . 

音 の 高 さ は 表 1 の 表 の よう に 各 音 階 と 対応 し て 
いま す . これ を 0 に し て お く と 休 待 に な り ま す . 
走ら せ 方 : 

まず プロ グラ ム を ロー ド し ます . 演奏 デー タ 
が 入っ て いな い 場 合 は , 音 が 出 な い の で , デー 
タ を 打ち こん で くだ さい . 演奏 デー タ の 最後 に 
“DATA 256" を 入れ て お いて くだ さい . 音 は 
カモ セッ ト ・ ポ ボー ト に 出力 され る の で , カモ セット 
・ コ ー ド の 赤い プラ グ の 先 に , アン プ や ラジ カ 
セ を つない で 音 が 出る 状態 に し て くだ さい . 

“RUN" させ る と メイ ン ・ ル ー チ ン と デー タ を 
メモ リ 上 に 書き 込み ます か ら , 10 数 秒 待 っ て く 
だ さい . 準備 だ で きる と DATA SET READY 
と 表示 され る の で , 何 か キ ー を 押し て くだ さい . 
音楽 が 聞こ そる は ず で す . 

170 行 の DATA を “CE, FD, 03", 390 行 を “ 
86, 81" また は “86, 61", 440 行 を “86, 01" 
と する こと に より , FM-8 内 の スピ ー カ ー か ら 
音 を 出す こと が で きま す が , めっちゃ ん こい や 
な 音 が し ます . も っ と も カセ モット ・ ポ ボー ト か ら 
出る 音 も “美しい 音 " と は いい か ね ます が …. 


PAR T 4 EE 


INTERVAL TIMER 


F-BASIC は , 1 秒 単 位 で の INTERVAL 割 
り 込み を 可能 に し て いま す が , 実は 20msec 単 
位 で の INTERVAL 割り 込み を 設定 する こと が 
可能 で す . 

PART 3 の プロ グラ ム は 音 の 長き を この 機能 
で 決め て いる の で す . どの よう に し て 設定 する 
か と いう と , $01AC 一 $01AF の 4 バイト に 20 
msec 単 位 の 値 を POKE し, EXEC を HE54C で 





較 水 島 達 彦 


OK で す . 具体 的 な 例 を リス ト 4 に 示し ます . $ 
01AC 一 $01AF を すべ て 255 に する と , 割り 込み 
間隔 が な ん と 2 年 8 箇月 に な り ま す ( 気 が 狂う ). 

な お , この 一 見 便利 な INTERVAL TIMER 
は 悪質 な いた ずら を し ます . 一 度 INTERVAL 
TIMER を 設定 する と , プロ グラ ム が 終っ て も 
SUB・CPU は MAINCPU へ FIRQ を 送り 続け 
まり を 。 

MAIN CPU が カモ セット 入出 力 の シリ アル ・ パ 
ラ レ ル 変換 を や っ て いる と き に , FIRQ が か か 
る と ほとん どの 場合 , 力強く ERROR に 飛び ま 
す . カモ ッ ト の 入出 力 を 行なう 前 に は 必ず “TIN 
TERVAL OFF" を 実行 し まし ょ う . 


PART 5 回 還 昌 昌 昌 EE 
その 他 
F-BASIC の LOAD ? は , メモ リ 上 の 内 容 と 


カセ ッ ト テ ー プ の 内 容 の 比較 で は な く て , カセ 
ッ ト 上 の チェ ッ ク ・ サ ム の チェ ッ ク な ん で すね . 





つま り , メモ リ 上 に 何 も な く て も LOAD ? を 行 
な えま す . 
FM-8 の BEEP (一 定時 間 BEL を 鳴ら す ) は 


ハー ド で や っ て いる の で し ょ うか ? POKE 
FD03, を H61 で BEEP が 一 定時 間 鳴 り ま す . ま 
た BEEP が 鳴っ て いる 間 は , 次 の BEEP を 受け 
つけ ませ ん の で , BEEP を 何 回 か 連続 し て 実行 
し て も 1 度 し か 鳴り ませ ん . 

現在 自作 の 逆 ア モン プラ で て F-BASIC イ ンタ 
ー プ リタ を 解読 中 で す . いま まで に 分 っ た こと 
を 以下 に 記し ます . 
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* 主 な デー タ 領 域 


*|/O ポ ボー ト 





$8B68 一 $8BB4 
ー$8BE7 
$8BFD 一 $8C47 
$8C48 一 $8CA2 
$8CDA 
$8CF0 一 $8D69 
$8D6A 一 $8FB3 
$8FB4 一 $904B 
$904C 一 $91FC 
$91FD 一 $9230 
$9231 一 $9242 
$A804 一 SAACC 
$BFB8 一 $BFDC 
$CA28 一 $CA65 
$CEED-ー$CF09 
$F304 一 $F33B 


RESET 時 に 表示 され る タイ トル . 

“COM 0 ",。 “BUB 0" アド レス ・ テ ー プ ブル 
RESET 時 の ファ ンク ショ ン ・ キ ー の 内 容 

ワー ク ・ エ リア へ 転送 する デー タ 

ASCII コード. "Memory Parity Error" 
関数 の 処理 ルー チン の アド レス ・ テ ー プ ブル 

ASCII コ ー ド . キー ワー ド ・ テ ー プ ブル 

ステ ー ト メン ト の 処理 ルー チン の アド レス ・ テ ー ブ ル 
中 間 言 語 一 キー ワー ド の 対応 表 

キー ワー ド の 最初 の 廊 字 一 キー ワー ド ・ テ ー ブ ル の 対応 表 
ASCII コ ー ド “Readgy", “Break" 

ASCI コ ー ド エラ ー メ ッ セ ー ジ 

ASCII コ ー ド RANDOMIZE の プロ ンプ ト ・ メ ッ セ ー ジ 
省略 形 キ ー ワ ー ド ・ テ ー プ ブル 

ASCII コ ー ド “Searching",。 "Found "Skip:" 
BIOS 内 部 の 各 処 理 ル ー チ ン の アド レス ・ テ ー プ ブル 





$FD00 bit 0 
bit 1 
bit 2 

$FD01 

$FD02 bit 0 


$FD03 bit6 

bit7 
$FD04 bit 1 
$FD05 bit 7 


$FD08 一 $FD0B 
$FD0C 

$FD10 一 $FD17 
$FD18 一 $FD1F 
$FD20 一 $FD21 


カセ ッ ト へ の 出力 
MOTOR 用 リレー の スイ ッ チ 出力 
プリ ンタ へ の スト ロー ブ プ 出 力 
プリ ンタ へ の デー タ 出 力 
プリ ンタ の BUSY 信 号 入力 
BEEP 出力 7 BEEP=POKE &HFD03, 65 
( BEEP 1 =POKE &HFD03, 129 
BEEP ON/OFF 、BEEP0 =POKE & HFD03, 1 
STOP KEY 入力 
入力 : SUB CPU BUSY 
出力 : SUB CPU HALT 
音声 合成 用 
A 一 D 変 換 器 へ の 入出 力 
バ プ ブル カセ ッ ト 入 出力 
フロ ッ ピ ー デ ィ ス ク 入 出力 
漢字 ROM の アド レス 出力 (漢字 コー ド で は あり ませ ん ) 








* 使 え そ うな サブ ルー チン 





$9FDF 1 行 出力 | Xreg+ 1 の アド レス か ら 0 が ある まで 文字 列 と し て 出力 

$A01A 1 行 出力 | Xreg か ら Breg の 文字 数 だ け 女 字 列 と し て 出力 

$D352 1 交 字 出力 | Areg の 値 を ASCII コ ー ド と する 文字 を 出力 

$9F97 CRLF 改行 する 

$AFE9 | HEX1 出 力 | Areg の 値 を 16 進 文字 列 で 出力 

$AFE3 HEX2 出 力 | Dreg の 値 を 16 進 文字 列 で 出力 

$B96D 10 進 出力 | Dreg の 値 を 10 進 文字 列 で 出力 

$DD69 | INKEY 押さ れ た キー の ASCII コ ー ド を Areg に 読み こむ 

$DA50 1 行 入力 CR まで に キー 入力 され た 文字 列 が ASCII コ ー ド で 
$043D か ら 入 る . Xreg は $043C に な る . 

















PART 0 
お わり に 


どう や ら 富 士 通 は 。 FM-8 に は バブ プル か ディ スク が つなが っ て いる も の 


と し て シス テム を 作っ た よう で す . カモ セット だ け で は どう も 不 自由 な 面 * 


が 多い で すね . ディ ッ プ ・ ス イッ チ を 切り 換え て ROM を 殺し て も , プ 
ー ト ROM ま で 切り 換 わ っ て し まう た め に , プロ グラ ム を 走ら せる こと 
は 非常 に 困難 で す . 

プ ブート ROM の 1/4 は 予備 と し て 未 使用 を な っ て いる の は , どう いう 
理由 で し ょ う . 将来 は マイ クロ ・ デ ィ ス ク の ブー ト 用 と な る の か も し れ 
ませ ん が , どう せ 未 使用 な ら 暫 定 的 に カセット か ら の ブート を 考え て も 
よかっ た と 思い ます . 

現在 私 は カセ モッ ト か ら ブ ー ト する た め の R OM を 焼 こ うか , ハー ド を 
改造 し よう か と 考え て いま す . 





$FD22-$FD23 | 漢字 デー タ 入 力 (漢字 の 横 方 向 16 ド ッ ト ) 





* そ の 他 














$890A | BASIC コ ー ル ド ・ ス ター ト . フリ ー エ リア を すべ て クリ アレ し 
ます . 

$D8B8 | BASIC ホッ ト ・ ス ター ト (STOP 一 RESET) 

$F2D8 |BIOS ENTRY 

$92AB | ERROR Breg に エラ ー コ ー ド を 入れ て ジャ ンプ 

$AFA2 | MONITOR ENTRY. 機械 語 プ ログ ラム の 最後 は この アド レス に 
和 飛ばす と 便利 で す . 

* 割 り 込み 
2 ae | F-BAsIC で は 使用 し て いま せん . 
F * “ : ヽ 
STD1 SS | 通常 $8B : RT 害 き 込ま れ て いま す . 


$01E0 一 $CC57 
$01D0 一 $D5AB 


FIRQ STOP. INTERVAL な どの 剤 り 込 み . 
IRQ サ プ CPU か ら の 剤 りこ み . 
Memory Parity Error が 出 ま す . 


$01DA 一 $NMI NMI 











な お , 簡単 な バー ジョ ン ・ チ ェ ッ ク で す . 私 の FM-8 は 3283676 で し た . 


FOR 1 &H 8OOO TO &HFBFF:A 寺 一 A 半 十 PEEK(I): NEXT 


ROMRAM BASIC プ ログ ラム ・ リ スト 1 


REMARK プ ログ ラム ・ リ スト 2 








Na RMRANM 
7FQO RG も 7FOO 
7FOQ 6 さ E ENTRY  LDA 韻 和 まさ 昌 
7FO2 BZ Q1EO STA まま 01EO 
7F05 BE O8Q00 LDX 間 要 OBQQ 
7FOB E6 89 BOOQQO LOP1  LDB ま BO00』 X 
7FQC E7 8Q0 STE X+ 
7FOE BC 7COO CMPX 菩 和 7COO 
ET1 2 F5 7FQB ENE LUOP1 
7F1 さ 86 1 LDA 韻 ま 日 1 
7F1 BZ FDQ ミ STAa 征 FDQS 
7F18 B6 FDQO4 LUP2  LDa 第 FDO4 
7F1E 5 Q2 BITa 韻 要 02 
7F1D 26 F9 7F18 BNE LUDFP2 
/F1FBE OBQQO LDX 韻 要 QBQQO 
7F22 4F CLRA 
7F2 さ E6 4 LUOF さ  LDB ョ X 
7F2S EZ 9 OoQO STB BOO00』X 
フ 7F29 7 80 STa X+ 
7F2E BC 7COQO CMPX 菩 委 7COO 
7F2E 26 F さ 7 フ F2 さ BNE LOOUF さ 
7FSO BE B8Q0Q LDX 韻 BBOO 
7F3 さ 7E B92D JIMP 第 B92D 

END 








NAM REIMARK 
QSQOQ ORG $500 
O5OO FE 00 さ さ LDU > 加 00 さ る 
QB5Q さ BE さ BD LDX 菩 箇 さ QBD 
O506 CC 4040 LDD 韻 ま 4040 
Q5Q9 108BE QD11 LDY 音 OD1 1 
OSOD AAC 44 L ロ OF CMPX 4。U 
QB5OF 26 Oo8 Q519 BNE SKIP 
Q511 1083 46 CMFD 6。』U 
Q514 26 0 さ 0519 BNE SKIP 
0516 10F 46 STY 6。U 
0519 EE C4 SRIP LDU ぁ U 
Q51B 26 FO OSOD BNE LOOP 
Q51D 3 RTS 

END 























』O 




















国 1 
<REMARK, REMARK> マニ ュ ア ル で 行なう と き の 手 順 0948 00 一 | 行 番号 
A) 操作 し た い プ ログ ラム ( 例 ) 0949 82 一 ) $0082=130 
) 094A 3A 一 に 
120 GOTO 5000 094B 8D 一 "REM" だ と $8C の 1 バイ ト に な る 
130 '@@ 1Byte Peek 一 色 を つけ た い 行 094C 40 一 |11| | $11=DC1 
140 D=PEEK (A) : A=A 二 1 094D 40 一 |04|.』 カラ ー コ ー ド . $04 な ら ば 緑色 に な る 
B) 色 を つけ た い 行 の み の LIST を と る . 094E 20 一 「 1 ーー この 者 分 を 書き 変え る 
LIST 130 094F 31 一 | 以後 は REMARK 廊 中 の 女池 列 が 
130 '@@ 1Byte Peek 0950 42 一 ) ASCITI コ ー ド で 入っ て いる 
Ready E) BASIC へ 戻り LIST を と る 
C) MONITOR にし, $00A2 と $00A3 番 地 の 内 容 を 見 る ) 
MON 120 GOTO 5000 この 部 分 の み 緑色 に な る 
*※MA2 130 "1Byte PeeM 
0042:0m IONO6 計 0 140 D=PEEK(A) :A=A+1 
00A3 46 一 格納 され て いる こと が 分 る ) 
D) M コ マン ド で $0946 番 地 か ら の 内 容 を 書き 変え る 
*M946 
0946 COM 
0947 5A 一 リリ ンク ・ ポ イン タ 
LET'S GO MUSIC プロ グラ ム ・ リ スト 3 
10 "4 ※#※ ネ FM- 日 MUSBTC PRUGBRAM *% ネ ※ 1040_ DATA 8,114 
20 CLEAR さ OO,&H2FFF』 =&HSOOO 105O DATA 日,121 
さ O_ READ 人 $* *1 *1 1060 DaTA 24。114 
40 IF 人 $ く <>"9" THEN PUKE VAL("&H"+ 人 A) ニキ 1: GUTD さ O 107O DaTa 16。O0 
SO RESTORE 5OO 108O "6 * SUKIYO SUKIYO. .. 
60 READ r 109O DaTa 6,114 
70 IF 1<256 THEN PUKE 2Q』T1』 人 =Q+1:BOTO6O 11QQ DaTa 2。0 
BO POKE A』OPUKE a+1,O 1110 DaTa 6。114 
90 PRINT "DATA SET READY "』 人 第 =INPUT ゃ (1 ) 1120 DaATa 2。0 
100 ON INTERVAL GODSUB 12O』 INTERVAL 1 INTERVaL ロ N 113O DaTa 8。114 
110 EXEC &HSQOQO 1140 DATA B。O 
56 0 いい DAT ※※ | 一 ーーーーー ーーーー」| 1150 DaTA 6。58 
140 DaTa さ O,BC。14 590 DaTa 日 。15 さ 0 1 2 
15O DATA BF。FF。F6 60O DATA 172 11O DaTA 2,O 
160 DaTQ 30。BC』42 610 DaTQ 8B, 18 さ 119O DATQ 8,55 
170 DaTa CE,FD,QO 620 DaTA 8B。15 さ 120O DaTa B,O 
18O DATA 20,OB 63O DAT B,114 1210 DaTA 6,136 
19O DaTA CC。O1,EO 640 DATA さ 2,1 さ 6 1220 DaTa 2。O 
200 DaTa FD,FF,F6 65O_ DAT B。O 123O DAT 6,136 
210 DaTA 7E,94, 昌 さ 660 "6 * QANRTAMAITSUDEMH. . . 1240 DaTA 2。O 
220 DaTa 35,24 67O DATA 8B,172 125O DaTa 8,1 さ 36 
2 さ O DaQTA F6,FD。QO4 68O _ DAT 8,』18 さ 126O DAaTa 8,O 
240 DaTa C5,02 690 DaTa 日 ,172 1270 DaTa 6'68 
250 DATQ 27,EE 700 DaTA B,136 12BO DaTA 2。O 
260 DATA さ 0。02 710 DaTa B, 15S 1290 DATa 6,66 
270 DaTA 6。01 720 DaTA 8B,172 1 さ QO DaTA 2。Q 
2BO DATa 27,EB 2 PGILNRBGS 110 DaTA 8。66 
290 DaTa B7。O1。aF 740 DATA 8,208 1 さ 2O DaTa 。O 
さ OO DaTA さ 4,7O 75O DaTA B,18S 1 ささ O DaTa 6,。114 
さ 1O DaTa BD,E5,4C 76O DATA 8B。15 さ 1 さ 40 DATa 2。O 
さき 2O DATA さ 5,70 770 DAT 8B』114 135O DATA 6,。114 
ささ O_ DAT 1C,BF 780 DaTaA さ 2。136 1 さ 60 DaTA 2,0 
340 DaTA ae6,B4 7?0 DATA 8,0 137O DaTA B。114 
さ 5O DATA 27,FC BOO "6 *※ YUSOMIOUSURUN ロ MA . 13BO DATA 8B。O 
3eO DaTA 14。40 B10 DATA B,136 13 ゥ O DaTA 4。55 
さ 7O DaTa 4 B2O DATa B。144 140O DaTa 4,5B 
さ B0 DATQ 26,FD B3O_ DAT B,136 1410 DaTa 4,55 
さ 390 DaTA B6』C さ B40 DATA 8B。114 1420 DATa 4。SB 
400 DaTQ a7,C4 BSO DaT 8。121 143O DaTa B:55 
41Q DaTa a6,B4 B6Q_ DATA 8。136 1440 DATA 8。O 
420 DATa 4 B7O_ DAT B。153 145O DATa 6,136 
4 さ O DaTA 26,FD BBO_ DaTA 8。172 146O DaTa 2。0 
440 DATA B6,C2 B7O DATA 日 ,1BS 1470 DaTA「6。1 さ 6 
45O DATA Aa7。C4 | 900 DAT B,15 さ 14BO DATA 2,O 
460 DATA 1C,BF UDMAs4 149O DaTa B。136 
47O DaTQ 20。E6 920 DAT さ 2。1 さ 6 15oO DAaTA B。O 
480 DaTA 10,0O ?3O DaTA Bz0 151O DATA 4,66 
49O DATA 9 940 "6 ※ MATASHTGATCHTBAN. . 。 152Q DATa 4。70 
SOO "1 ※*※*※  URUSEIYATSURA  **kk| | 750 DaTA B。1 さ 6 15 さ O DaTa 4,66 
510 "1 *※** ネ RAM NU LUVESUNG **k| | 760 DaTR BB。144 1540 DaTA 4,70 
52Q0 "6 * ANMARISMASOMA. . ・ 70 DRTR 8B,1 さ 6 155O DaTa 8,66 
5 さ O DaTa 日 , 1 さ 6 80 DaTa BB,114 156O DATQ 。O 
540 DATA B,144 990 DaTR BB,121 157O "6 * BUKIYD SUKIY ロ 。 
SS5O DATA 8,1 さ 6 100O DaTa 日 。1 さ 6 15BO DATA 6。114 
5eO DaTa B,114 1010 DATa 日 ,121 1590 DaTa 2,O 
57O DATa 日 。121 102O DATa 日 ,15 さ 1aoo DaTa 6,114 
SBO DATA B,1 さ 6 103O DaATA 8,114 161O DaTA 2,0 
ーーーーー 一 プ 1 
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リス ト 3 

1620 DaTa 日 。114 2470 DaTA 8。0 ミミ 2O DATa 日 。101 
1630 DAT B,0 2480 DaTa 日 。121 ささ さ O DaTa 日 ,107 
164Q DATA 6。55 249O DaTa 8,。O ささ 40 DaTa 日 。101 
165O DaTa 2。0 2500 DaTa 日 。121 3 さ 5O DaTa 日 9 
166Q_ DAT 6,55 2510 DaTQ 16。114 ささ 6Q DaTQ 日 。B9 
1670 DATA 2。O 2520 DaTA 14。』121 3 さ 7O DATA 16。101 
168Q DATA 8B。55 25 さ O DATaA 2。』O ささ BO DaTA B。114 
1690 DaATA B,O 2540 DaTA 12。1 さ 6 3 さ 9O DAT B』114 
17Q0 DATA 6。1 さ 6 255O DaTa 4。O さ 4OQ DaTa 日 。101 
1710 DaTa 2,0 2560 DaTR 日 。1 さ 6 さ 410 DaTA B0。89 
1720 DATA 6。1 さ 6 257O DaQTA 15 さ さ 420 DaTa ヨ 。O 
17 さ 0 DATA 2。O 25BO DaTaA 8。Q 34 さ 0 "6 * QA RCHIKHCHINI 。 
1740 DaTA 1 さら 6 2590 DaTA 8B,B9 さ 440 DATA 16。155 さ 
1750 DaTA 8。O 260Q DaTaA 8B。B4 345O DATQ 64。8B9 
1760 DAT 6。66 2610 DaTa BB,75 さ 460 DaTa 8B。O 
1770 DaTa 2。O 2620 DaTa 8。66 さ 47O DaQTQ 8,B9 
1780 DaTA 6。』66 263O DaTaA 8,7O さ 48O DaTA 8,。95 
1790 DaTA 2.O 2640 DaTA 8。66 3 さ 49O DaATA B,』B9 
1800 DaTa 日 。66 2650 DaTa ,75 さ 5OO DaTA 16。B4 
1810 DaTQ B。O 266Q DaTa B。O 3510 DAT 16, 晶 9 
182O DaTA 6。114 2670 DATA 8。』B9 さ 520 DATQ 16。 昌 9 
1830 DaATA 2。0 26BO DaTa 。B4 353O DQTQ B,B9 
1840 DAT 6。114 269O DaTA BB,75 さ 540 DaTA 24。1O1 
18B50 DATA 2。0 2700 "6 ※ ISHTITENMO・ . 。 355O DATA 16。114 
186Q0 DaTQ BB。114 271O DaTQ 12。136 さ 560 DaTA 40。101 
1870 DATA ,O 2720 DaTa 4。0 さ 57O DaTaQ 8B。O 
18BQO DAT 4。55 27 さ O DaTA 12。1 さ 6 さ 5BO "6 * MATASHIO, . 
1890 DaQTa 4,58 2740 DAT 4。0 3590 DATQ 16。1 さ 6 
19OO DaTA 4。55 2750 DaTA 12。136 さ 6OO_ DATA 16。』101 
1910 DaTa 4。58 2760 DaTa 4。0 361O DaTA 8。』101 
1920 DaTa 日 ,55 277O DaTa 136 | さ 620 DATA 40。101 
193O DaTa 8。O 27BO DaQTQ 。1 さ 6 363O DaTa 8。O 
1940 DATA 6。』1 さ 6 279O DaTa B。O さ 640 DaTA 。101 
1950 DATA 2。0 2BOO DATa 8。1 さ 6 さ 65O DATa 日 ,107 
1960_ DATA 6』1 さ 6 2810 DaTa 。O さ 66O DaTa 日 』101 
1970 DaTa 2。0 2B2Q0 DaTa 日 。1 さ 6 367O DATa 日 。B9 
1980 DATQ 日 。 136 28 さ O DATA 16。128 さ 68O DaTQ 24』101 
1990 DaTA B。O 2840 DATA 14。1 さ 6 3690 DATA 64。114 
2000 DaTA 4』66 2850 DaTa 2。0 さ 7oO DaTa ,55 
2010 DaTA 4,70 2860 DaTA 11。15 さ さ 710 DaTa 日 ,49 
2020 DaTA 4。66 2B70 DaATA 11。172 さ 720 DaTA 8B。4 さ 
20 さ O DaTA 4,70 2BBO DAT 10。15 さ さ 7 さ O DaTa ,40 
2040 DaTa 。66 2B90 DaTQ 16,1 さ 6 さ 740 DaTa BB,49 
205O DaTa 8,O 29OO DaTa 日 。172 さ 75O DaTa 昌 ,4 さ 
2060 "6 *※ HUSHITQACHTGR。。 < 2910 DaTQ 16。205 さ 760 DaTa 日 。40 
2070 DaT 12。121 2920 DAT 56。0 377O DaTQ 8。 さ 5 
2080 DATa 4。0 29 さ O "6 * IMQBDROWA. 。 ・ さ 780 "6 * QNMARIS ロ MASHMA・ . 
2090 DATA 12,121 2940 DATA 12。121 ミ 79O DATa 日 136 
2100 DaTA 4。0 295O DaTa 4。0 さ BOO DAaTa 日 ,144 
2110 DaTA 12。,121 2960 DaTA 12。121 310 DaTA 日 , 1 さら 6 
2120 DaTa 4。0 2970 DaTa 4。O さ B20 DaTa 114 
213O DaATQ 8B。121 2980 DAT 12』121 3 さ B さ O DaTA 日 。121 
2140 DAT B。121 2990 DaTA 4。O さ B40 DaTa 日 。1 さ 6 
215O DAaTa B,O さ QQOQ0 DaTA 。121 3B50 DaTa 日 。 15 さ 
2160 DaTa 。121 3Q10 DaTe 日 。121 さ B6Q DaQTQ 日 172 
2170 DaTa B,O さ O2O DaTa 8B,Q 3B70 DaTa 日 ,18 さ 
2180 DAT BB。121 30 さ O DaTa 日 。121 さ B8Q DaTa 日 ,15 さ 
2190 DaTA 16。114 さ O40 DaTa 8B,O 3B9O DaTa 日 ,114 
2200 DATa 14。121 3O5O DATA 8。121 さ 900 DATQ さ 2。1 さ 6 
2210 DaTA 2,O さ O60 DATA 16』114 3910 DaTa 8。O 
2220 DATA 12。』1 さ ら 6 さ O70 DaTA 8。121 さ 920 "6 % NATAMATITSUDEI。 . . 
223O DaTa 4,。O さ QBO DATa 日 。121 さ 9 さ O DATA 8B。172 
2240 DaTA 8。1 さ 6 309O DaTA 64。114 さ 940 DaTa 昌 ,1 さ 
225O DaTa 8B, 153 さ 10O DaTa 24。121 395O DaTa 172 
2260 DaTa 8B,O さ 110 DaTa 。O さ 960 DaTa 日 。 1 さ 6 
227O DaTa 8,。 ウ さ 120 "6 * Q UTUKONO. . - さ 97O DaTa , 15 さ 
22BO DaTA 8,。84 さ 1 さ O DATA さ 2。15 さ さ 980 DaTa 日 。172 
2290 DaTA 8B,75 さ 14O DATA 64。89 さ 99O DaTa 。 1 
2 さ O0_DQTQ 8B。』66 さ 15O DaTA 8B,。O 400O DaQTQ 日 。205 
2 さ 1O DaTA 8B,70 さ 16O DaTA 8。89 4010 DAaTA 日 , 18 さ 
2 さく 20 DaTQ 日 。66 さ 17O DaTa 8B,。95 4020 DaQTQ 8,。15 さ 
233O DaQTA 8B。75 さ 18O DaQTa 8。B9 40 さ O DaTA 日 』114 
2 さ 40 DATaQ 8。O さ 19O DAaTa 16。84 4040 DATA さ 2。1 さ 6 
235O DaTQ B,9 さ 200 DaTA 16。 昌 9 4Q5O DaTa 8B。O 
2 さ 60 DAT B。B4 さ 210 DaTa 。B 4060 "6 *※ YUSOUMIHBURUN ロ MR ・ ・ 
2370 DaTA B,75 さ 220 DaTa 昌 。95 407O DaTa 日 ,1 さ 6 
2 さ BO "6 * YUMEMIRUNO』 』。 さ 2 さ O DaQTa 日 。 ヨ 9 40BO DaQTa 日 。144 
2 さく 90 DaTA 12。121 さ 240 DaTaA 0。101 409O DaTa 日 。 1 さ 6 
2400 DaTA 4。0 さ 25O DATQ 8。O 410O DaTA 日 。114 
241O DaTA 12。121 さ 260 "6 * IKUTSUM. . ・ 4110 DaTa 日 。121 
242O0 DaTa 4,Q0 さ 327O DATA 16。1 さ 36 412Q0 DAaTa 日 。1 さ 36 
24 さ O DATA 12。』121 さ 2B0 DaQTA 16。1O01 41 さ O DATa 日 ,15 さ 
2440 DaTa 4。0 さ 29O DaTA 8B。101 4140 DATa 日 。172 
2450 DaQTA 8。121 ささ OO DaATA 40。101 415O DaTQ 8,18 さ 
246O DaT 日 。121 ささ 10 DaTa 8。O 416O DQTQ 日 。15 さ 
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リス ト 3 
4170 DaTA BB。114 428O DAT 8。15 く 4390 DaTA 0 
418O DaATA 3 さ 2』1 さ 6 4290 DATa BB。114 44QQ_DaTa 日 。 121 
419O DaTa 8,O 43OO DaTa 日 。114 4410 DaTa 0 
4200 "6 *% MRTQSHIGQAICHIBAN。 . . 4 さ 10 DATa 8。121 4420 DTRB。121 
4210 DaTA 日 ,1 さ 6 4320 DaTA 24。』114 44 さ 3O DaTA 48。114 
4220 DaTa 日 。144 4330 DaTa 16。0 4440 DATA 16。O 
42 さ O DaTQ B,1 さ 6 4 さく 40 *6 *※X ICHIBAN SUKI YO。 . . 4450 DaT 256。O 
4240 DaQTa BB。114 4 さ 5O DaTA 。114 
425O DaTA BB。121 4 さ 60 DaTa 日 。114 
4260 DaTa 日 。 136 4 さ 70 DaTA 。121 
4270 DaT ,。121 43BO DaTa 日 。114 
表 1 LET'S GO MUSIC 音階 デー タ リス ト 4 
CI CY ca C* 10 ON INTERVAL GOSUB100 
20 INTERVAL ON ] INNERVAE 唐 
C 231 114 55 26 30 POKE &H0O1AF, 25 ) 割り 込み 間隔 を 0.5 秒 に セッ ト 
C キ 218 107 52 24 40 EXEC &HE54C ) 25X20msec 二 0.5sec 
D 205 101 49 22 50 GOTO50 K ま 
D# 194 95 46 21 100 PRINT"@" : 2 
コ 183 89 43 19 110 RETURN で 2 
F 172 84 40 18 
F 半 162 79 38 17 図 2 実行 結果 
G 153 75 35 16 
G キ 144 70 33 15 
A 136 66 31 14 8DE2 一 AUTO =9D ADDRESS : A3F3 
A キ 128 62 29 13 イー キー ワー ド 中 間 言 語 コー ド 
キー ワー ド の 文字 列 が その キー ワー ド が 実行 され た 
に 】 121 58 27 12 と 0 
入っ て いる アド レス と き に 飛ぶ アド レス 
出力 され る 周波 数 =CLOCK/ 12 * (19 二 5 *(DATA))| (Hz) 
CLOCK =4915200 Hz 
図 2 を 出力 する プロ グラ ム 
100 FRA=OTU5OSTEP2』 =FEERK(&H91FD+A) 26+PEEK(&H91FE+R) 
110 MHILEPEER(E) OsC=FEEER (日 ) *※2 ロ 6+PEEK (+1 ) s PRINTHEX ま (CE) ョ リー リョ 
120 MHILEPFEER(C) ぶ 12B:FRINTCHR ま (PEEER (C) ) 』 』 ビ = ビ + 1 』 MEND: FRINTCEHR ま (FEERK(C) AND127) 』 TB 
(16) 5 WW 計 中 
130 D=FEERK (B+2) 』 ITFD 12BTHEND=D+128:FRINT "FF "』 giE=&HBEFO ELSETFD く &HCC THENE=&HBFBH 
4 ELSEE=O 


140 FRINTRIBHT$( "0"+HEX ま (D) 』2) 』: ITFE ジ OTHEND=(127QNDD ) *2+E: FRINTTAB(25) 』 "ADDRESS 
"RTBHT ま ("OO00 リ +HEX ま (FEEK(D) \*256+FEEK (D+1 ) ) 。 4) ELSEPRTINT 

150 B=B+ さ 』 MENDiFRINT 

160_ NEXT 
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I/O 81 年 5 月 号 に MIMIC シ ステ ム が 紹介 され て か ら , 
MZ-80 バ ー ジ ョ ン が 色々 と 発表 され て いま す が , FM-8 
で も 特別 な 改造 。 ハー ド の 作 加 な し で , 音声 入出 力 が で 
きる こと が わか り ま し た . 

プロ グラ ム は , 最も 基本 的 な も の で , 単に 指定 アド 
レス 間 に 音 声 デ ー タ を スト ア し た り , 指定 アド レス 間 
の 音声 デー タ を 出力 する だ け の も の に な っ て いま す . 
だ か ら 具 体 的 応用 は , みな さん に お まかせ し ます . 


使用 方 法 


まず ブロン バラ を 久 方 世 まず いそ て 光 図 前 の 家 う 5 に , 
オー ディ オ ・ カ セッ ト ・ イ ンタ ター フェイス ・ ケ ー プ ブル の 赤 
い プ ラグ を アン プ に 接続 し , 白い プラ グ を いつ も 使っ て い 
る カセ モット レコ ー ダ ー の イヤ ホン 端子 に , 黒い プラ グ は , 
外し て 置き ます . そう し た ら , プロ グラ ム を RUN させ ま 
す . そう する と , コマ ンド 待ち に な る の で , コマ ンド 表 
に 従っ て , 色々 と 試し て くだ さい . 再生 され る 音声 に きっ 
と 感動 する と 思い ます . 

O \ 導 _ 」 1 
4= レ た アパ ピー4kq 

プロ グラ ム は , BASIC 部 分 に つい て は , ほとん ど 説 明 の 
必要 は な いと 思い ます . マシ ン 語 サブ ルー チン の 方 を 少し 
説明 する と , この ルー チン は , I/O 5 月 号 の p.175 の リス ト 
を ほとん ど そ の まま 6809 用 に 書き 換え を た だ け の も の で す . 
$E50, $E51 に 上 位 , 下位 の 順 で スタ ー ト ・ ア ドレ ス , $E 
52, $E53 に 入出 力 す る バイ ト 数 を モット し て , $E00 を コ 
ー ル する と その 間 の デー タ を 出力 し ます . また 同様 に $E2 
B を コー ル す る と , 指定 アド レス 間 に デ ー タ を 取り 込み ま 
す . 

それ か ら リ スト 2 の よう に 380 行 の デー タ 文 を 書き 換え 
る と , 内 蔵 ス ピー カ か ら 音 声 を 出力 する こと が , 可能 に な 
り ま す が , か な り 音 質 が 低下 し ます . 


今回 の も の は 本 当 に 基本 的 な も の な の で , 現在 Ver.2.0 
と し て , 1/O11 月 号 の よう に スト リン グ 変 数 中 の デー タ を 発 
声 す る プロ グラ ム を 開発 中 で , 今 音声 デー タ (可愛 いい 女 
の 子 の 声 で す ) を 編集 中 で す . を こ 期 待 / 
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避 参 考 文献 
1)1/O, "81 年 5 月 号 “MIMIC システム“ 
2)F-BASIC 放 法 書 
図 1 
カセ ッ ト ・ イ ンタ ー フ ェ イ ス ・ ケ ー ブ プル 





表 1 コマ ンド 





二 衣 ・ 指 定 ア ドレ ス 間 に カセ ッ ト レ コー ダー か ら の 音 を ス 
ト ア し ます . 

OUTPUT : 指定 アド レス 間 の デー タ を アン プ に 出力 し ます . 

TEMPO : 再生 時 の クロ ッ ク ・ レ ー ト を 設定 し ます . 1 一 255 を 
え 力 CI く 江 きしろ ムー マル は 9kZK が > 

コマ ンド 待ち の と き , 単に を 押す と , プ ログラム 


が 終了 し ます . 


リス ト 1 

100 ' 水 氷 氷水 水 ※ 水 氷 ポ ボボ 光 涼 ボボ 光 水 ボ 水 光 水 水 氷 氷 率 氷 齋 水 ホ 水 ポ ボ 
110 "※ し 3 
120 "*※ VOICE Monitor Ver.1.0 し 1 
130 "※ ネ 
140 "※ 19H1 Nov. 昌 th Mritten BY JI1ETF * 
150 "※ ※ 
160 " ポ 氷 ※ 涼 水素 氷 氷 氷 氷水 涼 水 氷 率 氷 ボ 氷水 水 水 氷 氷 氷 氷水 水 氷 氷水 
170 ”" 


1BO CLEAR 50。&HDFF 

190 FOR 1=&HEOO TO &HE4F:READ 人 $iPOKE T。VAL("&H"+ 人 も ) :NEXT 

200 MIDTH 40。20』CONSDLE O,20,0, 1 

210 PRINT" **X VICE Monitor Ver.1.0 XX*※"iPRINT 

220 PRINT" FREE AREA $FOO-$7EFF" 

230 LINEINPUT"』"j 人 

240 IF =! THEN END 

250 IF A*=TEMPO' THEN 2BO 

260 IF a*="INPUT" THEN 290 

270 IF a$="DUTPUT" THEN SOO ELSE PRINT CHR$(7) :BUTO 2 さ O 

2BO INPUT AiPOKE &HE1B, AGUTH 23O 

290 BUSUB さ 10』EXEC &HE2B:EXEC &HEOO: BEEP 0O:BUTD 23O 

30O BUSUB さ 10:EXEC &HEOO』 BEEP O+BDTO 23O 

310 INPUT"Start Address "js*kBmVAL("&H"+ 人 あう 

320 IF SB<&HFOO DR S>&HZEFF THEN PRINT CHR$(7) :BDTO 310 

3 さ O POKE &HE5O。8/256』POKE &HE51 8 MOD 256 

340 INPUT'"End Address "jsE=VAL("&H"+ 人 あう 

350 IF S>E ロ R E<&HFOO OR E>&HZEFF THEN PRINT CHR$(7) : GDT ロ 
さ 40 

60 E=Eー5+1:POKE &HE52,E/256』PDKE &HE さ ,E MOD 256:RETURN 

は 70 DATA 34。 さ 6。BE。OE。50」10。BE、OE,52。A6,BO, 6。 0 日, 4B。 さ 4 。02 

3BO DATQ 25,04,B6。O1,20,01 ,4F。BZ,FD。00。B6。09。4。26,FD。 さ 5 

390 DATA 02,5Q。26」E ワ ウ 。 さ 1 , さ F。 26 1 。 さ 。 さら, 39。 さ 4 。 さ 6。 BE OE 5O 

400 DATA 10。BE。OE。52。 7 日 。FD。 02。25。FB。 6。 OB 7B。FD,O2, 69。84 

410 DAT 6,OC。4。26。FD,5Q。26。F さ 。 さ O』 01 。 さ 1 。 さ F 。26。EB, 20。 DB 











リス ト 2 


3BO DATA 25,O4,B6。B1 、20。01 4F、B7。FD。0 さ 。 日 6, 09」 4Q。 26。FD。35 














二 千 『 レ ベル , 解 





FM-8 に は 他 機 種 に み ら れ な い ユ ニー ク な 機能 が いく つ 
も あり ます が , な か で も タイ マー に よる イン タラ ブ ト と か , 
A/D 変 換 と か が , BASIC レ ベル で 組み 込ま れ て いる の は 大 
変 上 力 的 で す . A/D 変 換 は アナ ログ ・ ポ ー ト と し て , 5PIN 
の DIN プ ラグ が 背面 に 用 意 さ きれ て いて , その 接続 は , 図 1 
の よう に な っ て いま す . 

5 V の 電源 が 供給 され , 4 チャ ネル の 入力 が 可能 と いう 
こと は , 2 個 の X-Y ジョ イス ティ ッ ク , ある い は , 4 個 の 
パドル 入力 が で きる わけ で , ゲー ム 狂 さん に は 垂 基 の ま と 
だ と 思い ます . 

だ たま たま , これ ら の 機能 に ピッ タリ , フィ ッ ト す る 仕事 
が あっ た の で .、 さっ そく トラ イ し て み ま し た . 

アナ ログ ・ ポ ー ト (ANalogue PORT) の 読み 込み は , 1 
バイ ト の 値 (0 一 255) の 関数 と し て , 





| ANPORT (c, /) | 





の 形 で と り い れ ら れ ま す . 
レベ ル 0 ある い は 1 で す . 


c は チャ ネル 0 一 3 で 7 は 入力 





7 一 0 の と き 


7 三 1 の と き 


0 一 0.625V RMS 
0 一 2.5V RMS 





一 方 ,. イン ター バル ・ タ イマ は , 秒 単 位 で 1 秒 一 65,535 
秒 ( 二 18.2 時 間 ) の 設定 が で きま す が , 長 時 間 の 方 は TIME 
の 設定 に よる 割り 込み も 可能 な の で , むし ろ 1/50 秒 一 1300 秒 
の よう な 使い 方 が で きる 方 が , より 望ま し いよ うに 思い ま 
す . ここ で は 最短 の 1 秒間 隔 で 計測 し, 最大 計測 数 を 200 
と し た の で , 3 分 20 秒 と な り ま す が , 途中 で の 打 切 り も 可 
能 と し て いま す . 

計測 に は 騒音 計 の 出力 を 直接 入れ る 方 法 , 一 度 テ ー プ に 
録音 し て お いて 再生 出力 を 入れ る 方 法 。 これ ら を ペン ・ レ 
コー ダ を 通し , その ペン 出力 を 入れ る 方 法 な どい ろ い ろ あ 
り ま す が , まず それ ら の 出力 レベ ル を 確認 し て くだ さい . 

この プロ グラ ム で は , 高 感度 の 方 。. すなわち 0 一 5/8V 
(0.625V) の レン ジ を そら ん で あり ます が , NAGRA KUD 
ELSKI あ た り の 計測 用 テレ コ に な る と , 出力 は 0.1V 程度 
な の で , 20dB ぐ らい の プリ アン プ が 必要 で す . プリ アン プ , 
アッ テ ネ ー タ は 特性 の よい も の を 選ん で くだ さい . 1 秒間 
隔 の 計測 で すか ら , 一 度 レ コー ディ ング し て お いて , 何 度 
か 再生 し て 平均 を と る の が よい と 思わ れ ま す . 

RUN する と 

INPUT が 0 と な る Signal の レベ ル を 聞い て きま す が , 
ペン ・ レ コー タダ 出力 な ど で , 実際 の 出力 が 0 と な る 前 に 足 
切り を し て 出力 を 0 に し て いる よう な 機器 か ら , デー タ を 
入力 する 場合 は , その 機器 で , 何 dB か ら 足 切り し て いる か 


@ 玉 村 卓 也 








を 子 か じ め 調 べ て お いて くだ さい . 

テレ コ な ど リ ニヤ ー に 出力 され る も の で あっ た だら , ここ 
は 0 を 回 答 し ます . 

な お , プロ グラ ム の 120 行 で は , 標準 回 答 と し て , 0 を 
表示 させ て これ を 入力 に 使う つも り だ っ た の で す が , 成功 
し ませ ん で し た . 

入力 レベ ル の CALIBRATE の た め に , テー プ の 頭 に は , 
114dB の 連続 信号 を 1 一 2 分 入れ て お きま す . 

これ が 114 に な っ て いる の は , た また ま 私 の 使っ た 騒音 
計 の CAL レ ベル が 114dB (また は 10dB 刻 み で これ に 一 ) 
で あっ た だ た めで , これ に 外 の CAL レ ベル の 機器 を 常用 さ 
れる と き は , 修正 し て くだ さい . 

10 回 計測 し て 平均 が 114dB で あれ ば , テス ト を 通過 させ 
て いま す が , この テス ト 方 法 は も う 一 工夫 し た 方 が よかっ 
だ た と 思い ます . 

次 いで スペ ー ス ・ バ ー を 押し た 時 点 か ら 計 測 が 始ま り , 
読み 取り 値 が CRT 上 に 表示 され ます . 200 個 読み 取る と 自 
動 的 に 終り ます が , 途中 で [ESC] キー を 押せ ば , その 時 点 
まで の デー タ で 計算 過程 に すす み ま す . 

計算 結果 は , 例示 の よう に 標本 読み 取り 値 , 標本 数 , 最 
大 値 , 最小 値 。 巾 お よび L 5, L10, L50, L90, L95 の 
値 を 印 書 し さら に , 度数 分 布 図 を 画 き ます . 

FM-8 に は この 上 , HARDC 命 令 で 画面 を を っ くり プリ 
ンタ に 出力 で きる 機能 も ある の で , 累積 度数 曲線 を LINE 
命令 で 。 CR エ 上 に 画 き , それ を ハー ド ・ コ ピー させ る よ 
うな お も し ろ い 応用 が 可能 で す . 

L 5 値 と は , この 累積 度数 が , 標本 数 の 5 
き の 入 力 の 値 の こと で , 以下 同様 で す . 


る を 越え た と 
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な お , 例示 に 使っ た デー タ は , 模 産 デー タ な の で , 最小 10, 
最大 127 の よう な 幅 の 広い も の と な っ て いま す が , 実際 は 
こん な に ひろ が る こと は あり ませ ん . 

また 127dB 以 上 の 入力 は , すべ て 127 と し て カウ ント され 
まず 。 

印 書 に 使用 し た プリ ンタ は FM-8 専用 の も の で は な く ., 
BASIC MASTER L3 用 の TP80T を 流用 し て いる の で , 
これ 以外 の 機種 で ご ハード ・ コ ピー を と る と き は , プリ ンタ 
に 対す る 制御 コマ ンド を それ ら に 合う も の に 修正 し て くだ 
さい . 

駄 足 な が ら , 度数 分 布 図 は , 縮 少 モー ド で , タテ , ヨコ 
と も 圧縮 し て いま す . 縮 少 モー ド で は , ヨコ は 132 桁 と 見 
な され ます . し か し BASIC の 方 の TAB 命 令 で は , 現在 プリ 
ンタ が 縮小 モー ド で 働い て いる か どう か を 知る 手段 は 仕組 
まれ て いま せん . 

し た が っ て , TAB に よっ て 横 位 置 を コン トロ ー ル させ る 





す . プロ グラ ム の 390 行 の 後半 で は , 自動 改行 を 避け る た め 
に SPC を 併用 し て いま す . 








注 PRINT CONTROL COMMAND 
CHR $ (15) 横幅 を 圧縮 する 
CHR $ (18) 横幅 を 正常 に 戻す 
CHR$ (27) :“A” : CHR$(n) 
タテ 方 向 の 紙 送り 幅 を n に 設定 する . た だ し n は , 1 
イン チ (通常 の 6 行 分 ) に つき 72 だ か ら 正 常 値 は n 三 12 
で , 女 字 自 体 の 幅 は 6 に 相当 する た め n 三 6 と すれ ば ぱ ば, 
印字 の 上 下 は すき ま が で き な い . 
CHR $ (31) グラ フィ ッ ク 文 字 印 書 モ ー ド 
(これ は B・M L3 の ノン イン ター レー ス ・ 
モー ド に 相当 する ) 








と き 。 


IGR SO ニー ーー ビー 軸 I20E 





印 書 結果 が 80 桁 を こえ る と 自動 改行 さき れ て し まい ま 





90 94 。 107 103 69 97 104 日 さ 
2 さ 6 7o 4 B ミ 55 75 82 
OTN ユ 427 127 。.1152 4 120 8 2 が の 
1 114 84 124 125 72 65 6 
94 103 112 103 127 1Q00 85 74 
7O 6 さ 42 55 72 105 61 56 
B9 40 9o 62 45 90 42 10 
69 10 さ 9 76 7 さ な お 肖 才 3 92 
110 115 6 。 114 127 127 11O 78 
114 B1 101 8 さ 112 91 98 フフ 
10Z ヨミ 9 6 109 2 118 91 
92 32 。 116 127 109 10O 55 B9 
101 27772 9 102 7 73 114 
DaTA CUUNTS are 200 
MAX VALUE is= 12Z 
MIN VaLUE is 10 
DRTA RANGE is 11 昌 
L5 VaLUE is 46 
L10 VaLUE is 59 
LS5O VALUE is 89 
LO _ VALUE is 。 117 
L95 VALUE is 124 
10 
5 
10 20 3⑩ 40 50 60 70 
103 。 11 プ 7 99 91 7 96 4 99 
8 94 92 8 1 4 6 8O 
72 75 ゲス 72 74 69 Oo 71 
922 103 108 105 105 11O 10Z 98 
101 105 。 101 。 110 104 97 92 1 
のみ の アズ 68 6 和 4 6 さ 61 58 59 
月 1 75 7 2 1 1 79 に ん 9 
DaTQ COUNTS are 105 
MaX VaLUE is 11 ブ 7 
MIN VaLUE is 58 
DATQ RANBE is 60 
LS VaLUE is 6 ら 6 
L1O VaLUE is 71 
LSO VALUE is 88 
LO_ VALUE is 105 
L95 VARLUE is 107 
10 
5 
60 70 80 90 100 110 


0 7 さ 7 さ 66 50 3 46 Z 
97 10Q BS 。 104 97 1 96 120 
117 0 50 を 60 。 127 75 64 
114 9 さ 75 96 120 に ル 4 49 110 
55 79 7Z 78 7 フミ 5 0 So 
21 ん:) 57 52 71 59 6Z 6 
1O1 105 45 8 1 59 96 に と / 
7 B4 9 る 。 108 。 121 116 12O 7 
103 。 101 124 1 1 67 97 76 
88 94 94 96 92 5 107 79 
76 99 。 10 ミ 3 5 9 さ 、 11 の. 11O" 12 アプ 
110 105 BZ に ん 【 7Z B6 111 81 
80 90 100 110 120 
B6 91 9 9 さ 94 6 8Z 0 
B2 7 日 さ 1 7 74 7QO 69 
74 78 6 92 103 94 1 50 
97 。 104 105 107 106 107 107 198 
4 に = に! 98 98 B ミ 76 275 105 
B2 69 8 ミ 76 91 8 98 6 
90 


DPP 
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男 還 昌 昌 昌 間 間 昌 間 間 還 間 ベル 解 析 プ ログ ラム 





10 GOTOSO: RENM SHUND LEVEL ANaL1IZER 

20 人 =INT (ANPORT (O。O) *R+Z ) : PRINT USBTNG " 判 提 昔 基 若 "s 人 Ri:TF >MAX THEN MAX=Aa 

さ O IF <MIN THEN MIN=A 

40 D(N) = N=N+1 』 RETURN 

50 CLSgDTIM D(200) 。 し (4) 。 し (5) : N=O: QX ニ Os MTN=9999 

60 し ま (O)="L5 "3 し (1)= ニ "上 10" = し 生ま (2) ="L5O" ュ し まあ ( さ ) ="L90" = し ま (4) ="L95" 

70 UN INTERVaAL GUSUB2O: INTERVaL 1 

110 OPEN"O" 。 間 2。"LPTOs "iPRTNT 提 つ 。 CHR ま (1 ) 

120_ PRINT" INPUT カ * OO トナ iqgna1J し へ Yib n "Os:LOCATEP ロ HG (O) 一 。 CSRL TN:s INPUT ZsR=(127。 
5ーZ ) /255 

13O_PRINT"ANRLHGUE PURT J CHQANNEL O = 114dbJ tandard Siqna1 ヲ イレ テ フ タ * サイ リ 

15O_ PRINT" り J SITGNRL ) ヨミ トリ * 114 ニ ナ ゅ ヨウ ニ り O1ume ア チョ ウ セ ゆり ジテ フタ "年 イ リ 

170 =OsFUR =1TO1O: Q= ニ A+ANPURT(O。O) : GBDSUB49O』 NEXT: LHCQATE5。 日 。 1 : = ニ INT (QA*R/10+Z) s PR 
INTAs IF く >1 14THEN1 7O 

1 ヨ O_ PRINT "SPACE Ba レラ オス ト ソフ テイ ヲ ラ ロイ ジ シマ スズ " 

190 PRINT" り フェ イ シ * ロン mn 200"CHR$ も (SHF7) " テ * ス リュ PRTNT "トキ ュ ウ ェ * の チキ リタ イト キ ギ 王 S じ キー ラ オシ テ フタ * 年 イ 
EE 

200 KK 加 =TNPUT 各 (1 ) s IFK ま く >" !THEN20O 

210 N=Os INTERVAL ON 

220 IF INKEY$=CHR* ま (2 ア ) THEN 2 さ O ELSE IF _N<200THEN22O 

23O INTERVAL OFF:PRTINT : K= ニ MAXーMIN:FUR エ = ニ OTUN1 : PRTNT# つ 。USTNG " 基 料 間 共 状 "sD(T)』:NEXTsPR 
TNT 章 23 PRTNT 准 2 

240 PRINT#2。 "DATA CHUNTS are "N 

25O0 PRINT 失 2。 "MAX VALUE is "MX 

260 PRINT#2。"MIN VALUE is "MIN 

270 PRTINT#2。 "DATA RANGE 1= "に K+1 

2O DINMS(K) 』 し (O) = ニ N*。.O5: し (1 ) ニ NX。1: し (2) = ニ N*.55s 上 ( さ ) = ニ N*.9: し (4) =N*.95: し (5) =N 

さ OO FOR =OTUN-1 : ゴ =D て (TI ) MINsS (J) =S (J)+1 3 NEXT 

さ 10 =OgiH=OsPRTNT 柱 2 MAX=O 

さ 20 FOR J=OTOKi IFS (J) >MAX THEN MX=S (J) 

う 330 S=S+S (J ) 』 IFS>L(H) THEN PRINT 半 づつ 。 し (HH) "VALUE 5 " ゴ +MTNs 日 =H+1 

さ 40_NEXT:PRINT 拓 2』 PRINT#2』PRTNT 提 2。 CHR 生 (15) 3 CHR 和 ま (27) "RA"3CHR 和 (6) 3 =(INT (MAX/ 弓 )+1) 
らら FUR T=T TO1 STEP-1 

さ 35O IF TNT(T/5) * 品 =T THEN PRINT## つ 。 USTNG "" 害 章 電 拉 井 "』 丁 3sPRTNT 持 2。" |" ョ ELSE PRTINT2。 TB 
(6)" 1" 

さ 60 FURJ=O TO KiIF 8(J) >=T THEN PRINT 拉 2。" 上 "3ELSE PRINT 提 2。 "7 9 

う 37O_NEXT:PRTINT 拉 2 NEXT 

さ BO_ PRINT##2。TAB(6) 』 :FHRJ=OTUK+1 : PRTNT# つ 。 CHR ま (&H94) ss NEXT:PRTNT 柱 2 

3 さ 90_ PRINT#2。TAB(6) 』 : FRJ=OTUK+1 : パニ ゴ +MIN: ITF ITNT(M/1O)*10=M THENTIFJ く 69THENPRTNT 提 2。 
TAB ( ゴ +6) 』 MsELSE TL【F M<110 THENPRTINT 提 2。SPC(6) 』 MsELSEPR INT 六 2。SPC (5) 』 Ms 

400 NEXTsPRTNT 提 2 

人 410 PRTNT#2。CHR ま (1 日 ) : PRTNT2。CHR(27) 』" 
490 FURJ=OTU25O』NEXT』 RETURN: TIMER 





"3 CHR ま (12) :PRINT 拉 2 CLHSE2: END 





1O 








還 還 還 間 昌 還 還 昌 間 間 昌 昌 昌 間 昌 還 昌 昌 還 昌 還 昌 開 量 較 付 $ 多 FM-B8 メ モリ ・ ダ ンプ ・ プ ログ ラム 回 還 還 還 間 間 昌 間 EE 





10 CLEAR さ QQQO HPEN" ロ 2 。"LPTOg『 

20_ PRINT2。CHR 和 (27) "N'sCHR ま (2) 

さ Q INFUT "START ADDRESS END ADDRESS"' 』 E ま 。E* 

40 BEB=VAL ("SH"+B ま ) : ビニ VQL ( "&H"+E ま ) 

5O_PRINT 提 2 。RTBHT ま ("OOO"+HEX ま (B) 。4) 47 リョ 

=0 

7Q FR 1=ER TO B+7』Q=PEEK(IT) sgIF > RND 人 127 THEN E ま = 尼 +CHR 還 (人 Q) ELSER 呈 = すり 。 リ 
BQ_FRINT#2。RIGBHT ま ("0O0+HEX も ( 介 ) 。2) 4 リ 日 リリ ォ 3 日生 三 キリ 

90 FOR 1=E+B TU E+15: =FEEK(T ) : IF >= さ 2AND AX12 フ 7 THEN E 呈 ER 呈 +CHR 呈 (人 ) ELSE ER ま 三 昌 呈 すり 。 リ 
100_ PRTNT 持 2。RIBHT 和 も ("0O リ THEX 和 まま (人 ) 。2) 0 0 ョ ビニ C+ NEXT 

110 PRINT##2。" "saRTIGBHT ま ("0"+HEX ま (C AND 255) 。2) "9"iB 持 

120 BEB=B+16: IF B>E THENFRINT#2 つ FRTNT##2:PRINT##2: GHTHO さ Q ELSE 5O 
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F M-8 が 発売 され て 半年 に な り ま す が , まだ ソフ ト の 方 
は あま り 出 まわ っ て お り ま せん . そこ で ,。 プロ グラ ム の 多 
い PC- 8001 の も の を 利用 で きる よう に , この TEXT-CON 
VERTER を 作り まし た . 

特徴 と し て 次 の よう な 事柄 が あげ られ ます . 

@ N-BASIC の テー プ が その まま 読め る (機械 語 の テー 

プ に SAVE し 直す 必要 は な い ). 

9 。 グラ フィ ッ ク 命 令 に つい て は , 画面 に 合わ せ て 自動 
的 に 変更 きれ る (これ に より , コン バー ト 後 の 手 作 業 
が か な り 軽 減 さ れる). 

コン バー ト 後 , すぐ RUN で きる 状態 に な る . 


コン バー タ の 作り 方 


リス ト 1 を 入れ て くだ さい . た だ し , 999 行 か ら 1900 行 ま 
で と , 10,000 行 以後 の ヾ A= 包 HH 一 ” と ヾ :ー? は 入れ る 
必要 は あり ませ ん (入れ て も 影響 は あり ませ ん が …). 

RUN さ せる と , チェ ッ ク ・ サ ム を 出力 し て きま す . D 
ATA 文 最後 の サム と 一 致す る か 確認 し て くだ さい . 最後 
に SAVE を する か どう か 聞い て くる の で , 必要 が あれ ば 
Y| キ ー を 押し て くだ さい . コン バー タ の テー プ が で き あ が 











使い 方 


本 プロ グラ ム は , 7800H か ら 7FFFH を 使用 し ます . よ 
っ て , RE SET の 後 , CLEAR て 領域 を 確保 し ます . 
そし て , コン バー タ の テー プ を 読み 込み ます . 

次 に PC の テー プ を セッ ト し て , EXEC32000[RETI 
(LOAD [RET| の か わり ) を 入力 し ます . 

ファ イル 名 は いり ませ ん . 一 番 最初 の も の を LOAD し 
ます . ヘッ ダー を 見 つけ る と , 


Found : [ファ イル ・ ネ ー ム 〕 


と 表示 し て , プロ グラ ム 本 体 を 読み 始め ます . 完了 する と , 


が 出 ます . 

あと は 「 修 正 表 」 に 従っ て , 手直し を し ます . 不適 合 な 
所 は エラ ー が 出る の で , RUN さ せな が ら や っ て も いい と 
思い ます . 
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勾 まず テープ の スピ ー ド が 合わ な いこ と が 予想 され 
ます . PC の よう に , ハー ド で PL 工人 追尾 は で き な い 
の で , 781FH と 78F8H の 値 を 調節 し ます (テー プ が 速 
いと き に は 小さ くす る ). 

この コン バー タ では, FM-8 に 合う よう に , 下記 の 
と お り 自 動 変 更 を 行ない ます . 


太 COLOR 第 2, 第 3 パラ メー タ を 削除 ………… 〔a) 

娘 CONSOLE 第 3, 第 4 パラ メー タ を 各々 0 に …… 〔b〕 

娘 PSET  ] X 成 分 4 倍 , Y 成 分 2 倍 (LINE は グラ 
PRESET ) フ イィ ッ ク の み ) を を た > で CCP YKYYCLOOLNA20 [c〕 
LINE 

以上 の も の が 不要 の と き は 次 の よう に 変更 し ます . 

〔 a 〕 が 不要 の とき …7F1BH 26H 一 20H 

[ b 〕 が 不要 の と き …7F5FH 26H 一 20H 

【 c 〕 が 不要 の と き …7F82H 21H 一 7EH 


回 読み 込み に エラ ー ば か りす る と き は , 


7855 H 25H 一 21H 
7862 H | 


7866 H 


24H 一 21H 
786 AH 





と いう よう に する と , 読め る と き が あり ます . 


。. エ ラー に つい て 


異常 が ある と き は 以下 の よう な エラ ー メ ッ セ ー ジ が 出 ま 
すず :。 
文 Syntax ビ rror 
N-BASIC に お いて 文法 が お か し い . 
支 Undefind Line No. 
ID 変換 の 際 , 行 番号 が みつ か ら な い . 16KPC と 32K 
PC を 混用 し た と き に まれ に 起き る. 
支 Out Of Memory 
メモ リ が 不足 し た . 
文 Bad File Mode 
テー プ が N-BASIC の も の で な い . ヘッ ダー の 読み 取り 
に 提 . 條 
文 Device 1/O Error 
テー プ の 読み 取り 不良 . 
注文 印 の 2 項 以外 の エラ ー は や り 直 し て も た ぶん 無駄 で し 





ょ う . し か し , まれ に Syntax Error の と き に , RESET 
を し て 始め か ら や り 直 す と , 


参考 文献 R PEEK SCREEN 画面 以外 に 使わ れ て いる も の は ダメ . 
1 ) PC-8001 リフ ァ レ ンス ・ カ ー ド Or FORE 生け 
画面 な ら ,L ATE 二 PRINT で / 
2 ) MICRO-8 。 六法 USR 1 USR まず で き な い . マシ ン 語 の 研究 を . 
3 ) 1/O 誌 , OUT 1 POKE POKE で 1I/O ア ドレ ス へ . 
FM-8 エン トリ ・ マ ッ プ INE STOP KEY の サー チ な ら .INKEY $ で 代用 . 
FM-8 特集 記事 Ge Socos 軸 和 52 の COLOR2 は 人 
ご 胡 に す ほ 『ー) 9 に ビ 巡 4 
4) FM-8 中 間 言 語 表 . マ イコン, 41 年 10 朋 号 LINE 5.6 その まま | 線 を 引く 以外 の LINE 文 は 削除 、 
5 ) N-BASIC 入 門 。 PC-8001 中 間 言 語 表 PUT e その まま G オ プシ ョ ン 付 き な ら , 
GET @ X 4 倍 . Y 2 倍 を する . 
た だ し , 配列 の 大 き さ に 注意 / 
ERASE 】 E プロ グラ ム 次 第 で は RUN. 
DATA 廊 の 後ろ の マ | 破壊 削除 、。 ま た は , PC 
ル チ ・ ス テー トメ ント 側 で 入れ 換え て お く . 
DISK 関 係 STOP まっ た く 考 慮 に 入れ て いな い . 


うま くい く こ と が あり ます . P C の リス ト | コン バー ト 後 | 


&O 


修正 表 


修 ni コ 















































スト コンバータ ・ プ ログ ラム ・ リス ト EE 


ーーーーーーーーーー ーーー ーー ーーーー ーーーーー」 





1 は ポポ ポポ ポポ ポポ ポポ 水 ※ ポ 水 水 氷 氷水 丈 水 氷 氷水 氷水 素 ※ 東 

545 * * 

に TI ※ N-BasicC => F-BasiC ※ 

人 な し 4 TEXT CONVERTER * 

に 衣 は * Ver。 4. さ ※ 

(- 衣 * 4 

7 ※ 2/01/15 ※ 

月 3\ ※ し 4 

9 ポポ ポポ ポポ ポポ ネ ポポ パ ポポ ポポ 水 水 ポポ 氷水 水 涼 来 

100 CLEAR, &H7BOO 

110 FUR 1=&H7BOO TO &H7FFF STEP 16 

120 8=Q 

130 FOR J=1 TO 1+15 

140 READ 

150O 人 =VaL ("HH リ + 介 名) 

160 FOKE J ,。^a 

165 7 IF A く >PEEK(J) THEN STOP 

170 =S+A 

18O NEXT 

190 PRINTRTGHT* ("0O"+HEX 和 (8) 。2) す 9 。 リョ 

200 NEXT 

さ QO FRINT "SAVE? (Y/N) " 

40Q TIF INPUT を (1)="Y"' THEN SAVEM"PC.CON4 さ " 。&H7BOO。&HZFFF , さ 2000 

500 END 

999 MIDTHBO 』 KEY 10,CHR$(127) +CHR( さ 1 ) +CHR も (127) +CHR%( さ 1 ) 

100Q INPUT "Add="。 人 まあ 』 T=VAL("&H"+ 人 ) 』 INPUT"Line "し 

110O FUR 1=1 TO 1+16*15 STEP 16 

1200 =STR ま (し L)+" =&H"+HEX ま (1)+! 』 DaTA 『" 

125O =O 』 L=L+10 

130O FUR J=1I TU エ i+14 

1400 人 まあ = ま +RTGHT ま ("0"+HEX 和 ま (PEEK ( け ) ) 。2)+ す リリ 

150Q0 =S+PEEK (J ) 

1600 NEXT 

1700 人 = 人 ま +RTBHT*( "0"+HEX ま (PEEK (J) ) 。2)+! 』 "TRIBHT ま ("O+HEX$(S+FEEK (J) ) 』2) 
1BQO PRINTR$* 

1900 NEXT 

999 日 Q 

9999 ッ Add +O +1 +2 + さ +4 + 日 +6 + プ 7 + ヨ +9 +A +B +C +D +E ォ F si Sum 
10000 =&H7BOO : DaTA 7E, 7D。 OO,BD, 7B。B 日 。 さ 0』 さ 6,9F 。 さ 5, BED, D9,BB。 7E,7D。 OO ぉ - : さ E 
10010 =&H7B10 』 DATN 96。02。2B。FC,BE。FF ,。FF。 さ 0』01 96,02。20。FA。 BE,00。18 』 DC 
10020 =&H7B2O :』 DATA さ 9。46。6F 。 7 日 。 6E』 64』 さ 人 A。 2O』 47』。 ら 1 。 6 じ 。61 。7B,69。00。41 』 26 
10O3SO a=&HZB さ O : DATA 54。 さ 4。1F,B6。FD。1F。BB。BE。O0 昌 。00。 17。00。A5』24』0A。 さ O ji 4 
1OO40 a=&HZB40 : DATA 1F。26。F7。BD。CB, 25, FC, さ 5。 DF 。 BD, 5。 25。 ささ, 6。 OB。BD 』 CE 
1005O A=&H7B5O :』 DATA  BF。25,OD,BD,BB。25。29。1C。FE。 66, 4.5。 26。F1 20。15 』 51 
10060 =&H7B6O :』 DaTA  BD。AE。24。1C,BD, An。24。 1 日,BD, 人 6,24』14』1A』01 ょ 66。4 』 7E 
1007O a=&HZ7 ヨ BZ7O :』 DATA 5A。26。DC。20。O0,BD、99。25,。00。 さ 5, 9F 。 20。B4。7E。92 AO 』 1F 
10OBO A=&HZBBO : DATA 35。1F,7E。 CD。 1 。7E。D1 。 BB。 7E, 7 日 。 9D, さ O。 BC,96。A6,BO 52 
10090 =&H7B9O : DATA AZ7。AO。10. ヨ BC。04』00。25。F6。 ヨ E。 OO。FF 。 00。OO。BE』O さ 。CO 』 EO 
101Q0O =&H7BAO : DATA  BD。40。24』F9。 さ O。 1F。26。FB。 10。BE , 7。 2 日 。 BE , 7 日 ,。 20』B6 人 41 
1O110 Aa=&HZBBO : DATA  D さ 。C6。OA。BD,C6』 人 1 4。26。 CC。5A, 26。F7』C6』06』 ヨ D。BB 』 BB 
1Q120 Aa=&HZBCO : DATA さ 1。21.5A。26』F9。6F 。 4』BD。9F DF, 10,9E。 さ さ 。 OF 。 さ 5。5F 』 9D 
101 さ OQ =&HZBDO : DQATA  BD,Q9,Q6。AO』10,9C。 45。 24。A4。4D,26。F さ 。5 ビ ,C1 0 さ 。20 』 DB 
10140 =&HZ7BEO : DATA EE,。 さ 9。B6,』FD。』O2。 日 4』BO, 26。F9。 CE 。FF 。 FF 。 ささ 41 ,B6』FD 』 F デ 
1015O a=&HZBFO : DATA  O2.B4』B0,』27,F7。11 日,00。 1 日 。 さ 9。0000。00,7E,95』29 』 45 
10155 Q 

10156 いり add +O 二 1 +2 つ + さ +4 + 呈 + ら 6 + フ + 日 + キ 9 + +B +C +D +E +F i Bum 
10160 =&HZ790O : DATA DE,。45。A6,』B2』Q7』。C2。9 じ 。 さ さ 。 26。F 日 。 1F。 さ 1 EE,B4,27。5E 』 E6 
10170 Aa=&HZ910 : DATA さ O。O4。BD。 さ 4 .9C。45。24。70。 4D。27。F1。B1 、OD,。26。F さ 。EC 』 62 
1018Q =&H7920 』 DATA 1E。9F, さ 7。1F。 さ 1 。10。 さ 。 日 1 。2 フ 。12。10。AE。 1E。27。56』 さ 0 』 さ 各 
10190 =&H79 さ O 』 DATA 02。DD, さ 9。D。 1 さ 』。 4D。26。FB。 DC。 さ 9 20。E9。 EC,B4,9E』 さ 7 』 9 
10200 =&H7 ウ 940 : DaTA ED。1E。 昌 6。QOE。 7。 1D,20。CA。 6。 0。 1 。 0OD。27, さ 2 日 1。OE 』 E5 


1 





37 
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10210 
1022O 
102S30 
10240 
10250 
10260 
10270 
102BO 
1029O0 
10300 
10 さ 10 
10 さ 315 
10316 
10320 
10330 
10340 
10350 
10360 
10370 
103BO 
10390 
10400 
10410 
104SO 
104 さ O 
10440 
1045O 
10460 
10470 
10475 
10476 
1048BO 
1049O 
1050O 
10510 
1052O 
10530 
10540 
1055O 
10560 
1057O 
105BQO 
1059O 
10600 
10610 
10620 
1063O 
106 く 5 
106 さ 6 
10640 
1065O 
10660 
10670 
106 ヨ 0 
10690 
10700 
10710 
10720 
10730 
10740 
1075O 
10760 
10770 
1078BO 
10790 
10795 
10796 
10800 
10810 
10820 
10830 
10B40 
1085O 
10B6O 
107O 
10BBO 
1089O 
109O00 
10910 
10920 
1093O 
10940 
1095O 
10955 
10956 
10960 


Rn=&HZ95O 
介 =&%H7960 
内 =&H7970 
人 n=%&H79BO 
全 =H799O 
人 =&&H79aO 
人 ロ =&H79BO 
内 =&H7 ワ CO 
全 =&&H79DO 
n=&H79EO 
全 =&&H79FO 
日 


dd 

介 =&H7AOO 
介 =&H7R1O0 
。 人 =&H7A2O+ 
人 =&H7Q さ O 
人 =&H7A4O 
人 Q=&H7A5O 
内 =&H7A60 
=&H7A7O 
n=&H7ABO 
Rn=&H7A9O 
内 =&H7AAO 
=&HZABO 
人 =&HZAEO 
=&H7ADO 
各 =&H7AEO 
=&H7AFO 


2 Rdd 
=&HZBOO 
=&H7B10 
内 =H7B2O 
=&H7B さ O 
人 ロ =&H7B40 
人 ロ =&H7B5O 
=&H7B6O 
仙 =&H7B7O 
人 n=&H7BBQO 
人 =&H7B9O 
内 =&H7BAO 
=&H7BBO 
人 =&H7BCO 
内 =&H7BDO 
人 n=&H7BEO 
=&H7BFO 
dd 
台 =&H7COO 
=&H7C10 
台 =&H7CE20 
=&H7C さ O 
仙 =&&H7C40 
=&H7C5O 
内 =&H7CE6O 
=&H7C7O 
人 ロ =&HZCBO 
=&H7C9O 
=&HZ7CAO 
全 =&H7CBO 
内 =&H7CCO 
=&H7CDO 
内 =&H7CEO 
=&HZ7CFO 
* 


dd 

=&HZDOO 
=&H7D1O 
内 =zH7D2O 
=&H7D さ O 
仙 =&&H7D40 
人 n=&H7D5O 
ムロ =&H7D6O 
=&H7D7O 
仙 =&H7DBO 
全 =&H7D9O 
台 ー&H7DAO 
=&H7DBO 
内 =&H7DEO 
=&H7DDO 
内 =&H7DEO 
ムロ =&HZDFO 


dd 
全 =&H7EOO 


IEEE aa 人 


DaATA 
DaT 全 
DaTa 
DaTRa 
DaTa 
DaTA 
DaTA 
DaTa 
DaTa 
DaTa 
DaTa 


DaTA 
DATA 
DaTa 
DaTa 
DaTa 
DaTA 
DaTA 
DaTaA 
DaTA 
DaTaA 
DaT 人 a 
DaT^a 
DaTa 
DATA 
DRTR 
DaTA 


DATA 
DaTA 
DATA 
DaTa 
DaTa 
DaTa 
DaTa 
DAaTA 
DAaTA 
DATA 
DaTA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DaTa 
DATA 
DATA 
DATAa 
DATA 
DaTa 
DATA 
DaTA 
DaTA 
DATA 
DaTA 


DaTA 
DaTa 
DaTa 
DaTa 
DaTa 
DaTa 
DaTA 
DaTa 
DaTa 
DaTa 
DaTa 
DAT 人 
DaTa 
DaTa 
DaTa 
DaTaA 


DaTA 


2 フ 7 。 2E 日 1 。 OF。 27。 2 日 1 。 1 じ 。 27。26。 日 1 。 1D。27。20。 日 1 、1F 
27。 1。 日 1 22。2 つ 6。09。 6。 日 0』27。04。 日 1 22。26。FB。 さ 9。 晶 1 
E4。27。04。 日 1 。BF 。26。F フ 。A6。BO。26。FC。 さ 9。 さ 0。04。 さ O。02 
さ 0。O1 。 さ 0』01 、 さ 9。 7E。95。 29。7E。 97。 40。00。 OO。 OO0。00。QO 
OO0.00、00。00。00。00、00。00。00。BD 。7F 。 さ F 、 じ 1 。 2GB、26。F ウ 
EZ。BO。BD 。7F 。 さ F。 ビ 1 。 2 じ 。 27。 04。BD。 さ り 。 20。F 呈 。 さ 0。 1F。CC 
29。DB。ED。 日 1 。、CC。FE。01 、ED。、B1 。CE,04。2C。ED。 日 1 、C6。 28 
E7。BO。BD 。7F 。 さ F 。 ビ 1 。 2 じ 。 27。 0 日 。 1 。 29。 2 フ 。 04。BD , 15。 20 
F1 。 さ 0。1F 。CC。29。DB、ED, 日 1 .、CC。FE, 01 。ED。 1 。C6。02。EZ 
BO,。 さ さ 。5F 。 さ 9。 じ 1 。 2B。 26。 1 さ 。 OF。 00。OP』 OO。BD 。 フ F。 さ F 。 ビ 1 
2B。27。F ア 。 じ 1 。29。26。F5。O。00。26。F1 。 さ 9。00。O0。00。0O 


+O 〇 O 二 1 + す 2 + さ +4 + 紀 +6 + プ + 日 +9 +Q +B + ヒ +D +E +F 
00。00。 OO。00。00。O0。 OO。 OO。00。00。0O』 OO0』。 OO』O0。』 00。0O 
00。00.00。00。00。00。00。00。00。00。00。00、00。00。OO』0O 
00』 OO。00』00』 OO0。O0。 00。00。00。O0。00』00』00。00。00。QO 
00。00。00。00。00。O00。00。00。00。00。00。00』00。00。00。00 
00。00。0O。00。00。O00。 OO。 OO0。00。00。00。00。00』00。00。0O 
QO。00。00。00。00。00。00。00』00。00。00』00。00。00。00。0O 
00。0O。 OO』。00』O0。 OO。00。00』00。00。00。00』 OO。00。00』0O 
00。00』。00.00。00。O0。00。00。00。O0。00。00』00。00。00。0O 
00。9C。9D。9E。BO。B1 2。 5。 4。B。 6」 7。 BB, BA。BEB。 日 さ 
QO,4。BD , BE。BF 。90。91 。 AO』96。 9 日 。 ワ 700。00。00』00。92 
9 さ 。94。95。00。00。00。 OO。OO。00。99。00。00。O0。00。0O。QO 
00。0O、QO。0O0。 OO。QO。0O。O0。0O。O0。 OO。QO。QO。QO。QO。 OO 
00。00。 OO』。QO。OO。OO。00。QO』。00。O0。 OO』。O0。 OO』O0。OQ。 OO 
Q0。00。00。00。00、00。O0。O0』00。00。00』00。00。00』00。00 
00。00。QO。0O』。O0。O0。0O。00』00』。O0。00。00』0O。00。 0O。』 0O 
00。00。00。00。00。00。00。00。00。00。00。00、00。00。00.00 


+O +1 +2 + る ③ +4 + ロ +6 +7 + 昌 +9 +aA +B + ヒ ビ +D +E +F 
00。00。O0』O1。00。O2。O0。0 さ 。 00。04。00』05。 00』O6』0O。0 フ 
00。08。00.09。00』 On。FE。O2」FE。02。0O』BE。FE。FS。FE 。 01 
00。10。FE』 さ 0。FE。 さ 1 。FE。 さ 2。 FE 。 さ さ 。FE。 さ 4 。 FE。 さ 5。FE』 さ ら 
FE。 さ 7。FE。 さ 日 。 FE。 さ 9。FE 。 さ Q。 FE。02。FE。O4。FE。 0。FE。 0 日 
00。20。00』21 。FE。 22。0O。2 さ 。 00。24。 00。25。 00』26。00。27 
00。2B。00。29』00。2。00。2B。00。2D。O00。2D,。O0。2E。 00』2F 
00。 さ 0。 OO』 さ 1 。0O。 さ 2。 00。 さ さ 。 00。 さ 4。 00。 さ 5。 OO』。 さ 6。 00。 さ 7 
Q0, ミ 日 , 00。 さ 9。00。 さ 人 。 00。 さ HB。 00。 さ CD。00。 さ D。00。 さ E』 OO。 さ F 
00。40。00』41』00。42。 0O。4 さ 。 00。44。FE。 45。 OO』 46。 0O。47 
QO。 4B。 00。49。00。4。00。4B。00。4C。00。 4D。00。 4E。 00。4F 
00。50。00』51 , 00。52。00。 5 さき 。 00。54。00。55』 00,56, 00。5 ロ フ 
00,5 日 。 OO。59。0O。5A。00。5B, 0O0。5F。OO,5D。 OO,5E, 00。5F 
00。 60。00』61 00。62。 00。6 さ 。00。64。00』65』 OO。66』0O』67 
Q0。 6 日 。 00。69。00。6。00。6H。00。6D』 OO」6D。0O,6E, 00。6F 
00。70。00』71。00。72。 00。7 さ 』 00。74。00』75。 00。76』00』7 フ 
00。 7 日 。 00。79。00。7。 OO。7B。00。7C。00。7D。00。7E。00』7F 


+O +1 +2 + さ 3 +4 + +6 + プ 7 + 日 +9+ + 昌 + オ C+D オビ オォ オ F 
00』BE。 OO0』。B0。OO。B1 。0O。B2。FE。 ヨ さ 。FF 。 6。 OO。 日 4。 OO。B5 
00。B6。B7。CD。OO,BB。 00, 9。 00。 ヨ A,B7。CE。 OO、BB。FE , BC 
7D,BE』 00』B ウ 。 00。 BE。 00』BB。 00。CO。00。97。 00。 BE 00。 BZ 
00』BB。 00。BA。 OOJAR。O0。 QB。 7 日 。 BB。 7D。B9。7D。 BB, 00。 5 
QO。AO。OO。BF 。 OO。90。0O。91 。00。92。7D。45。OO。9H。 00。9 ビ 
00.9E。00.9D。00。99。00。9 さ 。00。94。00。9。0O。96。0O。B6 
QO。A7。0O。A6。OO。B4。 の 90。BE。OO。B2。 OO。 HOO。9F』 0O。A2 
Q0。BE。00。AB。00。BE。O0、BE。 OO。BE, OO。BE。OO。BE。 OO。BE 
00。BE。OO』。BE。QO。BE。O0。BE。 OO。 BE。 7D。 AE 。 OO。BE。 OO。 ビ 1 
QO、C2。00。BE。O00。AF , BE。 AE。O00。 ACE, OO。BO。OO。BE。 OO。Ca 
00。BE。FF 。 BE 。 BE 。 』OO。BE』。 OO0。 BE 』O0。 さ 。 00。 BE 。 20。 CD 
20.D6。00。 CC、20。DB。7D。 DS2。00、CF 。 00。DO。20。D7。 00。D マ 
QO。D4。FF。 さ 。OO。D1 。FF。9F。FE。BD。FF , Q2。FF 。 7。 OO0。BE 
OO0。BE。FF 5。O1 54。O1 。44。00。BE。 OO。BE。 OO。BE,FF 。 QB 
QO。E5。00』E6。00。EZ。 OO。D9。00。 DA。 OO。DB。 OO0。 DE。 OO。 DD 
20。DE, 20。 DF 。 20」EO。20。E1 。20。E2。20。E さ 。 OO。E4』00。BE 


+O +1 +2 + さ +4 +5 +6 +7 + 日 +9 + 全 + 日 キビ +D +E +F 
10。CE。FD。7F 。 BD 。 D9。E 日 。 B6,FF 。 ワ 7 。 さ 5。 BD 。 7B, 9D, OD 。 さ 5 
26,F9。 さ O 。 さ ら 。9F 。 さ 5。BD 、 D9。 BB 。 9E 。 さ 5。 BD 。 7 ワウ O0 。 7E。 7F 
0QO。ED, 日 1 BED , CA』。66」 さ 0』02』9F 。 さ 5。 ED , CA』F 1 。 7E。94。 日 9 
00。00。00。00。00。00。00。00。00。O0。00』00。00。00.00。0O 
00。00。O0。00。 OO0』。00。00。O0。00。00。0O。 OO。OO』 GO0。 OO』 OO 
00。00。00』00、00。00』00。O0』00。00。00』00。00』00。00』0O 
0O。OO。 OO』。0O』7E。 7D。 OO0。12。00。00』00』00』。 OO。 OO。 OO』 GO 
00。00』.00。00。00。00。00。00。00。O0。00。00。00。00。00』0O 
日 1 。 01 。26。 15。 じ 6。FF 。E ア 』B0。 ビ 1 。 ロ 4, 26」 05。 ビビ 。 AA。 24」 20 
05。 CC, 人 9。24。12。12。12。12。12。7E。7E。 2。O00。O0。00。OO 
0O。00。O0。00。OO。00。00。OO。00。00。O0。00。 OO』O0。00。0O 
00。00。00』00。00。O0。00。OO。00。00。 OO。00。OO。00。0O。QO 
1 , 22。26。19。E7。BO。E6』CO』27。07。 ビ 1 22。 26。F6。 7E。 7E 
B1 。 プ E。7E。 1 。O0。O0。12。O0。O00。OO。00、O0。 00。 ビ 1 日 さ 。2 フ 
08。C1 。BE。27。O4。 じ 1 。BD, 26。OE。 EZ 。 ヨ 0』 6。CO』 7 。BO。26 
FA』 7E。7E。 ヨ F。 7E。 7E。92。ED。 日 1 1 01 。27。OD, ビ 1 。04。2 フ 


+ キ O+1 + つ + マ 4 + ロ +6 + フ プ + 日 +9 + +B + 己 +D + オ EE +F 
OE。 ビ 1 。 0 日 。 2 フ 。 17。20。2E, 7E。 7E。 ヨ 0。E6。 CO。 7E。 7E。 4。E ビ 





PT 


ee 


ai 


PT 


デー 


FO 








』O 
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10970 


10980 
10990 
11000 
11010 
11020 
1103O 
11040 
1105O 
11060 
11070 
11080 
11090 
11100 
1111O 
11115 
11116 
11120 
111 さ O 
11140 
1115O 
11160 
1117O 
11180 
11190 
11200 
11210 
11220 
1123O 
11240 
11250 
11260 
1127O0 








=&HZE10 
仙 =&H7E2O0 
人 =&HZ7E さ O 
内 =&H プ E4O0 
=&H7ES5O 
内 =&HZE60 
人 Q=&H7E7O 
人 ロ =&H7EBO 
仙 =&H7E9O 
内 =&HZ7EAO 
=&H7EBO 
内 =&HZECO 
=&HZ7EDO 
全 =&H7EEO 
=&H7EFG 
日 

dd 
=&H7FOO 
=&H7F 10 
nn=&H フ F20 
全 =&H7F さ O 
内 =&HZF40 
=&H7FSO 
=&H7F60 
=&H7F7O 
人 n=&H フ FBO 
=&H7F90 
人 =&&H フ FaO 
=&H7FBO 
馬 =&H7FCO 
=&H7FDO 
=&H7FEO 
=&H7FFO 


DaTA 
DaTA 
DaTA 
DaTa 
DaTa 
DaTA 
DaTa 
DaTa 
DaTA 
DaTA 
DaTA 
DaTa 
DaTA 
DaTA 
DaTA 


DaTA 
DATA 
DATA 
DaTA 
DaTA 
DaTA 
DaTA 
DAaTA 
DATA 
DaTA 
DaTA 
DATA 
DATA 
DATA 
DaTa 
DaTA 


CE1 、 さ 4』06.EC, じ 1 、1E。B9。ED 日 1 。 さ 5, 06。20,EA、EC。 46。 1 ビ 
B9。ED。 日 1 ,E じ 。 44。 1E。 9。ED 日 1 。E じ 。 42。1E。 日 。 ED 。 日 1 。E ビ 
C4。 さ さ 。 4 日 、20。D2, じ 1 、02。27。09。C4。OF。 さ O。 1F, 6。O1 。7E 
7E。B2。EC, ビ 1 20。ED。OO。O0。O0。O0。 OO0。00。0O。 00。00。0O 
00,00。 OO。00。00』O0。00。0O。00。00。00。00。OO。00。00。OO 
00。00』00。00。00』00。00。O0。00。O0。00。00。OO』 00。 OO。OO 
00。00』00。00。00。 OO』00。00』00。00。00。00。ED。 昌 1 。ED。 じ 1 
1E, 9。 人 7,B0。E フ 。 80。 1 ビ 。FD。 10。 01 , さ 9。12。 1 じ 。FD。 さ 9。 1 の 
02。 さ 9。 DF 。 さ 5。 9 じ 。 さ 5。 12。 12。255。 0 さ 。 7E。92。QO。E6。 CO。26 
04。6F』B0。20。EA』 じ 1 。FF 。27, さ F 。 4F 。 5B, 49。E ビ 。 AB。 4D 。 26 
04。EZ。BO。20。D7。 日 1 。 FE,26。17。 じ 1 。45。26。0C。 人 6。 ビ 4 1 
1 26,EE, さ さ 。 41 。 じ 6。BF 20」 16。 じ 1 。F2。27。AF。 7E。7D。CO 
1 。20,27。0 さ 。7E。7D。BO。A6。1F。 日 1 。20。27。D4。20。15。 ヨ 6 
20。Q7。BO。 日 6。 さ 人 。 20。 9B。 12。E6。 CO。 日 6。FF 。E6。 AB。 つら 6。92 
C6。BE, 20。BD, ヨ 6。20。7E。7E。 2。00。O0。O00。0O。7E。7D。21 


+O 十 1 +2 つ ユミ 人 オ + ロ ロコ + す 6 + プ + 日 + す 9 +Q +BH + ビ +D +E +F 
10。BE。』 7B。OO。 7E 。 ささ 。 E ビ 。 じ 1 。 27 フ 。F さ 。 ED。 日 1 。E ヒ 。 1 。 1E。B9 
ED。1 。 BD,。 7 フ E。92。29。EF 。 25。F9。 選 1 。B5。 26。 40。BD。 7F , さ F 
1 。2 じ 。 2 つ 6。F9。9F 。 さ 7 。 BD 。 7 プ E。92。29。0D。25。F9。 ビ 1 。 さ 人 Q。26 
FS。 9E。 さ 7。E フ 。 1F , プ E。 フ 7F 。 12。9E。 さ 7。 6F 。 1F。 7E。 7F 。 06。BD 
7E。 92。 29。 12。25。F9。』 ビ 1 。20。27。F5。 選 1 。 さ A。 27。 01 。 さ 9。 10 
CE 。FC。7D。7E。 7F 。 12。10。CE。FC。 7D。 7E。 7F ,O6。 選 1 。 5。 26 
21 。BD』 7F 。 さ F 。 ビ 1 。 2 ビ 。 26。F9。 BD。 フ F 。 さ F 。 ビ 1 。 2 ビ 。 26。F9, CC 
FE。01。ED, 晶 1。 CE, 00。2C。ED。 晶 1 。 EE。FE。O1 。 ED。1 , 6F 日 1 
20。 人 021 。7F 。12。 じ 1 。 人 6。2 プ 。 04。 ビ 1 人 7。2 ら 。 05。 BD, フワ 。 99 
20。B0。 じ 1 。B6。26。FA。9F 。 さ 7。 DF , さ 9。 BD 。 7F 。 さ F 。 BD , 79。E4 
1 。29。26。F6。 BD 。 7 フ F 。 さ F 。 BD 。 9。E4。 1 。29。2 つ 6。F6。 BD。 7F 
さき F 。C1 。2 じ 。26。F9。BD 。 フ F 。 さ F 。 4。 ヨ 0。27。 1 1 9E。 さ 7。 DE 。 さ 9 
BD , 79。99。BD 。 7 ワウ , 99。 BED。 フ F。 さ F。 ビ 1 。 2 じ 。 26。F9』 BD。 7F 。 さ F 
C1 。2C。26。F9。E7。B0。 7E。7 フ F。 12.00.00。00。00』。 00』00.0O 
00』。00』。00。00』。00。00。00。00。00。00。00。00。00。004。00』00 
00。00。00。00。00。00。00。O0。00。00。00。00。 OO0。00。00。 12 


ee 


52 
6B 
4B 
BA 
60 
90 
1B 
出世 
EB 
1D 
41 
FB 
に メ 4 
48 
71 


Sum 
フミ 
CB8 
24 
OS 
D2 
3d 
FE 
FC 
68 
Ba 
DD 
2E 
AO 
BS 
00 
12 








『N-BASIC 中 F-BASIC テ キス ト ・ コ ン バ ー タ 。 の 改良 
N 中 下 -BASIC コ ン バ ー タ は New バ バー ジョ ン の テー プ を 読 
み 込 まな いよ うな の で 訂正 し だ も の で す . 以下 に その 変更 


点 を 掲げ ます . 


(田崎 明久 ) 
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MZB 用 の プロ グラ ムレ ス 言 語 “AUTO-2001" の 移植 版 
で す . MZB と FM- 8 では, BASIC フ リー エリ ア に 違い が 
ある の て , 今回 は カセ ッ ト 版 と し ます . も ちろ ん , 入出 力 
先 を 換え る と バブ ル 版 に も な り ま す . ディ スク BASIC の も 
と で は , フリ ー エ リア が 少な く 実 用 的 で あり ませ ん . 

小型 の デー タ の 処理 に 有効 で す . さら に 大 型 デ ー タ に 対 
応 す る に は , 工夫 が 必要 で す . 全部 BASIC な の で , 解読 し 
て 自分 用 の 簡易 言語 処理 シス テム を 作る と 便利 で し ょ う . 


A。 


ここ 


6 


の 


い 

AA AS 

DD 20 0 
AX AA XS 





ん が , 実用 面 か ら は プリ ンタ の 能力 ー ば ぱ ば い の 136 桁 ま で 処 
理 で きる よう に し まし た . その た め , 独立 し た ファ イル を 
2 つ 用 意 し て , あたかも 1 つの ファ イル の よう に 自由 に 呼 
び 出 し , デー タ 加 工 , プリ ント が で きる よう に 工夫 し て い 
ます . 

も う 一 つ は AUTO-2001 の 名 に 恥じ し な いよ うに 自動 機能 で 
デー タス 入力 ・ 計 算 ・ ソ ー ト ・ 配 列 替 え ・ 印 刷 が 自動 的 に 行 
な える よう に し た 点 で , 一 度 手 順 を 登録 すれ ば 全部 自分 で 
や っ て くれ ます . 


を 20 2 は 47 に まれ). 電 5 が が) 77. (7 だ 上 
】 な た / バ パー リア も の ゃ れれ っ 尽 7 が だ いび まい | まい 
う 析 7 を ダビ 9 e は ek 


了 94 ] 
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園 COMPAC 





下 表 の 機能 を 持っ た 2 つの プロ グラ ム で 構成 され て いま 
す . で きれ ば 1 本 に し た か っ た の で す が , メモ リ 制 約 上 デ 
ー タ ・ エ リア が 実用 的 で な く な る の で 2 六 に 分 け ま し た . 

CMT-1 は ファ イル 作成 用 と た と サーチ, グラフ , イン サ ツ と 
一 応 の 機能 を そなえ を て いる の で , 通常 の 作 表 業務 に は 対応 
で きま す . この CMT-1 で 作っ た デー タ ・ フ ァイル を フル に 
活用 する の が , CMT-3 で , 自動 機能 と 大 ファ イル 機能 (136 
桁 ま で の コン トロ ー ル ) を 持ち , 通常 の 事務 処理 は すべ て 
自動 化 で きま す . 


有 





























AA 
2 の の この へ へ この 


AE 





細か い 説 明 は すべ て 画面 上 に 表示 され ます . 

主 な 機能 は プロ グラ マブ ル ・ フ ァ ン クシ ョ ン ・ キ ー の 1 

ー10 を 押す こと で 動作 し ます . この ファ ンク ショ ン ・ キ ー 
写真 2 デー タ 表 示 


0 7019 7 ルイ 1 イ 。08, 1 9 , CV<274} た - 2 年 


| 語 / の 入 | 








の 機能 の 説明 は , 命令 入力 待ち の と き [CR | を 押す と 消去 き 
れ , 再度 [CR | を 押す と 表示 され ます . 以下 の 説明 で [ET] 一 
[F1O] は , この ファ ンク ショ ンジ キー の こと で すず す . 
最初 に , [F1O| を 押す と いつ で る 命令 入力 待ち に 復帰 で 
きる こと を 憶え て お いて くだ さい (エラ ー で BASIC に 抜け 
こと きも ). 

項目 は , メイ ン ・ フ ァイル で あれ ば ABC…, 
ル で あれ ば abc … の 記号 で 指定 し ます . 


























サ デ ププ テイ 





タ 作 成 と 印刷 ・ グ ラフ ・ サ ー チ 機能 を 備 

えた も の で , 英文 ワー ド ・ プ ロ セ ッ サ , 通常 の 作 表 は この 

プロ グラ ム だ け で O K で す . 

⑩ ま ず , プロ グラ ム を RUN す る と 新規 アー タ ・ フ ァイル 作 
成 か 前 の デー タ ・ フ ァイル を 使う の か を 聞い て きま す . 
ここ で は 新規 作成 の 円 と し まし ょ う . 

@ 日 付 ・ フ ァイル 名 ・ の や イン する と , これ が 


CMT-1 は , デー 


この ファ イル の 個 有 の デー タ に な り ま す . 以後 の テー プ 
(I/O) は この ファ イル 名 で 行わ れ ま す . 

@ 項 目 表 設定 モー ド で は ファ イル の 横 方 向 の 項目 を 設定 し 
ます が , 74 桁 。26 項 目 ま で 設定 で きま す . 残り サイ ズ 表 
示 に 注意 し な が ら 項 目 名 と 桁 数 を 設定 し て くだ さい . 
設定 の 終り は "]”" を キー イン し ます . そこ で 設定 OK か 
を 開い て きま す . 

@ 項 目 設 定 を 完了 する に は 還 を キー イン する と デー タ No.1 
の 入力 待ち に な り ま す . デー タ は 255 行 まで 入れ られ ま 
す . 

入力 モー ド で は “へ "で 上 と 同じ “ 
を 入れ る こと が で きま す . 
“<"[eR」 で その 行 の 最初 か ら “>" [CR」 で エ デ ッ ト ・ モ ー 
ド に な り , 上 の 行 の デー タ の 修正 が で きま す . 
空欄 は “," で で きま す . 入力 終了 は “[" を キー イン し ま 
す . 

これ で 命令 待ち に な り ま す が , この 段階 で 作成 され た フ 

ァイル は メイ ン ・ フ ァイル に 入っ て いま す . 
サ プ フ ァイル に 別 の デー タ ・ フ ァイル を 作る 場合 は , ま 
ず , [F2 を 押し て サブ プ フ ァイル に コン トロ ー ル を 移し ま 
す . [F2 | は 押す た びに 切り 換わり , その と き の フ ァイル 
表示 が 右上 に 出 ます . 

の コン トロ ー ル を サブ プ ブフ ァ イル に し た 状態 で CLIRETI を キ 
ー イ オン が が の ( 

サ プ フ ァイル ・ ク リア …[,」 オー ル ・ ク リア …[2 
と 開い て きま す . メイ ン ・ フ ァイル の デー タ は その まま 
写真 3 自動 計算 式 入力 


" で 左 と 同じ データ 



































人 


Np、S5 ア 0 の 7 4 ア の X/ オ 


ドリ 


に 


! 
# 
9 
に 
# 
| 
1| 
! 
1 
% 
人 
$ 


3 
信 CaE 


rareoe ーー で ーーー 





&0O 


に し て お きま す . 

[| を キー イン する と 新規 作成 か , 前 の ファ イル を 使う か 

と 開い て くる の で , を キー イン すれ ば まっ た く 同 様 に 

し て も う 一 つの ファ イル を サ プ ブフ ァイル 上 に 作る こと が 

で きま ぶ 。 

命令 待ち に お ける 各 命 令 は 右上 に 表示 し て いる ファ イル 
に 対し て 行なわ れる の で , 注意 し て くだ さい . 

@⑯[F1 | は ファ イル 内 容 の 表示 で す . [FT1 ] を キー イン する と , 
表示 する 行 番号 を 開い て くる の で , 
イ ) 全部 表示 する 場合 は "一 "か “ 
ロ ) 10 行 まで は “一 10" 

20 行 以降 は “20 一 " 

ニ ) 10 行 か ら 20 行 は “10 一 20" 
ホ ) 15 行 の み は “15" 

と キー イン し ます . この 行 番号 指定 方 法 は 他 の た と えば 
サク ジョ や グラ フ の 場合 も 使い ます . 

⑪ 表 示 の 途中 任意 の キー を 押せ ば スト ッ プ ・ ス ター ト で き 
ます : スト 生ま と どき ざ の な キー イシ する だ 
エディ ッ ト ・ モ ー ド に な り , 表示 し て いる デー タ の 修正 
が で きま す . 

⑩ こ の [F1 | と [F2 | を 交互 に 使 を ば, 両 フ ァイル の 内 容 を 表 
示す る の で , あたかも 1 つの ファ イル の よう に 使え ます 
(実際 に 1 つの ファ イル と し て 自由 に デー タ 加 工 で きる 
わけ で す が , それ は CMT-3 で 行ない ます ). 

次 に , [F3 」 を キー イン し て み ま す . 

ガメ シン コピ ーー[] ほ アテ ナイ シン サウ ツー|I2] デー タイ ン サ 

ツー[3] プン ショ イン サ ツ ー[|4 

と 閉 い て きま す . [|] を キー イン すれ ば 画面 コピ ー を 行 な 

い ぃ い , |I21] を キー イン すれ ば アテ ナイ ン サ ツ に な り ま す . 

[3| の デー タイ ン サ ッ ツ と [ 乱 の 文書 イン サ ツ で は , ファ イル 

名 ・ 日 付 の 印刷 と 自動 ペー ジ 替 え が 行 な われ ます . 

@⑯[F4 | は デー タ ・ フ ァイル を 編集 する た め の も の で , 
テイ セイ ー[] アペンド ー[2| デー タ ツイ カ , サク ジ 
ョ ー|3 














"を キー イン 


ノヽ 







































































か 国 を キー イン すれ ば エディ ッ ト ・ 
靖 。 デ ー タ だ け で な く 項 目 名 も 修正 で きま す . 量 
1 コン トロ ー ル 下 の フ ァイル へ 
他 の ファ イル ・ デ ー タ を アペンド し た り , テー プ に ある 
新しい デー タ を アペンド し だ り で きま す . ツ 3] は デモ 多 
の 追加 削除 で 任意 の デー タ を 削除 し た り , 任意 の 行 番号 
の 位置 に デー タ を 挿入 し た り で きま す . 
W[F5 | は サー チ (デー タ ・ ケ ン サ ク ) で , 
モジ レツ また は スウ ジレ ツ …[1 ジョ ウケ ン ケ ン サ ク … 
2] と 開い て きま す . [の 場合 は ファ イル の 全 デ ー タ の 中 
に ある 文字 列 ま た は 数 字 列 を 検索 し ます . [人 | を キー イン 
写真 4 自動 計算 結果 表示 




































































2, ア 0 / 7K/ 一 -3 ア 0 の "が 以 ) 
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する と ジョ ウケ ン ハ ? と 聞い て きま す . 同時 に 項目 表 を 
表示 する の で , その 項目 表 の 下 に 書い て ある ABC で , 
だ と ど え ば “AA 三 100 や また は .^C> 三 257 と 次 に キ イ ン 
する と , キー イン され た 条件 の AND 検 索 を 行ない ます . 

[Fe | は グラ フ 作 成 で 項目 表 を 表示 する と と も に グラ フ に 
する 項目 , グラ フ に する 範囲 , グラ フ の フル スケ ー ル を 
順に キー イン する と 第 1 項目 を 見 出し に し た グラ フ を 表 
示し ます . 
グラ フ 表 示 中 任意 の キー で スト ッ プ ・ ス ター ト が で き ス 
トッ プ 中 また は 表示 終了 時 に [F3 ] を キー イン する と 画面 
コピ ー し ます . 表示 終了 後任 意 の キー を 押す と , イン サ 
ツ す る か と 聞い て きま す . [| と キー イン する と プリ ンタ 
に 印刷 し ます . スケ ー ル は 自動 スケ ー リ ング で マイ ナス 
の デー タ も 表示 し ます . 

⑯[F9 | は テー プ (I/O) で , 
テー プ に セー プー[ 和 1] アラ タニ テー プ ヨ ョ リロード ー[2] と 
出 ま す . [は 現在 コン トロ ー ル 下 に ある ファ イル を テー 
プ に セー プ し ます が , ファ イル 名 、 コメント., 日 付 を 自動 的 
に セー プ で きま す . [ 包 は 現在 コン トロ ー ル 下 に ある ファ 
イル を 消し て 新 ら し く デ ー タ を ロー ド し ます が , 不用 意 
に 貴重 な デー タ を 消さ ない よう に 確認 し て きま す . 
な お , ロー ド す る ファ イル 名 が 分 ら な い 場 合 は "@" を フ 
ァイル 名 と し て キー イン する と 最初 に ある テー プ ・ デ ー 
クタ だ を ロ ミー. ド R じ は ま 59:。 

⑩ S Z[RET| を キー イン する と コン トロ ー ル 下 の フ ァイル に 

デー タ を あと 何 行 追加 で きる か を 示し て くれ ます . 








































































CMT-3 は CMT-1 で 作成 され た デー タ ・ フ ァイル を 元 に い 
ろ い ろ な 処理 を 行なう パッ ケー ジ で , AUTO-2001 の 特長 は 
これ で 発揮 で きま す . 命令 表 で 示し て ある 機能 の うち CMT 
-1 と 同じ も の は 省略 し ます . 

プロ グラ ム を ロー ド す る と , 初め に ファ イル メイ を 聞い 
て くる の で , テー プ を セッ ト し て ファ イル メイ を キー イ 
ン し て くだ さい . ファ イル メイ を 忘れ た 場合 は "@" を キ 
ー イ ン す る と 最初 に 見 つけ た ファ イル を ロー ド し ます . 

@|[ F3 | は 画面 コピ ー を 行ない ます . 

@[ F4 | は 項目 の 配列 符 お よび 追加 (同時 に で きま す ) で 現在 
の 項目 表 が 出る の で , その 項目 を 必要 な 順に 並べ 替え る 
こと が で きま す . また , ABC 十 と する と 項目 の 追加 に 
な り ま す . 項目 デー タ は 同じ も の を 入れ る , また は 個別 
に 入れ る こと が で きま す . 
この 機能 は AUTO の 特長 で 74 桁 を 超え た 範囲 まで 可能 で 。 
か つ コ ント ロー ル 下 の ファ イル だ け で な く 裏 ファ イル の 
項目 も 自由 に 扱え ます . 我々 は これ を 『 大 ファ イル ・ コ 
ント ロー ル 』 と 名 付け て いま す が , この 機能 に よっ て , 
見 か け 上 52 項 目 の 148 桁 ま で の ファ イル ・ コ ント ロー ル 
が 可能 で す -. 
つま り , 表示 され て いる 表 の 記号 を 任意 に 選ん で , た と 
えば AaBdeEtC と キー イン すれ ば , その 項目 を 配列 替え し 
て くれ ます . この 場合 74 桁 を 超え る と 表示 し ませ ん が , 
印刷 は 136 桁 まで 行ない ます . 

@⑳[F5 | は ソー ト 機 能 で , 項目 表 に 表示 され た 項目 を 大 きい 
順 か 小さ い 順 に 並べ 替え ます . この 場合 , ファ イル は 書 

き 替 えら れる の て で 注意 し て くだ さい 

ソー ト は 数 字 だ け で な く 廊 字 列 に 対し て も 行なわ れる の 

で , A BC, イロ へ ハ 順 へ の 並べ 替え を も OK で す . た だ し , 
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マル チ ソ ー ト 機能 は あり ませ ん . 

@[FZ| は 計算 機能 で 、 
項目 計算 一 [1]] タテ の 合計 一 [2] ヨコ の 合計 一 [3 
と な っ て いま す . [を 押す と 項目 表 が 表示 され , 演算 内 
容 を 開い て きま す . 演算 結果 は コン トロ ー ル 下 の フ ァ イ 
ル に 項目 と し て 追加 され ます . 演算 は 大 ファ イル に 対し 
て 行 な を る の で , フル に ファ イル を 活用 し て くだ さい . 
使え る 演算 子 は " 二 " リ ー リ リネ リリ ブリ の 7 の ツ 。 
で す . 宛 は パー セン ト , へ は 巾 (べき ) 計 算 で す . また , 
数 字 も 扱え る し , 負数 も 扱え を ます. た と そば, 一 0.8*B 
十 A も OK で す . 
小数 以下 何 桁 を 出す か 開い て 来る の で , た と えば [| と キ 
ー イ ン す る と 小数 以下 3 桁 を 4 捨 5 入 し て 表示 し ます 
(これ は 計算 の 全 ス テッ プ で 行なわ れる の て 要 注 意 ). 
"の"。 “の "の 計算 の 場合 , 分 母 が 0 の と き は 計算 結果 を 
0 に する の で , 注意 し て くだ さい . また だ た , “へ "を 不用 意 
に 使う と すぐ 桁 オ ー バ ー エ ラー に な り ま す . 

@[F8 | は 自動 処理 を 行なう 部 分 で , この 機能 で ユー ザー の 

工夫 次 第 で ほとん どの 業務 が キー 1 つ で すべ て 自動 的 に 
行なわ れ ま す . 
プロ グラ ム の 実行 一 [1]] プロ グラ ム の 登録 一 [2 
ラム の 修正 一 (3]| プロ グラ ム ・ リ スト 表示 一 [4] 
が あり ます が , [F8」 を キー イン する と 自動 的 に プロ グラ 
ム ・ リ スト を 表示 し て きま す . この リス ト は 任意 の キー 
を 押す こと に より , スト ッ プ ・ ス ター ト し ます . [を キ 
ー イ ン す る と スタ ー ト させ る プロ グラ ム No を 聞い て くる 
の で , それ を キー イン する と , プロ グラ ム の 指示 に 従っ 
て 次 々 に 計算 ・ ソ ー ト ・ 配 置換 え ・ 印 刷 を 行なっ て くれ 
ます . 

@ プ ログラム の 登録 は [l を キー イン する と プロ グラ ム に 
必要 な デー タ を 次 々 に 開い て くる の で , その 指示 に 従っ 
て キー イン すれ ば 0O K で す が , コン トロ ー ル の 範囲 が 大 
ファ イル に な っ て いる し , 書き 替え を 行なう と ファ イル 
の 項目 の 位置 が 変る 6 ので, あら か じ め プ ログ ラム の 人 簡単 
な フロ ー チ ャ ー ト と 項目 を 作っ て 置い て 登録 すれ ば 便利 
3 が 
プロ グラ ム の 種類 に は , 計算 (1.), メ イン ・ サ ブ 転 換 ( X ), 
縦 計 (C), 横 計 (L), 配列 替え (A), ソー ト (S) の 6 種 
類 が あり ます . 
プロ グラ ム の 式 は , 計算 の 場合 は 項目 間 の 四則 演算 , 2, 
巾 ( べ き ) 計 算式 を , 配列 替え の 場合 は , 項目 の 配列 順 お 
よび 追加 の 記号 を , ソー ト の 場合 は 項目 の 記号 に 小さ い 
順 な ら 1, 大 きい 順 な ら 2 を つけ た も の を 指定 し ます . 
次 の "W" は , この 処理 の 結果 に 従っ て ファ イル を 書き 替 
そる か 否 か を 指定 し ます . “"Y" な ら 書 き 替 を ます . 次 に 
新しく で きる 項目 に 名 前 を 指定 し, “CH" は その 項目 の 
桁 数 で す . “・" は , 小数 点 以下 何 桁 を 表示 する か を 数 字 
で 指定 し ます . “"P" は , この 処理 結果 を プリ ンタ に 出力 
する か 否 か を 指定 し ます . "Y" な ら 出 力 で す 。"C" は , 
連続 計算 を する か 否 か を 指定 し ます . “"Y” な ら 連 続 計算 
と な り , 次 の No. に 継続 する プロ グラ ム 番 号 を 指定 し ます . 


例 自動 計算 プロ グラ ム ・ リ スト 


回 EZPZZ5Z2727223E772ZZC0REEY2 


コン ペケ イサ ン AB 十 
な ン ABC 十 
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に つ C+D 


ーー ー0.8* B+E 
ー F1 
ーー CーD 
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[3| を キー イン する と EDIT モ ー ド に な り ま す . 不 必 要 な プ ケイ の 下 の 横 線 デ ー タ は 通常 は 表示 ・ 印 刷 の と き 出 て こ 
ログ ラム を 削除 し た り , プロ グラ ム の 任意 の 部 分 を 修正 な いよ うに し て いま す が , 配列 替 な ど を 行なう と 表示 の 
ら だ たり: で きま お. 中 に 出 て きま す . し た が っ て , 演算 や 自動 計算 処理 の 場 

[4| は リス ト 表 示 で 修正 し た 後 の 確認 に 使っ て くだ さい . 合 は タテ 計 を 一 番 最後 に や る よう に プロ グラ ム を し て く 
特に , 連続 演算 や 繰り 返し 演算 の 場合 、 プ ログ ラム を 削 だ さい . 

除 す る と 自動 的 に プロ グラ ム No が つま る の て で 要 注 意 . ⑩CYIRET を キー イン する と , コン トロ ー ル 下 の フ ァイル 

⑩ 話 が 元 に 戻り ます が , [FZ | の 演算 命令 に タテ 計 と ヨコ 計 を その まま 裏 フ ァイル に コピ ー し ます . 

の 機能 が あり ます . ヨコ の 合計 は 特に 問題 あり ませ ん が , これ は , 演算 な ど を 行なっ て デー タ が 変わ る 前 を 保存 し 
タテ 計 で ファ イル を 書き 替え る と 実は ケイ の 上 下 に 区 切 た 演算 途中 の カジ ュ ア ル ・ バ ッ フ ァ ・ フ ァイル を 必要 と 
り の 横線 が デー タ と し て 追加 され ます . これ は 小計 と 合 する と き に 使い ます . 

計 を 1 度 に や る た め に 付け た も の で , テー プ ・ ベ ー ス で 

は 小計 機能 を 省略 し て いる の で 間 腸 的 存在 に な っ て いま や 参考 文献 

3 縄田 , “汎用 デー タ 処 理 プ ログ ラム AUTO-2001",1/O, 
これ が 実は 配列 替え や 項目 追加 の と きい た ずら を し ます -. 1982.4 


mi |) O- の OOI CMT-| プロ グラ ルム ・ リ スト ERREEEERRRRREERERESERRERERRRRR 


1 ・ ポポ ※ 水 来 ポポ 水玉 米 米 ※ 米 米 ※※ 涼 米 ※※ 玉 玉 ※※ 玉 玉 
2 "AUT ロ -2001 >>> CMT-1 << く WV 1.0 
ミ "FM- 日 VERSIUN PRUGRAMMED BY CUMFAC 
4 「 ポポ ※ 水 ポポ ※※※ 玉 ※ 来 ※※ 玉 玉 ※※ 
CLEAR 5O0O。&H7FFF: DEFTNTA: DEF INTC-M: DEF INTD-Z : MIDTH BO、25: CONSOLE O。25。O。1: ON 
ERRUR BOTDB60O ま M 
6 DIM D$(1。255) 、T ま (1.26) 。S ま (1。26) 、TC(1、26) 。 TP(1、26) 、FD ま (50) 、 IN(1) 、IE(1) 、DE(1) ,F1 
も (1) 。、F2 ま (1 ) 。F さ 和 ま (1) 。、F4 ま (1 ) 。F5 和 ま (1) 。F6 ま (1) 。FT ま (1) 。T ま (1。26) 。T(1) 
7 DIM X(26) 。Y(26) 、M(26) : IE(1、1)=1 
B KEY 1。"E ョ "+CHR ま (1 さ ) :KEY 2、"9 フ "+CHR ま (1 さ ) =KEY さ 、" フ ""+CHR ま (1 さ ) KEY 4、" ハ フン リト PHR$(1 さ 
) :KEY 5。" サ ー" オ CHR ま も (1 さ ) 
9 KEY 6、"2" "+CHR$(1 さ ) =KEY 7。"*※*※"+CHR ま (1 さ ) =KEY 日 。"*X"+TCHR ま (1 さ ) :KEY 9、" テ ー"+CHR ま (1 
) :KEY 10。"goto 99"+CHR ま (1 さ ) 
20 GUSUE720O 
32 LUCATE 25、17:PRINT "アウラ シフ テバ ー ダ ヲ リフ ルト キ 1":LUCATE 25、20sFRINT "マエ テ *ー ケ 
ファ イル ヲ リカ ウト キキ 
33 IF C さ =1 THEN LUCATE 25,2 さ :PRTNT "( ファ イル ヲ カエ ML トキ <2 ヲ キー イン )":BUSUB 59BOs BEE 


=TNKEY ま :TF 人 =" の THEN さ 4 
TF = りり" THEN IF F=O THEN F=1:BOTU さ 2 
TF =" サ 9" THEN IF F=1 THEN F=O:BUTD ミ 2 
IF CS=1 THEN IF Q*='g" THEN 99 
=VAL( ま ) :TF AS DR Q=O THEN BUSUE 5OOO: BOTO 34 
3 さ 9 IF A=G THEN B2 
40 LOCATE25。17sFRTNTSFACE ま (40) : LUCATES、20s FRTNTSFACE ま (40) sLUCATE24、17:FRITNT "年 
月 日 ラ イル テ 2 の サ f。 "ELUCATE2 昌 19: TNFUT "年 リュ Z ま =RITGBHT ま ("リト 人 A、2) : じ =Z ま すり / リ sLUCRT 
E 62』OkFRINT CiTF 人 ="goto 99" THENCLS:GDTD 32 
41 LUCATE 2B、20: ITNPUT" 月 = "3 ェ 人 まま: 人 =RTBHT ま ("りり 二 仙 ま 、G) の 和束 ニ あ す 仙 あ : じじ 寺谷 各 キリ / リ ェ L ロ CATE 
62』0sFRITNT C ま :LOCEATE 2B、21: INFUT" 日 = "iR 
42 =RITBHT ま (" "すま 。 の) : 7 生 2 ます 生じ あ = じ 生ま LUCATE 62』0: じ =LEFT ま (C+BFACE ま ( さ O) 。 晶 ) :P 
RINT C ま :LDCATE 2O、2 さ : ITNFUT "ヤリ ナオ シマ スカ (Y/N) "人 ま sLHCATE2O。 2 さ ェ FRTNTSFACE* (5) : IF 
<>"N" THEN CELS: BDT ロ 2 
44 LUDCATE20、19:PRINTSPACE$(40) : LUCATEO、20=FRTNTSPACE$(40) :LDCATEO、 つ 1 :FRINTSPACE$ 
(40) :LDEATE2O。 17: INFUT" フ ァイル メイ ( 6 モジ ) = "3A ま :TFA ま ="goto99" THEN さ 2 
45 FT$(F) =LEFT$(Q ま +SPACE ま て ( ら ) 。6) :LUCRTE 日 、OzFRINT FT$(F) :LUCATE20 、 193 TNPUT" コメ ント 
( 15 モジ ) ニー "3 まま = 人 R あ = し LEFT$ (人生 。1) = TF LEFT ま (も 。7) ="gOtO 99"THEN ミ 2 
46 FT$(F) =LEFT ま (FT ま (F)+ 人 Q ま +SPADE$ (15) 、21) =LHCTE 日 、OsFRINT LEFT*$(FT$(F) 。6)3" "iR 
TBHT ま (FT ま (F) 1) :FT ま (F) =FT*(F ) +Z$ 
47 LOCATE 20。2 さ : ITNPUT" ヤ リナ オシ マス カ つづ (YZN) "3 人 SsTF 人 Q$="gOtoO 99"THEN CLS:GUT0 ミ 2 
4 日 IF A<S"N" THEN CLS: GBDTD44 
49 REM ーー 3 
0 DE(F) =O:MTDTHBO: CDNB ロ LE 1 さ 、12:LUCATEO、O ェ Y=12: TE(F) =O:F1$(F) =" 0:F2 ま (F) = リュ F さ も ( 
F) ="" ェ F4 ま (F) = りり":F ロ ま (F) = リリ ェ し あー リ リ 
1 GODSUE 100:FRINT :FRINT TAB(22)』">>> コウ モワ セ g テ イ (4 ワ 99)V ] ラ キー ゴン) くく "ELODEATE O。 
10FRINT STRING ま (79。"ー") : GDBUB 59BO 
2 LUCQTE 2G。9:PRTNT "コウ モウ カモ パフ トキ 「) コ ウ モワ ウメ イ 」 トニ ラル コト 
4 LUCATE 22。11:PRINT "コウ モワ ウメ イリ " ュ TAE (45) 』 リ ケス ウ (ブフ 4 ケ ワウ マテ" ) 『 
55 FOR 1=1 TO 26 
6 IF Y=2 さ THEN LUCATE 日 、G4:FRINT =:Y=Y-1 
57 LDCATE 日 。Y+1:FRINT "コウ モワ て "iPHR ま (64+T):" うー "ssTNPUT 人 ま :TF ="]1"THEN 71 
60 TIF LEFT$( 人 Q ま 、1) ="D"THEN G$(F。T)="B":T ま (F、T) =RIGHT ま (人 Q ま 、LEN( 人 も ) 1 ) :BDT ロ 64 
62 8B%(F、L)="N":T 事 (F。T) = 人 多 =TF 第 ="OtO 99"THEN さ 2 
64 PRTNT TAB(45) :CHR ま ( さ O) : : INFUT 人 $=:TF =" ロ OtO 99"THEN さっ 
6 TF ABC(A ま ) く 4B DR QBC(R ま ) >57 THEN BUSUE 5OOO: GOTO 64 
66 D=VAL (人) +1 
67 1IC(F、1)=D: IE(F)=IE(F) +Ds Y=Y+1 = TF TE(F) >74 THEN GOBUE こさ OO:FRINT :FRINT TaB(9) 
+! ポ ※ 氷 コウ モワ ケラ マウ フキ ーー テリ スズ ! モウ イ テ チト" セ ゅ テイ ジテ 22" サイ "FDR J=O TU 100O:NEXT: BOT 
0 5o 
6 LUCATE O。6:FRINT SFACE ま (79) : BUSUE 呈 400:LUCATE Q、 品 :FRINT "レーー+"+F1 ま (F) =LUCATE 
O。6kFRINT "INo.。 1"+F2 ま (F) :LDCATE O、7:FRINT "ヒー 一 二 "+F さ $(F ) ::TN(F) = エ 
69 LUCATE 6O。11:PRINT SPACE$(1 日 ) =LUCATE 6O。11:X= ニ 7 ミーIE(F) : エ F X<O THEN X=X+1 
70 FRINT " * ノコ リ フサ ウィ ウ = リュ Xs "ssNEXT 1 
BEEF 1:LDCRTE 7。24:BEEP OkFRINT " モミ ラ ヲ ティ セイ スル ーーー1 


2 人 本 =INEEY ま : IF 谷 リ " THEN 72 
3 IF Q ま SVOV ロ R 9 THEN BOTO 72 
=VRL (も) = TF > さ HR =O THEN BUSUB 5OOOs BOT 72 
LUCRTE 0。2 ミ sFRTINT SFRCE ま (7) 
TIF =2 THEN 5O 
TF =3 THEN C さ = ニ 0: CUNSULEB、17: GOT 10G 
LUCRTE 、4: BUSUB 52OO: BUSUB 60OsLUCRTE 9。 で さ : BOT 71 
FILE LOaD 








143 


&0 


CMT-| プロ グラ ム ・ リ スト 





83 CLS: BHSUB 5980:LUCATE 27。20:BEEF: INFUT" ファ イル メイ ニー"sFC*:FC ま =LEFT ま (FC+ リ 

リュ 6) : TF 1=1 THEN 1TF FC ま ="goto 9" THEN 15OO 
84 1TF FC* ま ="goto 9" THEN 32 
B5 IF FC 9 り THEN EE あこ 
9 F1 ま (F)= リ リュ F2 ま も (F) = リ "0 ュ F コ まま (F) ="" ュ F4 ま (F) = リ "リュ F ま (F) = リュ F6 ま (F) = "sgHPEN "1 人 1。 "CASO 
* リ + ォ FC まま: LHCATE さ D。 22s FRINT FC まま +" ヨ ヨミ コミ チュ ウ "sFHR 1=1 TO 26』 INPUT 1。 仙 生 。 昌 あじ =TF 人 N ま 
= リエ ーEND" THEN 91 
0 生生 (F。 1 ) = まま (F 。 1 ) =E 生 = TC(F。 1) =VQL (C ま ) : TE(F) =IE(F)+IC(F。1) :BUSUB 4O0s TIN(F ) = エ ェ 
NEXT + 
91 FOR 1 エ =1 TO 25S: INFUT 1』D ま (F。1): IF D ま (F。1)="D-END" THEN INFUT #1。FT ま (F):DE(F) 
= エー1s BUTH 9 さ 3 こ 





92 NEXT 1 

93 FOR エ =1 TU 26:TNFUT 柱 1。T ま (F。[):1F 生生 (F。LT)=" リ ビーEND" THEN CLUBSE #1』T(F) = エー1: GOTO 
96 

94 NEXT 1 

95 8S ま (F。1) = リ "Gi T ま (F。1 ) =LEFT 和 (LEFT 還 (FT ま (F) 。6) す !  "+MID ま (FT ま (F) 。7。1 ロ ) +SFACE$(70) 。6 


1) +MITD ま (FT 中 (F) 。22。2)+ リ / リ +MTD も (FT 和 ま (F) 。24。2)+ リ / リ +RTBHT 呈 (FT ま (F) 』2) :D=70: GBDTH 67 

96 IF C1=1 THEN 98 

8 ELS: CHNSQLE 日 。 17: BHTD155 

99 GUSUE 7000』GHSUB 55QOO 

100 IP(F。1) =1:F6$(F)=" 1 1"gFUR 1=1 TO IN(F) 一 1: TP(F。 エ +1 ) =IF(F。 エ ) 士 [ じ (F。 1) :F6 ま (F) 
=F6$(F) +SFACE ま (ITC(F。1T) 一 1)+"19sNEXT 1 

102 F6 ま (F) =F6 ま (F)+SPACE ま (TC(F。IN(F) ) 一 1)+" 1" 

109 IF C3=O THEN ロ さ =1:BOTH 200 

111 GOSUB 598O 

112 C1=1iLUCATE 70.0:BEEP 1:FUR N=O_ TO 100:NEXT N:BEEF OiQ ま = リ " ュ TNPUT 人 Q ま : 人 N ま =LEFT 








(の ) 
113 IF *="go"THEN 9 
114 "THEN 150 





120 1=INSTR( "に ョ サフ フ ? ハ ソ テーZ = ァ サー の * LC1 水 水生 ) 

130 IF 1=O THEN 15O 

135 LOCRTEO。4:FRINTSFACE ま (79) 

140 ON(1T+1) /2 BOTD 400.600、B00」1000』 1500。 1B0。 180。2000。2500。 さ 000,」 さ 000、 1 455 

145 CDNBOLEO』 25。0。 OREEYS』" り LTST"+CHR ま (13) REY さ 。 "RUN"+EHR ま (13) : KEY9。 "LDRD ":END 
150 IF C2=1 THEN C2mOI BUTO99 


155 LUCATE O、2iFRINT "ff1=E ョ ウパ 2 ニ メ イ ン > サフ トコ = フ 9 リッ ト 4= ペ ジュウ 千曲 = サ ー チ リ 
156 LDCATE 0O。3kFRINT "f6= の * ラフ f7= END fB= END 9= テ ー フ "10= メ イル イマ チ 
As ED2=1 

170 BUTD99 

1BO M=FRE(O) : M=(M-560) / (TE(F) +5) :M=TNT (M) : F M<O_THEN W=O 

182 BODSUB 7100:LUCATE O、OiFRTNT "ソコ リサ イズ" | アト "MYU キョ ウ アリ マス 。 (スキ ナ キー ラ ォ オシ 
テウ" サイ ) 

184 Q$=TNREY$*:TF 人 Q$eUO THEN 184 

1B6 BODTO 99 

199 REM ーーーーーー TNFUT -ーーーー 

200 CLS2: GDSUB598O: GHSUB5700: 人 Q ま = リリ" ェ TF DE(F) >0 THEN GDSUB 7100:LUCATE O.OiPRINT 
"ニュ ウリ ョ ワ 1 DL= サ ウミ ョ リ イ カ ルル で "EDE(F)+1:" > キョ ウ カラ 。"』:TNFUT" ワリ コミ キ " ョ ウル "ンコ " ウ 
Et 


SO05 IF =VDLV OR mVd1" THEN 250 

210 LHCRATE O。OiPRINT "! ニュ ウリ ョ の !": TF LEFT 和 ま ( 人 N ま 。2)=" ロ oO" THEN 99 

<15 RmVRL(R$): IF <1 ロ R QA>DE(F)+1 THEN BUSUB 5OOOkGOTO 200 

Se0 CELS1:LDCRTE 0。4:FRINT ">h> ニュ ウリ ョ ウ くく く UsBHSUB 5700』 BSUB 7100:LHCATE 9。OFRIN 
T ! の ウラ ン ル 「。」 オウ ワリ) ] ラ キー イフ 。 GTOE ク DU 02 の RS 4 ひので: ピグ リラ ガス) 

221 Y=B 

SS2 BEEF 1:FHR _N=O TU 1O00:kNEXT :BEEF Oi:IF DE(F)=255 OR FRE(O) 昌 OO_ THEN GOTO 5BOO 
4 生ま mV UsC ま miUUsTF =1 THEN BUSUE 59BO 

se5 FOR 1=1 TU IN(F) iLOCATE 9。YiFRINT " 1"+RTIBHT* ま (" "+STR ま (人 A) 3)+ リ 0 Ii TAEXmTIF(F 
s エ )+4:GHSUE BOOOI TF Gb(F。T)mS THEN IF IC(F。1)=70 THEN BUSUB 5200s BmMTD も (CC 6 
ュ 70) 』:C ま =X 和 BHTO 234 

2S6 1F 8 中 (F。1T)="SU THEN INFUT EsBOTU 234 

2S2B LINEINFUT C* 

230 1F Cgoto 99" THEN 99 

232 日 =RIGHT ま (SFACE ま (70)+C ま 。TC(F。T) 一 1 ) 

ITF LEFT ま も (E。7)=" リ goto ?9! THEN 99 

IF LEFT ま (HB あ 。1)= リ "DR C ま = 。!THEN = リ 

IF _ LEFT も (B 呈 。1)="]" OR C ま ="]" THEN IF 1=1 THEN 246 

ITF LEFT ま (BE も 。1) = リ く リ HR RTBHT ま (昌和 ま 。1)=! く リ HR RIBHT$(C ま 。1)=" く U OR RIBHT ま (X ま 、1) =" 
※! THEN FRINT CHR ま (30) 』 SFPRCE ま (79) 』 CHR 和 も ( さ O) : BOTO 224 

、 ITF LEFT ま (* ま 。1 ) = UR C ま = リ "> リ THEN FRINT CHR ま (3O) 』 SFACE ま (79) s CHR ま ( さ 0) 』 GHSUE 昌 
900k BUTD SS4 

S40 IF LEFT ま (RB ま 。1)= リ CU UR C ま = THEN 昌 = ニ OsFUR J=O TO エー1:B=B+ITC(F、J) :NEXT Ji 昌和 =M 
ITD$(D(F。 人 1) E+1。TC(F。』1) ) 

241 ITF LEFT も (HB ま 。1)= リ ュ リ UR Cm": THEN HB ま =MTD ま (人 。TF(F。 エー1 ) 、 エ じ (F。 エー1 ) 一 1 ) : ま = リリ 

で 43 人 中 三 人 生 +LEFT ま (B+SFPACE ま (70) 。 IC(F。 エ ) 1)+ す "1"gLOCATE O。YkPRINT "7+RIBHT ま (" リ +8 
TR ま (R) 。 さ ) すり 19+ 人 生ま NEXT 1:Y=Y+1: IF Y=24 THEN FRINT :Y=Y-1 

44 ITF =DE(F)+1 THEN D ま (F。Q) = 人 生ま ュ 人 =R+1: DE (F ) = 人 1:BHTD 222 

45 FOUR Is=DE(F) TO STEF -1:D* ま (F、T+1) =D$(F。1T) :NEXT 1kD* ま (F。Q) = 人 mA+T1: DE(F) =DE( 
F)+1sBOTD 22S 

246 LHCERTE QO。YiGOTO 515O 

50 LUCRTE 0。OiFRINT "| サー "GUSUB 52SO』 TF 人 Q$="goto 599 THEN 99 

252 R=DE(F ) : GUSUB 575SO 

254 仙 ま =TNKEY ま も : 1TF 人 Q$="0 THEN 254 

256 IF まく SVyU AND AXK>0YP THEN 99 - 

258 IF L+M:>DE(F) THEN DE(F ) = ヒー-1: BHT 264 

260 FUR 1=L TO DE(F)』FRINT 1:CHR ま (3 さ O) : IF エ =DE(F)+1-NM THEN DE(F)=DE(F)-MsBHTD 264 
262 D ま も (F。1) =D ま (F。T+M) siNEXT エ 

264 FUR 1=DE(F)+1 TU AFPRINT 1iCHR ま (3O) :D ま (F、 エ T)=" "saNEXT TiBHTO 99 




















357RENM ーーー エー 1 5 ロ 1 ay ーーーーー 

400 LHCATE Q。OiFRINT "| ヒョウ シ "  ":TF F=1 THEN BUGUB 598O 

424 GUSUE 525O 1TF 人 = リロ oto 990 THEN 99 

426 BUSUB 7100:PRINT "ニン イ ./ キー ヲ オシ テ スズ トッ フ "スタート シマ ス 。 (スト リフ ノ ト キ 「 へ ュ = テ イセ イ 。 


f 10= メ イル レイ マチ" = Y モ 日 

427 LHCATE O。4sPRINT リラ シッ 上 ョ ウシ" くく く "ELS1 

429 GUSUB 7QOsFHR 1=L TO L+M-1: 1TF 1=DE(F)+1 THEN 515O 
430 ITF 1=DE(F) AND_ RIGHT ま (D ま (F,1) 。1)=" オ 1" THEN 515O 











432 谷中 INEEY 呈 = TF 人 ="U THEN 43 昌 
434 仙 ま =INFUT ま (1) 
435 TTF mW THEN BUSUE 59OOs LUCATE 0、Y:FRINT SPACE ま (79) : BOT 4S5O 


436 1F bm" ロ " THEN 5990 
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CMT-| 
43 昌 BUSUB SS5O:NEXT TLsGUTOD 515O 
45O IF Ys24 THEN Y=Y-1:BOTH 4 さ 4 
452 BUTU 434 
49 REM 一 
55O IF Y=24 THEN FRTINT 
555 LUCATE O。YsFRTNT "1"+RTBHT ま (『 "+STR$ ま (T) 。 さ )+ す "19"+D ま (F。 1) = Y マ =Y+1s RETURN 
600 IF F=O THEN F=1= ロ =O: BUTH 99 
ら 610 F=0iG ロ =1 : BHT 99 
Z ワ REIR ーー 品 選 ロモ ビ ニー ニー ニー 
0O BUSUB 7100sLUCATE Q。OiPRINT "イン サリ |  ※※ 玉 フッ リフ ター ノー スイ リ チ 用 ハイ 9 テー イマ スカ P * 





*%※※ り GUSUB11000sFRTNT# 選 。 CHR ま (27) "0 リョ 

BONWBOBUBNSZOOSPRTNT "アメ / フ マリ フト ーーー :1 アデ ナ イン サカ に ーーー ら ジータ イフ サリ ーー ニー、 う | 

B10 人 b=INKEY も =TF =" リ THEN B10 

15 IF 人 =" ロリ 0 THEN 99 

20 =VaL (人 も) =TF > さ DR =O THEN BUSUB 5OQOOs BOTU 19 

B25 IF = さ THEN 7 

83 さ O IF =1 THEN LUCATE Q。O:PFRINT SPACE ま (159) :LHCATE O。2: HARDC: BHTU 99 

日 40 IF =2 THEN BUSUB 71OOsLUCATE Q.O:PRINT "アテ ナイ フン サリ | コウ モウ カカ 「 ナ マエ 」。「 ミ パ ュ ウ ショ 。「 ユ ウ 
ヒト ジリ リン コト ツウ ソリ コッ ド ュ ッ ニ サリ テイ マズ が "1CYZN カ < ェ 2 

5O =INEEY ま :TF 人 和 $ ま =" リリ! THEN 8B5O 

B60 IF まく 2VYU THEN 940 

62 BUSUB 7100:PRINT " アテ ナ イン サリ ヨウ シブ セト シテ ト " し カカ ヌキ ナ キー ヲ キテ 77 サイ 『 

64 人 Q 呈 =TNRIEY*TF 人 ま =" リ 0 THEN B64 

66 IF 人 $=" ロ " THEN 99 

B68 FDR 1=1 TU DE(F) :PRINT#2、MID$(D$(F,T) 。TF(F、 さ ) 、 TIC(F、 さ ) 1 ) :PRTNTt3。MTD ま (D ま (F。 1 
) 。 IP(F。2) 。 IE(F。2) 1) 

70 FOR J=1 TU 1C(F。1 ) : TF MID ま (D ま (F。1) 。 1C(F。1) 一 J。1) >"O" THEN 74 

72 NEXT J 

日 74 PRINT#2:FRTNT#2。TQB (5) MID ま (D も (F。 エ 1) 。、 IF(F。1) 。TC(F。1) JJ) す サマリ sFRTNT#FRTNT#2 
s NEXT TsBUTOU 940 

B7B BODSUB 525O: IF Ab="goto 99"" THEN 940 

BB1 GUSUB 7100』FRINT" キ " ョ ウ カ フン ヲ アリ ワー イン サリ ニー シマ スカ (Y/N) 0 Z ま =TNPUT ま (1):TF ZSeWYI 
THEN D=40: GUTU 7 

BB2 D=BO 

BB7 ド =OsGDSUB 7100:sFRINT " ファ イル メイ にゅ ツケ ライ フサ リー シマ タカ ー(Y/ZN) 2 リ :LHCATEO。S:FRINTSFRACE* 
(159) 』 iLUCATEO。2: BUSUB 5100 

BB =INKEY$ ま も: ITF 人 Q ま ="! THEN B88 

9 IF =VY! THEN FRINT#2。LEFT 和 ま (FT ま (F) 。6) 3" "saMID ま (FT ま (F) 。7。15) = TE(70) si MID ま (F 
本 (F ) 。22。2) 』"/ リ ュ MTD ま (FT ま (F) 。24.2) "リノ リュ RIGHT 生 (FT ま (F) 。2) : BHTU B91 

90 BOTO 92 

891 FRTINT 皇 2 。STRTNG も (7 ヨ 、" 一") :FRINT#2sFRTNT 拉 2 

B92 人 =Os 全 =LEFT 和 ま (F1 呈 (F) 。LEN(F 1 中 (F ) ) 1 ) : =LEF (さま (F) 。LEN(F さ (F ) ) 1 ) : じ ま =LEFT 生 (F 
も (F ) 。LEN (F ま (F ) ) 1 ) 

893 PRTNT2。 リ ーーー エリ 名 トリ コリ sgFRTNT 折 2。" INO。1"+F2 ま (F) FRTNT#2、" ビー"+B ま + リ ゴリ" ェ FOR 【 エ = し 
TU L+M-1: IF T=DE(F)+1 THEN 900 

B94 IF IDE(F) QAND RIGHT$(D ま (F。 1) 。1)=" ゴ " THEN 990O 








B9 IF 2Z ま =VYU THEN PRINT せ 2。F6 ま (F) 

96 PRINT##2。 "197+RTGHT ま (『 "+STR ま (1) 。 さ )+ す "1"+D ま (F。 1) : =Q+1:TF (Q/D)=INT(A/D 
) THEN GBDSUB 905 

9 NEXT 1 


900_ FRTINT##2 "レーー ナ リキ ます "コリ ュ BUTU 940 

?05 PRINT#2。" ーーー リキ じ ます リコ リュ FUHR 1=O TO 6:FRINT##2:NEX1 C:FRTNT 人 "ーーー て リオ ます "リュ 8ER 
1NT2。" INO。1"+F 人 で 第 (F ) sFRTNT#2 "ヒー 一 寺 " B+" コ リュ RETURN 

540 FUHRJ=QTD4:FRTINT#2iNEXTJs LUCATEO。2 xsFRINTSFRCE ま (159) 』 : BUTO99 





55 FOR C=Q TH 14:FRINTH2sNEXT CiFRINT#2、" "生ま (F、1) FRTNT2、" "+BTRINGB$ 
(71。"ー") :FRITNT キ 2rFRTNT2:RETURN 
99⑦9 RE ーーーーー editing ーーーーー 


BUSUB 7100:LUCATE O、OiPRINT " ジュ ウー | テイ セイ ーーー 1 アバ 0 フ トド ーーー づ デー の 7 カ 、 す の シ 
ー 3"。 

=TNEEY:TF 人 =" の THEN 101O 

IF ="g" THEN 99 

=VQL (人 も) : TF > さ ロ R =O THEN BHSUB 5O0O:GDTU 1o1O 

IF =1 THEN 4000 

IF =2 THEN 410O 

IF =3 THEN 20o 

15OO GOBUB 710O:FRTNT " テー フ " ニ セー フ " ーーー1 アラ 9 ニ テー フ ? ヨリ ロート" ーーー2 " 

1510 人 bmTNEEY ま :TF 人 Q 生 ="O THEN 151O 

IF Q$=Vg"' THEN 99 

=VAL (QA) :TF ASS DR =O THEN GBDSUB 5OOO:GDTO 151O 

IF =2 THEN GOSUB 750: GUTU 180O 

CLS: BUSUB 7100:LUCATE O、OFRINT " セー | トシ 5 フ 2 ファ イル メイ ト 上 の ケ セー 
3"sLDCATEO。 王 : BUSUE 呈 100:BDSUB 598o 

人 =TNREY ま :TF ="" THEN 157O 

TF Q$="g" THEN 99 

IF ="Y" THEN FC* ま =LEFT* ま (FT*(F) 。 ら ) kBDT ロ 1625 

1600 LUCATE24。2O: INFUT" フ ァイル メイ ー( 6 も ) = "iQ ま ょ TF 人 生 =" ロ O も oO 99" THEN 99 
1610 FC=LEFT ま (生ま +SPACE*(6) 、6) =LUCATE25、 ら 1 : INFUT" コ メッ ト (1 モミ ) = "3 ュ 人 asFD ま = し LEFT 
(FC 人生 TSFACE*(1 王 ) 。 ら 1) 


















162O LUCATES4。23: TNFUT "リサ 2 セイ 年 ( で モジ ) ーー iR 呈 = 仙 ま =RTGHT ま (! リ 二 仙 ま 。G) :F ビ =F ビ 事 十 邊 
162S LUCATE24。 NFUT" 月 ( 2 モデ ) = は 上:A1 NIGHT も (リリ 二名 。 介 じ ま =F ビ まま 十 全 中 
1624 LUCATE24。24s INFUT" 日 ( 全 モジ |) ニー 。 も: 人生 =RTGHT 生 (りり 中 人 で) 上 ビ 本 =ーF ビ ます 人 Q 生 ミ FT 





外 (F) =FCb: EL1 

1625 LUCRTESO。20s PRTNT "テー2? へ セー ブ * マリ 

163O_UFEN"H"』 攻 1 "ERSO ェ "リト LEFT ま (FC まま 。6) LHCATE 2 日 。2 さ :FRTNT LEFT ま (FC ま 。 ら 6)" ヲ カキ コミ チュ 
PL 

1640 FOUR 1 エ =1 TH IN(F) :PRTNT #1。1 エ 上 ま (F。1) 、 ま (F、T) 。STR ま (1C(F。1) ) :NEXT 1TzFRTINT 柏 1、" エ ー 
END"。"X"、VXT 

16SQO_ FOUR 1T=1 THU DE(F) :FRINT 手 1。D ま (F、T):NEXT TiFRTNT #1、"D-END" FRINT 半 1。FT ま (F) 
1654 IF T(F)=O THEN 1656 

1655 FUR =1 TU T(F):FRINT 1。T ま (F。J)sNEXT J 

1656 FRTNT#1。 "ビーEND LHSE 提 1 

1660 CLS1:LUCEATEO。6 ょ FRTINTSFACE' ま ( フ プ 9) :FRTNTSFACE ま ( プ 9) = GBDT ロ 99 

1OO HH あ =INEEY 生 : TF EB ま =" リ 0 THEN 1OOT 

18O4 IF HB ま YP THEN 99 

1 ヨ OB_ FUR 1=O T ロ DE(F):D ま (F。 エ T)=" "=NEXT 1:TE(F)= ニ 0QF1 和 ま (F)ー" "0 ュ F コ ま (F) = リュ F さ ま (F) "5F4 
和 ま (F)= リ リュ F ロ 生ま (F)="" ュ F6 ま (F) : DE(F) =O 

109 BOTO ヨミ 

OO00_CLS1: BUSUE 7100sLUEATE O、OgFRINT " サーチ 。 | モミ が ニー マ リリ コウジ "し リー カン サウ ーーーー1 バハ ョ ウケ フ 
ケッ サウ ーー ニー-2VsLHERTE O。 弓 :BHSUB 5O5O 




















本 前 








145 


0 


CMT-1 


プロ グラ ム ・ リ スト 





ー 





146 





で 042 も =TNRKEY ま = IF まま = リリ" THEN 2042 

2044 ITF まま =" ロ リ UR 人 QA ま ="B" THEN 99 

SO46 =VaL (人 Q 和 ま ) =TF 2 UR =O THEN BUSUB 5OOOs GUTOU 2042 

2O4 昌 IF =2 THEN 2100 

2O05O BUSUBR 7100: INFUT" モミ ドレ ルリ マグ リース ウシ トレ リー リュ 日 加 =TF 日 和 =Wgoto 99! THEN 99 

SO51 BUSUB 7100:FRINT" ファ イル ヲ カキ カエ マヌカ (Y/N) 人 リ 

2052 本 =TNKEY も : IF も = リリ 0 THEN 2052 

2053 ITF の 生 = リ ロリ " THEN 99 

SOS4 TF 人 ま =VYU THEN =O 

2060 BODSUB 71O0:FRINT "  "』 昌 本" ヲ カン サフ チュ ウ 。"sLUCATE O。4sPRINT リタ テト ガッ ササ 2 て で ミー て 
HB まり うり":B=1: GUSUB 5700 

2062 LUCATEO。 日 :FDR 1=1 T ロ DE(F) :FHR ゴ =1 TU IE(F) : IF MID$(D ま (F。1) 。J。LEN(H 和 ま ) ) ニ H ま も T 
HEN BUSUB 2092:GOTU 2066 

2064 NEXT JsGUT ロ 206 

2066 IF まま = リ "YU THEN =Q+1:D ま (F。 人 Q) =D ま (F。1) 

S068 1JK=CSRL IN: LUCRTEO。 1JK:PRTNT TsLUCATEO。 1JKsNEXT 1 

2069 IF =VY" THEN DE(F ) = 

2071 GOTO 51SO 

2092 FRINT +RITGHT ま (『 "+STR$ ま も (1) 。 さ ) す "17+D ま (F。 1) :RETURN き 

2100 CLS2 ェ し =1 : 7 和 ま = リ ショ ウケ ーー ニーーー "日 = ニ 1 : BSUB 710O=PRTNT " ビ =1 ロ マタ HB く =200 フ ヨ ウニ ニシ" ョ ウケ 
ン ヲ 、 オ ワ ル トキ ハコ] ヲ 7f し ルル 。 "=sLUCATE O。5: BUSUB 5O5O 

2102 LUCATE 0O。 さ :FRINT SPACE ま (79) : FRINT SPACEE ま (77) :LUCATE O。3:FRINT Z ま > INPUT リ ショウ 
サフ ハリ 人 R ま =TF 人 Q ま ="goto 59" THEN 99 

2104 IF 人 ま = リ ]" THEN 2132 

2106 ド =1 : じ =MTD も ( 介 も 、 つ 、 1 ) : B ま =MTD 和 も ( 人 まつ 。 つ ) : 人 RSC (LEFT ま (人 生ま 。1) ) 一 64:TF QX1 ロ R >26 TH 
EN GOTO 2102 















210 BUTOU 2122 
2110 リ THEN J=5 ロ : GUTO 2122 
2112 >" THEN =6: GUTD 2122 
2114 BHT 2124 


2116 IF C*=" く リ THEN J=2s GUTU 2124 

211 日 IF じ ま =">!0 THEN = さ :BUTHD 2124 

2120 BUSUB 5OOO: GOTO 2120 

2122 ド =K+1 

2124 K= ド 1 』 7 ま =Z 征 二 仙 二 り 。 リ 

2126 X ま =MID ま (人 Q ま +SPACE ま (20) 、 ド +1 。 TIC(F。Q) 一 1 ) : IF 8 まま (F。Q)="N" THEN X ま =RTGHT も (も 。LEN( 介 

も ) 一 ) : X 和 ま =RTGHT 和 ま (SFACE ま (5O) +X ま 。 1C(F。Q) 一 1 ) :M(L)=1: BUTO 2130 

2128 WM(L)=O 

21 さ O FD* ま (L)=X ま =X(L)=RsY(L) = ミニ し +1 : GUTO 2102 

21 さ 2 BEEF: BUSUB 7100:PRINT "ファ イル ヲ カキ カエ マス カ (Y/N) 『" 

21 さ 4 Y ま =ITNKEY ま = IF Y ま も THEN 2134 

21 さ 6 IF Y ま ="g ロ " THEN 99 

2137 IF Y ま ="Y! THEN ビ =O 

213 BUSUB 7100sPRINT "2Z ま 』" り ブ ケン サフ チュ ウ 。 "=LUCATE 0O。 さ FRINTSPACE ま (79) sFRTNT " 
ッッ ッ > ガン サフ くく く て "2 第 5 の 9 う "sBHSUB 5700 

=140 LUCATEO。 日 :FUR M=1 TU DE(F)+2: 1JK=CSRL IN: LHCATEO。 1JK:FRINT MM:LUCATEO、1JK 

2142 FHR _N=1 TO Lー1: エニ X(N) : X 呈 =FD ま (N) : ゴ =Y(N) : 内 =M(N) : IF M=DE(F)+1 THEN 2195 

2144 Z ま =MID$(D$(F、M) 。 IP(F。 1) ,IC(F。1) 一 1 ) 

2146 ON J BOTO 214B。215B』216 昌 。2176』2181.21B6 

214 昌 IF M=O THEN 2154 

2150 IF VaL(Z 和 まま ) =VQAL(X ま ) THEN 2191 

2152 GOTO 2194 

2154 1F Z ま も =X 和 ま THEN 2191 

2156 BOT 2194 

215B IF MM=O THEN 2164 

2160 IF VaL(Z ま ) く VQL(X ま ) THEN 2191 

2162 BUTOU 2194 

2164 IF 2 まく X も THEN 2191 

2166 BUTU 2194 

2168 IF MM=O_ THEN 2174 

2170 IF VQL(Z*) > VQL(X ま ) THEN 2191 

2172 BOTO 2194 

2174 IF Z ま >X 和 も THEN 2191 

2175 GOTO 2194 

2176 IF MM=O THEN 2179 

2177 IF VaL(Z ま ) く >VAL(X ま ) THEN 2191 

217 ロ GUTO 2194 

179 IF 2 まく >X 和 まま THEN 2191 

21O BUTO 2194 

21 日 1 IF WM=O THEN 21 ヨ 4 

21B2 IF VaL(Z ま も ) く =VQL(X ま も) THEN 2191 

2183 GOTO 2194 

21 昌 4 TF Z 和 まく =X ま THEN 2191 

2185 GUTO 2194 

16 IF WM=O THEN 2189 

21 ヨ 7 IF VQL(Z ま ) >=VQL(X ま ) THEN 2191 

218B GUTO 2194 

で 1 ヨ 9 IF Z 和 も >=X 和 も THEN 2191 

190 BHTH 2194 

2191 NEXTN 

S192 PRINT "TRIGHT ま (" リ +STR ま (IM) 。 さ ) キ "0+D ま (F。M) 

219 さ ITF Y$="Y! THEN ビ = ビ +1 =:D ま (F。C) =D ま (F。M) 

2194 NEXT NM 

2195 IF Y も ="Y" THEN DE(F)= ビ 

2197 BOTO 515O 

2500 CLS1: LUCATE O、 呈 : BUSUB 505Os GUSUB 7100:LUCEATE 〇 O。Os INFUT "の "ラフ 1 (サイ ショ ノ コウ 

モ フ カカ " ミク" ミ / ニニ ナリ マス ) "ラフ ニニ スル コウ モウ "』C ま =TF じ ま =" ロ oto 99" THEN 99 

2520 ド =ASC(C ま ) 一 64: TF KEK>TIN(F) ロ R K く O THEN GUSUE OOO: GUTD 25OO 

25 さ 0 BUSUB 525OsIF Aa oto 99!" THEN 99 

2540 GOUSUB 7100: INPUT " (ヒョウ シノ トチ ュ ウ † う = カメ フー フリ ント ) フル スケ ガール ヲ イレ テー 2" サイ 。 "SCC ま s 
IF CC* ま = リ "goto 99" THEN 99 

S55O _D=LEN(CC ま ) : N=VQL (CC ) 

S60 MM=Es =TNT((76-1 ビ (F、1 ) ) /4) *4: EDNBHLE4。21:ELSSsFRTINT TAB(2S4)』 リボ ※ 涼 リ g1 ま (FR) ェ 
リフ の ラフ  ※%※"sFPRINT TAB(S4) asSTRING ま (1C(F、E) ユ 17 か 

2590 FRINT TAB(TCE(F。1) 一 1) 』 "OO" SPACE ま ( 介 /GーD) kN/SBEFRINT TE(1IC(F。1)+ 人 ローDー1 ) iC ビ HR ま ( さ O 
)sN 

2600_ PRINT TB(IC(F。1) 一 1) "上"zSTRING ま (人 Q/4ー1 "リー") 9 十 " り sSTRTINB も (74ー1 "リー") 』 

B ま (A/4ー1 。"ー") ミリ 十 " り sSBTRINB ま (AZ4ー1 リー") 9 リョ 

2605 LHCATEO。4:FHR エ =L THU L+N-1:iF エ = ニ DE(F)+ ミ 3 THEN 2622 




















sSTRIN 
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2607 PRINT TAB(IC(F、1) 1) 』 "1" SPACE ま (人 Q/4ー1)』 "1" <SFACE ま ( 介 /4ー1) ょ "17 SFACE ま (人 4ー1 ) s 
"1" SPACE ま も ( 代 /4ー1 ) "9 17 CHR 和 も (さり ) 

261O IF エ 1=L THEN LUERTE O。4 

で ら 612 本 =TNEEY 和 も も: TF THEN 2619 

2614 生生 ーTNEEY 和 = TF まま =" リ 0 THEN 2614 

261 ロ IF 介 生 = リ "カリ THEN BHSUB 2B10O:CUFY 1:FUR J=O T ロ 4kLPRTNT :NEXT J:BUTH 99 

619 FRINT LEFT 呈 (D ま (F。T) 。T じ (F。 1 ) ) i :B=VQL (MTD ま (D ま (F。 エ ) 。TF(F。M) 』 ICE(F。M) 一 1) ) :TF BSO 
THEN BSB=QBS て B) : ビ =INT((QESE/N) *Q) :FRINT BTRTNG ま ( じ 。 "= リ ) キ "(マイ ナマ ) 『 

620 IF BO _ THEN =TNT((B/N) *Q) =FRINT STRTING ま (ビリ ー リ ) 

2621 NEXT 1 

Sd22 BHSUB 2B1O 

SG 人生 =ITNEEY 和 も:TF 人 呈 ="0 THEN 262 さ 

で 信人 生 エ F 仙 生 = リ カリ" THEN HRRDC: GUTH99 

S630 BUSUB 71OGsLHCATE 2B。OsFRINT" パーサ リー シマ マカ ー(Y/ZN) すり: Y ま =INFUT*(1) : TF Y 員 

EN 277 ミ さ 

700_ BUHSUB1100O PRTNT 壮 2。TQB(S4 ポ 涼 。 "s1T ま (F。 ト 

STRTINB ま (TC(F。E)+17。"") FRTNT2: PRTNT 持 つ 。 ビ HR ま (2 ) 

マミ 702 FRINT 拉 父 。TB(TE(F。1) 一 1) "OO" BPRCE も (R/2ーD) sN/2 
2710_ PRINT# 人 8。TQE(TC(F。1 ) 1 : STRTNGB ま (人 /4ー1 リー 

RING ま ( 代 /4ー1 。 リー") ミリ 二 "!aSTRING ま (7/4ー1 リー") 89 オリ 

2720 FUR 1=L TU L+M-1: IF エ =DE(F)+1 THEN 2770 
2730 FRINT#2。 TB(TC(F。1) 1 ) "17 。SFPACE ま (人 Q/4ー1) =" 1"。SFPACE ま (人 Q/4ー1 ) 。 "17 SFACE ま (人 R/4ー1 
) "4SBFRCE ま も ( 介 /4ー1) 』 "1" CHR ま (1 さ ) 

2750_FRINT2。LEFT も (D ま (F。 1 ) 、T ビ (F。1 ) ) : : ロニ VQL (MTD ま (D ま (FT) 。TF(F 。M) 
さり THEN B=QBS (日 ) : ビ =INT((B/N) * 人 Q) :FRINT 手 2 。 BTRTNB ま ("= リ ) す (マイ ナマ ) 

ミ 760 じ =INT((B/N) * 人 QR) =FRINT#2。STRTING ま (C、"") : 

2765 TIF 1TC(F。1) 一 1+ 人 >=O THEN FRTINT#2。、TB(IC(F。1) 一 1+ 人 R) "1 

2767 NEXT 1 

2770 PRINT#2。 TAB(IC(F,1) 一 1) 』 "17 SPAEE ま (QR/4ー1 ) 17 SFACE ま (Q/4ー1 ) s 
) ョ "1" BPACE も (A/4ー1) 5" 1 

2771 PRTNT##2。 TAB(TC(F。 1 ) 一 1 ) "に" STRINB ま (R/4ー1 。 リーW) リエ リュ STRTNGB ま (7/4ー1 リー") ミリ エリ BT 

RING$( 谷 /4ー1 けけ ョ リー リュ STRINB ま (人 /4ー1 ツー) 9 コリ 

2772 FUR T=O THU 4:FRINT#2:NEXT Ti:FRINT 析 2 。 ビ HR ま (2 フ ) "0T 

277 さ CLSEi CONSULE 日 、17: GUTH99 

SB10_ PRINT TB(TC(F。1) 1) 』 "0 UsBTRINB$(R/4ー1 。 ) "ユエ リュ BTRINB ま (人 7/4ー1 リー リョ リー0aSTR1 

NG まま ( 介 /4ー1 "リー") リー リュ STRTNB あ (人 R/4ー1 "ーー) "コリ RETURN 











1 


プー の "ラフ FRTNT せ 2。TAB(24) 
s CHR ま (77 

BE(TC(F。1)+aD-1)sN 
+" sgSTRTNG ま ( 介 /4ー1 。 




















IC(F。M)-1))sIiF 互 
BUTD 2765 






"iiSFACE ま ( 介 / オ ー1 











さき Q000 GOSUB 7100:LUCEATE O。OiFRINT "2 リ ァ 1 "ssTF F=O THEN PRINT "メイ ン "sgGBUTO 3O 
94 

3002 PRINT "サフ 2* リョ 

さ QO4 _ PRINT "ファ イル ヲ ウリ ァ ーーー1 オー ル グリ ァ ーーーー2 。 シ “ ョ フ ^ ヲ オ ワ ル ーーーー マ " 


き 010 人 ま =TNREEY ま も :TF 人 ま = リリ 0 THEN さ 010 

さ O020 IF ="g" THEN 99 

さき 025 1F VO OR a$ ま SV9 リ THEN BOTH 3010 

さ 030 =VQL (人 Q ま ) : TF > さ UR =O THEN BOSUB OO00: GUTO さ O1O 
3040 1F =1 THEN LHCERTE O。OkFRINT SPACE$(79) : BOT 32 
きき Q5O IF =2 THEN RUN 

3060 BOTO145 





2 の 78RENM 肖 ニニ ーー まい モモ yー 
4000 BODSUB フ 7100:LUPATEO、2:PRINTSPACE$ ま (554) : FRINTSPACE ま (79) :FRINTSFACE*(79) : LOCATE 
0。Os FRINT "ED 1 テイ セイ )) 1 キ " ョ ウ コ " トニ オ コ ナ イ マス 。 T 10= ニ メイ レイ マチ ハリ 


4010 LUCATE O。24:BEEP: ITF 1C(F。1)=70 THEN GUBUB 5200: BUSUB 5600: じ まま =CC ま GUSUB 910 
: BHTO 4030 

4020 BUSUB 5905 

4030 IF LEFT ま (X$。7)="qoto 99" THEN X$="0sLUCATEO。4sFRINTSPACE$ (9) : GT 99 

4032 CC$= じ ま * BUSUB 600:』 LHCATE O。OkBDTO 400O 

4100 BUSUB 7100sLUCATE O。OsPRINT " アント" | テー フ ? ファ イル ヲ リナ の" ーーー-1 "siTF F=O TH 
EN PRINT "サフ 7 リ siB=1sBUTU 4102 

4101 PRINT "メイ フリ =0 

4102 PRINT "ファ イル ヲ リナ 2" ーーーー2! 

4104 =ITNKEY も : ITF 仙 ま ="" THEN 4104 

4106 IF $=Vg ロ 7 THEN 99 

410H =VAL (も ) : IF 2 DR =O THEN GOUSUB 5OOO: GT 4104 

4109 IF =1 THEN 4200 

4110 IFDE(F)=OTHENIN(F ) =IN(G) :F1 ま (F) =F 1 まま ( ロ ) =F2 ま (F ) =F2 ま ( ロ ) = さま (F) =F さ まま (G) ELSE4120 
4115 FUR1=1TOIN(F) : IC(F。1) =1C(G。 1) : IP(F。 1) = ニ IP(G。 1 ) : ま (F。 エ ) =S ま (は 。 1 ) : [中 (F。 エ ) =1 呈 (は 。 
1) :NEXT1:i IE (F ) =IE(G) :FG ま (F ) =F ま (は ) 

4120 FUR 1=DE(F)+1 TU DE(F)+DE(B) : IF FRE(O) く 5OO THEN 5BOO 

4121 FRINT 1』CHR$ ま ( さ O) :D ま (F。T) =D ま (G。 エ ーDE (F ) ) : NEXT TsDE(F)=DE(F) +DE (は ) : GT 98 
4200 CLS: LUCATE さ Q』。20: INPUT "ファ イル メイ ー ニ = "リュ FC ま :TF F ビ まま =" ロ ロモ O ロ 99" THEN 99 

4205 FC$=LEFT ま (F じ ま + リ "。 ら 6) : TF FC ま = リ 9 "THEN FC まあ = リ "9 

4210 HPEN "1 リ 0 。 手 1。 "ERSO: " リ +FC ま LHCATE さ O。 22 ェ FRTNT F じ ま +" ヲ ヨミ コミ チュ ウリ 

4220 FUR 1 エ =1 TO 26= INFUT 柱 1。 人 Q 生 。 日 本選 TF 仙 季 = リエ ーEND" THEN 1=26 

4222 NEXT 1 

42SG _ FUR IT=DE(F)+1 TU 25: INFUT 1.D$(F。1) = IF D$(F。T)="D-END" THEN 1 11 エ =1: 1 エ =255 
4230 NEXT 1 

4240 CLOSE 柏 1:DE(F)=I11-1:CLS1:GUTO 99 

SOOO_ FUR _N=10 TO 1 GTEF 一 1:BEEF 1:FHR M=O TU NiNEXT: BEEF OkNEXT NsRETURN 
So5O_FRINT " ェ ーー イエ "+F1$(F) sFRINT "INo、1"+F2 ま (F) sFRINT "ヒー キリ +F ミ ま (F) ssLOCATE 0O。CS 











RLTN+ 1 』 日 も = リ "isFOR 1=1 TO 1N(F) : =Eb+SFACE ま (1C(F。 エ ) 1) +CHR$(64+1) NEXT 1 
5060 PRTNT BsPRINT SPACE ま (79) : RETURN 
100 FRINT "Ti 上 1 : "saLEFT 名 (FT も (F) 。6)』" "iMTD ま (FT 和 ま (F) 。7。15) 』 TAB(64): "Date 』 "8M 


ID (FT ま (F) 。22。2) オリ リト MID ま (FT 呈 (F) 。24。2) キリ / リ +RTGBHT 和 も (FT まま (F ) 2) 
110_ FRINT STRING$(79。"ー") sRETURN 

呈 15O_ FRINT "レヒ ーー トリオ F55 ま (F ) +CHR 和 も (29) エリ "コリ" ュ BHT 599O 

52OO_ LINE INPUT 』 XX 

5SOG IF LEFT ま (X も 。 フ )=" ロ oto 99"THEN CC まま =X 和 ま : RETURN 


5210 CC ま = リ リュ Y1= ニ CSRL TN-1 = FDR X=O TU 79: 日 ま =C ビ HR ま (SCREEN(X 。 Y1 ) ) : IF 昌和 ま = リリ THEN 時 = リリ 
22O_ CC も = ビビ まま = NEXT XsRETURN 

SSSO_BUSUB アプ 10Qi INFUT" 「ー」 ニ オー ルフ ァイル 。 キョ ウリ ドン ゴー ウー (NE メ ノ Nao) 一 ( オ ワ リ 7 No) ラー "sa 
和 も: TF 人 朋 和 ま = ニ リ ー リ HR ま ="、" THEN し =1 :M=255: RETURN 

コ 252 1TF =" リロ oto 99" THEN RETURN 

25 さ IF Q$ ま =" THEN 525O 

5254 C=LEN( 人 まま) :FUR ユエ =1 TU C:1IF MID ま (人 生ま 、T。1) マ リー リ THEN NEXT 


5 ロロ TF ビ +1=1 THEN =VaL (も) ょ し =Rs =1 : RETURN 

5SS6 ITF エ =1 THEN =VRL (人 Q) EREBG(R) : し =1 : =B: RETURN 

5 ロフ 7 人 =VaL (LEFT ま (人 まま 。 エー1 ) ) 

25 し = ボ 人: エー ビー1 : 日 本 =R 1 は HT 生 (名 。 1 ) : D=VQL (日 呈 ) : ニモ Dー 人 ロ +1 = TF 日 ="" THEN MM=255: RETURN 
5260 RETURN 

5300 FOUR N=1OQ_ TH 0 STEF -5 弓 BEEF 1:FUR M=O TH 2O:NEXT MzBEEF OiNEXT NsRETURN 
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CMT-| プロ グラ ム ・ リ スト 











54OQ F1$(F)=F1 ま (F)+STRTNB ま (1C(F、 エ ) 一 1 "リー リリ) キリ イリ "リュ TF まま (F。1)= 
RIBHT$(SFACE ま (70) 1 ま (F。 エ ) ナ "1 、TC(F。1) ) :BHT ロ 54SO 

541Q0 F2(F) =FS ま (F) TLEFT ま (1T ま (F。 エ T)+SFACE ま (70) ,。 ICE(F。 エ T) 一 1)+ り 1" 
542O (F ) =F さ ま (F)+BTRTNB ま (TE(F、 エ ) 一 1 。" 二 ")+" 填 " ュ F4 ま (F) =F4 呈 (F)+STRING ま (TC(F、T) 一 1 リー 
ES ロ $(F ) =F ロ まま (F ) +STRING$(TC(F。 エ ) 一 1 リージ ォ リー" RETURN 

55OOD IF TIN(F)=O THEN IN(F)=1: iC(F。1) =1 

5510 =1kFUR エ =1 TO TN(F) : T ま (F、T)= ニ MID ま (F2 ま (F) 、A、TC(F。1 ) 一 1 ) : =R+IC(F。1) :NEXT IiRE 
TURN 

5600 IF MID ま (CC ま +SPACE ま (70) 。2、4) ="NO。1"THEN F2 ま (F ) =MID ま (CC ま +SFRCE ま (70) 。6。IE(F) )* 
BHSUB_ 55OOi RETURN 

610_ RETURN 

5700 LHCEATE O。5:FRINT "ーーー イ エリ +F1 ま (F) +CHR ま (29) す "リュ "EsFERINT "INo、1"+FS ま (F) siFRINT " 
ーー" リ + ォ F ミ も (F ) + 上 CHR も (29) "コリ ュ ェ RETURN 

575O BEEP:LUCATE 9。OsPRINT " ポポ ポポ ポポ ネネ ポポ 直 フ トウ ー ニ パイ テス カカ (Y/N) で 炒 涼 米光 氷 水 涼 米光 
"ksRETURN 

OO0_BHSUE 7100:LHCATE 22、OkFRTNT "ポポ ポポ 氷 ノウ リョ 9 fP イ テマ o ポポ ポポ ポポ 氷 り 。 BUSUE 5 
FUR IIII=O TH 1O0OsNEXT TITIT:BOTH 99 

EEEF 1kLUCEATE O、Y:FRINT " ED "ik:BEEP QiTF ICE(F。1)=70 THEN BUSUB SB2OOiC 串 = ビビ 
:BDTD 5910 

5905 LINEINFUT に じ ま 

906 IF LEFT ま (じゃ 。 プ ) =" ロ Gt モロ 99" THEN LUCATEO 。2 さ : FRTINTSFACE ま (7 ) = X ま = ビ 和 ま s RETURN 

5910 C=Oi TF MID$(C ま 。 呈 1)= リ 1"THEN ビ =VAL (MTD ま ( じ ま 。2。 う ) ) 
920 BEEF 1:D ま も (F。 ビ )=MID ま (ます! "。 ら 6。 TE(F ) ) : BEEP 


! THEN F2(F) =F2 ま (F)+ 」 





















9BO IF F=O THEN LHCATE 55,2:TQBX=55:PRINT " : RETURN 

5 LOCATE 55。2sFRINT " 加 琶 基 章 サフ "ファ イル 本 琴 還 : RETURN 

に ) IF F=1 THEN 5992 

紀 BOTO 99 

紀 BUSUB 7100:BHSUE 598OsLUCATE Q。1:PRTINT STRING ま (78 リリ 

紀 BUTH 99 

7Q000 LUCATE Q。OiFRINT SFACE ま (79) : LHCATE の O、O:FRTNT "中 メイ ルイ マチ 1 の カエ ルー メイ し f モー キ 1Y 和 10。 





ソコ リ サイ スズ ^ 。 CL= ワ ウリ ァ リ 

7010 LOCATE 0Q。1:FRTNT STRINB$(79 "0) = ITF C2O THEN LUCATE Q』SkFRINT SFACE$(79) し 
CATE C FRINT SPACE*$(79)』 

7020_RETURN 

7100 LHCEATE Q、1:FRINT STRINB ま (79。 "リー") =sLUCATE 9.0:PRINTSFACE ま (70) : LUCQATE9。 0 RETUR 
N 

7200 LUCATE 21、sPRINT "くく _ AUTO-2001 CMT-1 Ver 1.0 >peUgLUCATE 24。11:FRINT "ポポ 
* Ube Tek Micom C1ub *※※※"sRETURN 

BOOO_HUR=CSRL IN: LUCATE O。HUR:FHR ZET=1 TU TABX:PRINT CHR$(2) ::NEXT ZET:RETURN 
600 CLUBE 柱 1 : IFERR=63 THENLUCATE40。20:FRTNT "ファ ィ ル カカ "ナイ リュ CHR ま (7) :FHRGEG=OTH1000: NE 
XT:RESUME ミ 2 

610 IFERR=64 THENLUCATE25。24:FRTNT "オナ ミー ナマ エフ ァイル カ " アル "リュ ビ HR 和 (7) : RESUNE1600 
B62O_RESUME9 

110Q0QO IFULP=QTHEN ロ PEN" ロ "2 。"LFTOi "OLFP=1 : RETURNELSERETURN 











2001 CM 丁 - つ 3 プロ グラ ム ・ リ リス | 





1 水 水 水 洲 涼 水 水 水 炒 玉 水 水 炒 玉 水 丈 水 水 水 氷 ポ ※ ポ ポポ ポポ ポポ パパ ※※ 洲 

0 AUT0-2001 >>> CNT うく くく VM1。O 

~ FNM- ヨ VERSIUN FRUGRAHMMED BY COMFAC 

玉水 水 水 炒 米 水 素 玉 氷 氷 玉 水 水 素 氷水 氷 ポ ポ 氷 氷 氷 氷 ポ ポポ ポポ 水 水 氷水 

CLEAR 45OO、%HZ7FFF : DEF INTE-N: DEF ITNTU-V: DEF INTX-Y: MIDTH BO。25: CONSHLEO、25、0。 1 

QN ERRUR BUTU 600 

17 DINM D* ま (1 、255) 1] ま (1 26) 、G ま (1 、26) 1 ビ (1 、26) 、TF(1 26) 。FD ま (16) 。 IN(1) 、TE(1) 、DE(1) 、F 
1$(1) 。F2 ま (1 ) 。F コ (1 ) 。F4 負 (1 ) 。F ま (1 ) 。F6b(1 ) 。F 和 (1 ) 。 征 第 (1。26) 。T(1) 。X(26) 。Y(26) 。W(26) 。 
U*(26) 。、M$(26) : TIC(1。1 ) =1: HLF=O 

18 REY 1 "に ョ リ +CHR ま (1 さ ) = ド EY 人 2" サフ"+CHR ま (13) sEEY リカ "メッ コ ヒ *ー"+CHR ま (13) gKEY 4。" の YY リ 二 
CHR 還 (13) EEY ロリ ソー"+ ォ CHR ま (13) 

19 EEY 6。"%% り +CHR 和 (13) EEY 7。" ケ イリ +CHR ま (1 ミ ) :EEY 日 、"EY リキ CHR 和 も (1 さ 
3) sKEY 10。" ロ otO 99"+CHR ま (13) 

1 F=Os 日 =1 

22 GOSUB 7100:CLS: GUSUB 7200: BUSUB 598Os LUCRTE 20。18:FRINT" ( ロー ト ~ マル ファ イル ヲ カエ ルト キ 
ババ f。2 ヲ キー イフ ) "』CHR$ ま (7) 


ひ ロ や お 中 ロビ 








"テー リキ CHR$(1 





23 LUCRTE 25。20: INFUT" ファ イル メイ = "FC 本 :F ビ ま =LEFT 和 ま (FC ます リュ ら ) 
24 1TF FC も = リ サフ "THEN BUSUB 600: GOUTH 22 
25 IF FC ま = リ "9 "THEN FC ま = リ " リ 





日 3 F1 ま も (F)= F2 ま (F) 「 ュ F コ まま (F)=""sF4 ま (F)= F$(F)=""sF6 ま (F)= リ "asHPEN "エリ 。 共 1。 "CASO 
5 リキ FC ま = LUCATE 29。22kFRTNT FC ま 』" ヲ ヨミ コミ チュ ウリ" ょ FUR 1 エ =1 TO 26: INFUT 音 1。 人 呈 。 昌 生じ 呈 sTF 谷 
= リエ ーEND" THEN 1 

90 [ 生 (F 、 1 ) = 人 中 ょ まま (F。 1 ) =B 和 も: TC(F。T) =VQL(C ま ) kTE(F)=TE(F)+TC ビ (F、 [1) :BUSUE 400: IN(F ) =1g 
NEXT 1 

91 FOR 1=1 TU 255: INFUT 1。D$(F。1) : IF D ま (F。1)="D-END" THEN INFUT#1。FT 和 も (F)sDE(F)= 
1-1:GHTO 593 





92 NEXT 1 

93 FUR エ =1 TO 26: INFUT 拉 1 、 丁 和 ま (F。 1 ) = IF ま (F。T)=" リ ビーEND" THEN CLOSE 1sT(F)= エ ー1 GOT 
テル 4 

94 NEXT 1 

97 CUNSULEB。 17: BHTD155 

99 FD ま も (11)=" リ sFD ま (14)=" "saBUSUB 7000: GOUSUEB 55OQ 


111 GUSUE 5BO 
112 じ 1=1:LUCATE 70、0: BEEP = INFUT = 人 Q ま = ニ LEFT ま (谷本 。 人 で) = TF Q ま ="g ロ Oo"THEN 9Z 

120 FOR 1=1 TU 2 BTEF 2: IF 人 Q ま =MID も ("上 ヒ ョ サ フカ "ハイ テー ソー ケイ シド BZzCYCy ネ まり TS) THEN 140 
130_NEXT IsBOTO 15O 

140 UN(1+1) /2 BUTH 400。170。175、1000。 1500。2QO0。 さ O00。 BOOOQ 10。 1BO。 700、700。 1 45 
5。O。 OsEEYS。、 "LTST "+CHR 生 (1 さ EY3。 "RUN"+CHR ま (13) EEY。 "LHRD" ょ TFOLP テ 1 
* IR も (ブフ)+"OWEENDELSEEND 

15O TF C2=1 THEN CS2=Os BUTD ウ 9 

155 LUCATE の O。2sPRTNT "ff 。1= ニ ヒョウ シド 千 

















デー バイ ルリ ロモ リート" 
















LUDCATE 0 FRINT"f。6= END f 。 フ = ニ ケイ サン ブフ 7 ff。10 ニ メイ レイ マチ 
170 

175 * SFACE ま て (19) : ITFULF=1 THENFRTNT 持 妥 。EHR ま (アプ) ミリ 0OT 

176 HaRDC: IFHLF=1THENFRTNT#2。EHR ま (2 フ ) "TsEHR ま (7) 

177 BUT0U99 

18O WM=FRE(O) : =INT((M-- さ QOQO) / (TE(F )+5 ロ ) ) = IF MEO THEN = ロウ 

182 BSUB 71OOkLUCATE O。QsFRINT" フ コリ サイ コトー | アト リ Ps キョウ アリ 23 (スキ ナ キー ラ オシ テグ 








ト サヤ ) " E 介 和 ま モ INFPUT ま (1) BHTU 99 
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disp1ay 


3 REM 一 
4O00 LHCRTE 0。OsFRINT "上 に ョ ウシ ドリ "sTF F=1 THEN GUSUB 58O 


424 BUSUEB 525O IF Q$="goto 99" THEN 99 
425 GDBUB10OOO: IFFD*(11) ="Y"THENBDSUB111OO 

426 BODSUE 710O イノ キー ヲ オジ テ メト リフ "スター ト ジマ ズ 。 (メト ウフ 6 フト キー「 ペ ュ ニ ティ セイ 、 
f10= メ イル イマ チリ" ュ Y= 日 FR GBD=4 TU 7:LDCATE O。BBFRINT SFC(79) ::NEXT:CLS 1 

427 LUCATE 0.4:PRINT "ジッ ヒョウ ミー くく る 

428B TFFD$(11)="Y"THENFRTNT#G。" ーーーr"+F1$(F) sFRTNT2、" INO。1"+FS も (F) sFRTNT#S。" ーー 
"+F(F ) 

429 GBDSUB 5700:FUR 1T=L TU L+M-1:TF 1=DE(F)+1 THEN 4 
430 IF 1=DE(F) aND RIGHT ま (D* ま (F、T) 、1)="4" THEN 439 














4 さち Q ま =TNEEY ま :TF R ま ="! THEN-43 
生き 4 全 ま = ニ INFUT ま (1 ) 
43 コ ITF 人 Q ま = リサ M THEN BUSUB 5900: LHCRTE O。Y:FRINT SPACE ま (7) : GUTH 45O 


4 さる 6 ITF Q ま = リロ" THEN 5990 
43 BODSUB 550:NEXT 1 

439 IFFD$(11)="Y"THENPRINT#2、" ーーー+"+F 呈 $(F ) =FURT=1TU4: FRTNT#2 NEXT エ 
440 GUT ロ 515O 

45O IF Y=24 THEN Y=Y-1:GOUTU 434 

452 BT 434 

光 49rREMT 三 ニー ビ る DUD ニー ニー テニ 

55O IF Y=24 THEN FRINT 
555 LUCATE O。Y:FRINT " 1"+RIGHT ま (" 。  "+STR$(T) 、 さ )+ り 1"+2 ま (F、1) 

556 IF FD$(11)="YIU THEN PRINT 社 2。F6 ま (F) :FRTNT##G、" 1"+RTBHT ま (" "TSTR ま (1) 、 さ )+" 1"+D 
まま (F。1) 

557 Y=Y+1:RETURN 

600 TIF F=O THEN F=1:G=OiRETURN 

610 F=Q: B=1:RETURN 

7QO GOSUB 75O: $=INFUT$(1) :TF Q ま YS"YU THEN 99 

709 BDSUB 7100:PRINT"  **※※ ファ イル ヲ コ ヒ "ー チュ ウ *※*※ ポ "=B=O: IF F=O THEN は =1 

73O _M=DE(G) :FUR !=1 TU DE(F):IF FRE(O)<5OO THEN 5BOO 

740 BEEP 1:D$(G。T)=D ま (F。1) :BEEP OsNEXT IT:FUR 1=1 TO 26:IF FRE(O)<5OO THEN 5BoQ 
750 BEEP 1:IC(B,1)=IC(F, 1) : TP(B。 1)=IP(F、1) : 1 ま (G、 1)=1$ ま (F。 1) : ま (B、T)=S 和 ま (F。1) = T*(G。 
1) =T ま (F。 1 ) : BEEP OkNEXT 1 

760 DE (G) =DE (F ) :F1$(G) =F1$(F) :F2$ (日) =F2 ま も (F ) :F さ も (は ) =F さ ま (F ) :F4 ま (は ) =F4 ま (F ) :F ロ (は ) =F 
呈 $(F ) :F6 も (は ) =F6 ま (F ) 8 

770 IN(G)=IN(F ) : IE(G) =IE(F) :FT$(B) =FT ま (F) :T(G) = 
7BO IF DE(B) く NM THEN FUR 1=DE(B)+1 TO M:D ま (B。1) 
790 GOTO 99 

1000 E=0: CLS: LUCATEO 1 : PRINTSTRINB*$(79 リー") : BHSUB 7100:GUSUE 5070: GUSUE 59B0:LOC 
RTE 0Q。O: INPUT" ハイ レル リカ" エリ イル リカ" エ A ChAdAB。 リ イカ ルル RDCD+ ソノ ヨ ウニ メル 。 ハイ レル 
107 量 Z ま = =0sFDR 1=O TO 26:M(T)=OsNEXT T:FOR 1=O TO 16:FD*$(1)=""sNEXT 1 

108O IF Q$="goto 99"THEN 99 

10B1 ITF も =""THEN 99 

1090 =LEN(Q$) : BUSUB 7100』PRINT" ファ イル ヲ カキ カエ マス カ (Y/N) ? 

1091 Y$$=INPUT$ も (1 ) : TF Y*="g" BUTD 99 

1101 GOSUB1OOQO 

1104 IF FD$(11)="Y" THEN BUSUE 5o1O 

1106 E=O:J=1 : N=O:FUR 1=1 TU 26:CC ま =MTD ま (人 ま 。1T。 1 ) =TF CC*= リ +"THEN 1110 

1107 NEXT 1 

11OB _N=1:BUT ロ 1120 

1110 IF FD ま (14)="A" THEN 1115 

1113 BUSUB 7100:LUCATE O、O: INPUT "コウ モワ ウリ イカ 1 コウ モワ メイ ( モジ シノ トキ ハ 「2 コ ウ モ フワ メ イ 」 トス ルー ) "is 
CTF C*=" ロ oto 99" BOTO 99 

1114 BUSUB 7100: INFPUT! カウ スウ ハリ "iX ま :TF X も = リロ otO 99" BUTD 99 

















(F) 
"sNEXT 1 





















1116 し =IN(F)+1: 1TC(F。 し ) =D: IF LEFT$(C*。1)="3" THEN 8$(F。L)="B"s 1T ま (F、L) =RTBHT$(C、 し 
EN (C*) 一 1 ) :B ロ TO 1118 

1117 5*(F。 し )= リ N": T ま (FL) =RTBHT ま (SPACE$(40) +C$、TC(F、 し ) 1) :TF FD ま (14)="A" THEN 112 
o 

111 日 BHSUB 710O: INPUT" (オナ ジ ^ モノ ラニ ー イ レル トキ ソレ ラ 、 コ ペ " リ ニー イレ ルト キキ 3 ヲ キー イン ) "FD を (B):TF FD 
(日 )="gotn 99!" BOTO 99 

1120 ITF J=DE(F)+1 THEN IF 2$= リ ネリ" THEN 13 さ 6 

1121 TF J=DE(F)+1 THENIF(TN(F) >1)+(DE(F) =DE (B) ) THEN1225ELSE DE(F) =DE(G) 

1122 CC ま =""sFUR エニ 1 TO RiX$=MTD$( 人 も 。T。1) = TF X ま = リリ" THEN 1= 人 :GOTD 1195 

112 さ 日 $=MTD$ ま (人 ま 。T。1) :TF BE$= リ +" THEN B=L:M=F: BT 1140 

1124 ITF ABC(B$) >96 THEN B=ASC(B$) -96: M=G: GOT 1131 

1130 =QSC (B$) 64 NM=F 

1131 TF HB<1 ロ R B>26 THEN GOSUB 5SOO:GOT ロ 99 

1132 7* ま =TD ま (D ま (M。J) 、 IF (M。B) , IC (NM。 日) ) : CC ま =CD ま 7 

1140 IF J<>1 THEN 1195 

1150 FD$( さ ) =FD$( さ ) +STRTNB$(TC(M、B) 一 1 ツー) キリ イリ 

1160 IF $(M、B)="N' THEN FD*(1) =FD$(1)+RTGHT$(SPACE$(79)+1 ま (M。B)+" 1"、TC(M、B) ) : GO 
TQ 118o 

1170 FD$(1)=FD$(1) +LEFT$(T$(N1。E) +SBPACE ま (79) 、 I ビ (PB) 1)+" 1" 

11BO FD$(2)=FD$(2) +STRTNG ま (TIC(N。H) 1 。" 二 ") すり "SFD$(4) =FD$(4) TSTRT'S ま (TC(M、B) 1 リー 
は で WP 

1185 FD$( 后 ) =FD$ (5) +STRTNB$*(TC (M。 昌 ) 1" リー") キリ エリ SFD ま (6) =FD$ ま (6) +GTI 7XBYN。B7 ピ 1 ミサ ー 
の ) す リー"EFD*(10) =FD ま (10) +SPACE$(TC(M、E) 1)+" 1 

1190 ドニ =K+1=W(K)=TC(M。B) = TF Y$= リ YU THEN NM ま (K)= ニ 1$(M。B) : (に) = 名 (P。B) 

1195 NEXT 1:TF J<>1 aND E=1 THEN 131O 

1197 TF J<>1 THEN 1207 

1200 H=OsFOR =1 TO KsH=H+M(T) :NEXT TsTF (H>74) *※(H<1 さ 2) THEN Y$* 
RTNT" ア 4 ケ 9 ヲ オー ハ Yー ジテ イマ ィ ノ テ * ヒョウ ジ 、 テキ マセ ン 。 " ミ EHR 生 ( プ ) : ビニ 1 : IFFD$(11 ) =" 
SUB111Q0:BDT ロ 13O4ELSEGT ロ 1 さ 04 

IF _H>131 THEN 5BOO 

BQSUB 7100:L ロ CATE O。4sPRINT" < くく < N イ L リ が エ 
:FRTNTSPACE ま (79) : FRINTSPACE$(79) : : CL51 

1204 LUCATEO、5: PRTNT" ーーーr"sFD*( さ ) CHR ま (29) "っ "PRTNT" INo、1"sFD*(1) :FRINT" エー" 
+FD*(2) sEHR ま (29) "ゴリ ュ ェ LCATEO、 日 

1205 TF FD$(11)="Y"THEN FRTNTt2、" ーーーr"+FD$( さ ) : PRTNT#2、" IN ロ 。1" +FD ま (1) :FRTNT2。" 上 
ーー"+FD* (2) 

1207 IF N=1 THEN 1220 

12OB TF FD*( 日 ) く >"9" THEN FD$(9) =FD$( 日 ) :BDTO 1212 

1209 FRTNT CHR$(7):" "4RTBHT ま (" "+STR$(J) 、 さ ) :" 1":CC ま s =TNFUT FD$(9) :FRTNT CHR 
(0) 』 ETF FD(9)= リ "コリ OR FD*(9)="gotp 99" BOT ロ 99 

1212 TF S$(M。B)="N" THEN CC$=CC ま +RTGHT ま (SPACE ま (40) +FD ま (9)+" 1" 。D) :BUTO 122O 

121 さ CC$*= ビ ビ *+LEFT$(FD$(9) +SPACE$(40) 。D-1) す " 1" 

1220 FRTNT " 1"iRTBHT*(" "+BTR( ゴ ) 。 さ ) : "17 CC*:TF Y$="YV THEN D*(F、J) =CC$ 














"s BODSUB 7100:P 
"THEN ULP1=1:GOD 








[ "sa ま s" ]"sFRTINTSPACE ま (7) 
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1221 IF FD ま (11)="Y! THEN PRINT#2S。 "1 1 +FD ま (10) 
122 人 2 IF FD ま (11)="Y! THEN PRINT##2。 " 10+RTGBHT ま (! "+STR も (本) 。 さ ) すり 19 +CC ま も :TF Y ま = リ Y 
リ " THEN D ま (F。J) = ビビ 中 

1224 =J+1s BHT 1120 

1225 PRINT" ーーー ト 上!sFD も (6) s CHR ま (29) "コリ 

1226 IF FD ま (11)="Y" THEN FRINT 持 2。" ーーー ナリ +FD$ も (6) sFHR エ =O TO・4sPRINT#t2kNEXT 1 

1227 TF Y$ く >"YPTHEN 1250 

1230 F1$(F)=FD ま (る ) :F2 ま (F ) =FD ま (1 ) :F さ まま (F ) =FD ま (G) =F4 ま (F ) ニ FD$( 量 ) =F ロ 和 ま (F)=FD ま (6) : IN(F) 
= ド Ks IE(F) =O:FHR 1 エ =1 TU KiT ま (F。 1)= ニ NM ま (T) : 和 ま (F。 1) = ニ リ ま (1T) : 1T ビ (F。 1) =M(T) 

1240 IE(F)=IE(F)+IC(F。1) :NEXT: IF(F。 1 )=1:FUR 1 エ =1 TO IN(F) 一 1: IF(F。 エ +1)= ニ IF(F。 エ )+IC( 
F。1) :NEXT :IF FD*$(14)="aV THEN 2900 

1242 BHTO 99 

125O0 IF FD ま (14)="A" BUTOU 2900 

1252 BUTO 99 

1304 IF FD ま (11) ぐ >VY! THEN FUR 1T=O TO 5OOOsNEXT 1:BUTH 99 

1305 PRTNT 持 2、 " ーーー+"+FD ま (る ) :FRTNT 拉 2。" INo。 1"+FD ま (1) =PRINT#2。 "ビー"+FD ま (2) 

131O IF N=1 THEN 1320 

1312 IF FD ま (B) く >"3" THEN FD ま (9) =FD$ ま (日) = GUTH 1 さ 16 

1314 CLS:BDSUBE 7100=PRINT" カキ コム ナイ ヨウ ヲ イレ テ 797" サイ 。 マリ sEHR ま (7) sPRTNT: INFUT FD ま (9) 
: IF FD も (9)="]! HR FD も (9)=" リ goto 99" GUTU 99 

1 さ 16 IF G ま (M。B)="N"' THEN CC ま = じ C ま +RTGBHT ま (SPACE ま (40) +FD ま (9)+" 1" 。D) :BUTO 1320 

1317 CC も = じじ ま +LEFT$(FD も (9) +SPACE も (40) 。D-1)+" "EsBOTU 1320 








131 昌 FRINT 失 2" 9+RTBHT ま (" "+STR ま も (J) 。 さ ) 二 1 + じ まま 
1320_ FRINT 折 8" 1 1 +FD ま (10) 
13: FRTINT 拉 2 。" 19+RTBHT ま も (" "+STR ま ( 可 ) る ) 上り 19+CC ま 





1335 = ロゴ +1 1 7 ま = リ * り 8BDTO 1120 

1336 PRTNT#2。" ーーー トリ"+FD ま (6) sCHR ま (29) FR _N=O TO 4:PRINT 拉 2:NEXT :BUTO 99 

1499 ニーーーーTAPEー ニ ーー 一 

15OO LHCATEO。O:FRINTSFACE*(O) 』 : LUCATEO。 Os FRTNT "テー フ ? ニニ セー ブフ" ーー1 アラ タニ テー フ ? ヨリ ロ 
ーーー 

1510 Q ま =INPUT$(1) 

1520 IF = ロリ THEN 99 

1530 QA=VQL(Q$) : IF >2 OR =O THEN GOSUE 5OOO: GT 1510 

1550O IF Q=2 THEN GUSUE 5750:GOTD 18OO 

1560_ CLS: GOSUB 7100』LOCATE O。OiPRINT "セー ズ 1 シタ ノ ファ イル メイ ト ヒ " ケ カケ テ " セー フ " シマ スカ ( 
Y/ZN) ? リ sgLUCATE 0。 昌 :BOSUB 弓 10O 

1570 QA も =INFUT も (1) 

15BO IF まま ="g" THEN 99 

1590 ITF 人 Q ま ="Y! THEN FC も =LEFT ま (FT ま (F ) 。6) = LUCRTE26。21:FRINT "テー フ ? へ セー フ " シマ スリ s BHT ロ 
163O 


1600 LUCATE O。24: INPUT" ファ イル メイ ( 6 モジ " ) ー "』 人 R ま :TF 人 Q ま =" ロ otO 99" THEN 99 

1610 FC ま =LEFT も (人 ま +SPACE ま (6) 。6) : INPUT" コメ ント ( 1 モジ ) ニュ 人 ま :FC ま =LEFT 和 (F じ ます 人 
ま +SPACE ま も (1) 。21 ) 

162O INFUT" サ 2 セ イ 年 ( 2 モジ ) ー 「』 人 R 呈 = 人生 =RTGBHT ま (りり 人 あ 。2) =F じ ま ニ FC ます 人 

1622 INFUT" 月 ( 2 モジ ) ニュ 人 R 呈 : 人 =RTGHT ま ( り リト NR あ 。2) :F じ ビニ F ビ ます + 呈 


1624 INFUT" 上 (2 リョ 人生: 人 ま =RTGBHT ま (りり リト 人 ま 。2) = 上 ビニ F ビ ます 谷中 FT 中 (F ) =FC ま 
1630 OPEN" ロ "。 手 1。 "CASO ェ "+LEFT 串 (FC ま 。6) : LOCATE7。24:FRINT LEFT$ も (FC ま 。6)+ リ ! ヲ カキ コミ チュ ウリ 
1640 FUR IT=1 TO IN(F):FRINT 1』1 ま (F。1) 。B ま (F。T) 。STR ま (IC(F,1) ) siNEXT IiFRINT 手 1、 リ エー 
END"」"X"、"X" 

165O FUR 1=1 TO DE(F):FRINT 拉 1。D ま (F。T) siNEXT TiPRINT 柱 1、"D-END":PRINT 1。FT ま (F) 
1653 IF T(F)=O THEN 1655 

1654 FUR J=1 TO T(F):FRINT 1.T 和 ま (F。J):NEXT J 

165 紀 PRINT 拉 1。 "ビーEND" : CLUBSE 提 1:CLS:GOTU 99 

18O0O B ま =TNKEY ま も :TF H ま ="! THEN 10O 

1804 IF B ま く >"YU THEN 99 

180B BOTOU 22 

1999 ーーS0RT/SEARCH ニ ーー 

2000 CLS1: GHSUB 7100:LUCATEO。4:PRINTSFACE ま (159) : SPACE ま (159) 』:LUCERTE O。5: GUSUB 5O 








50sLUCATE Q。OsPRINT "ソー ト 1 s:TNPUT "ナラ "カエル コウ モワ "3B ま : ITF HB まま =" ロ o キ oO 59 BOTO 
99 

2202 エニ ASC(H) 一 64: 1F (1T>IN(F) )+(1<1) THEN GUSUB 5O000s GUTOU 2000 

2210 BUSUB 7100:PRINT " チイ サイ シュ "フン ーー 一 1。 オオ キイ シュ "フン ーーー 2 ピ 073 

2220 まま =INPUT も (1 ) 

223O IF ま =" ロ ロリ" BUTO 99 





22 さ 1 BOSUB 10O00 

2240 =VaQL(Q ま ) :』TF (Q く 1)+(A>2) THEN GOSUB5OOO: BUTU 2000 

2250 BUSUB 7100:LUCRTE 11。O:PRINT B$。" ヲ "』:TF =1 THEN FRINT" リ チ ィ サ イリ 。 ELSE_ FRINT" 
オオ キイ " ュ s 

2270 PRINT " シュ * ン ニ カキ カエ チュ ウ 
2280 B=TIP(F。 1 ) : じ =IC(F。 1 ) : D=1 : 昌 =DE (F ) + さ (LEFT 和 ま (D も (F。DE (F) ) 。 1) = リー") 

2282 IF (=1)*X(S ま (F。D)="B") THEN 2320 

2284 IF (Q=2)*(B$(F。D)="S") THEN 2370 

22B5 IF (=2)*(B ま (F。D)="N") THEN 2350 

2290 FUR J=1 TO H-1:LOCATEO。4:PRINT ゴ 

2300 =VAL (MTID ま も (D ま も (F。J) 。B。 ビ ー1 ) ) =: =: FUR ドニ ロ +1 TH H 

2305 IF <VaL(MID$(D ま (F。K) 。H。 ビ ー1 ) ) GUTO 2315 

2310 =VaL (MID も (D$(F。K) 。B。 ビ ー1 ) ) : =K 

2315 NEXT:SMAP D*$(F。J) 。D ま (F。M) 

231 昌 NEXT:GOTO 2420 

2320 FHR J=1 TO H-1:LUCATEO。4: PRINT =: 人 Q ま =MID ま も (D$(F。 ゴ ) 。B。 ビ ー1 ) : =J =FUR ドニ ゴ +1 TO 日 
2325 IF まく MID ま (D ま (F。K) 。 B。 ビ ー1 ) BUTO 2 ささ 

2 ささ O QA ま =MID ま (D ま も (F。 に ) 、B。 ビ ー1 ) : =K 

2335 NEXT: SURF D$(F。J) 。D$(F。M) : NEXT: BHT 242O 

235O FUR J=1 TO H-1:LOUCATEO。4: PRTNT J:Q=VQAL (MID も (D ま (F 。J) 。 日 。 ビ ー1 ) ) : M=J: FUR = ニ ゴ +1 征 
ロ Hi IF <=VaQL (MID ま (D ま (F。K) 日 。 ビ ー1 ) ) THEN =VQL (MID$(D 和 も (F。K) 日 。 ビ ー1 ) ) : = に 

2365 NEXT:SMAP D ま も (F。J) 、D ま (F、M) :NEXT:BOTH 2420 

2370 FOR J=1 TU H-1:LUCRATEO。4: FRINT =Q ま =MTD 和 まま (D ま (F。J) 。 日 。 ビ ー1 ) : い =Js FOUR ドニ ゴロ +1 TO H 
2 さ 75 IF まま =MID も (D も (F 。K) 日 。 ビ ー1 ) BHT 2390 

23BO 人 Q ま =MTD$(D あ (F。K) 。B。 ビ ー1 ) : =R 

3 る 390 NEXT: SMAF D ま (F、J) 、D ま (F、M) :NEXT 

242O_ LHCATEO。4:PRINTSFACE ま (79) ss:LHCRATE Q。4sPRINT" くく く ソー ト 
1"sCLS1:GHSUE 7G 
2422 IF FD ま も (11) 
"すす F さ を も (F ド ) 
2430 LUCATEO。 日 : FUR 1=1 TO DE(F) :FRTINT" RIGHT ま (" +BTR も て (T) 。 さ ) 5 UsD ま (E.。 エ ) 
2431 ITF FD$(11)="Y! THEN PRTINT 本 2。F6 ま も (F ) sFRTNT# 朋 "17 +RTGHT ま (" "+GTR ま (1) 。 さ )+" 1 
"+D ま (F。1) 

2432 NEXT 1 


<43 ロ IF FD$(14)= 









"51 ま (F、D)i" 





THEN PRINT 拉 "ーーーr"+F 1$(F) sPRTNT#2。" INO。1"+F2 ま (F) :FRINT せ 2" 











" THEN 2440 
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<436 ITF FD ま (11)="YU THEN FRTINT#2 "ヒビ ーー リオ F 品 まま (F) :FDR 1T=O TU 4:FRINT#2kNEXT 

4 ラ 37 BUTU 15O 

2440 PRINT" ーーー トリ ュ F5 ま (F ) 』 ビ HR 和 (9) "コリ 

2441 TF FD ま (11)="Y!THEN PRTNT 拉 "レーーー リ +F5 ま (F ) =FDR 1=O TO 4:PRINT##2: NEXT 

2442 GOTO 29oO 

2900 BUSUB 55OOs IF FD ま も (12)="Y" THEN FD ま (14) = リュ 人 N ま =FD ま も (1) : BHTU 155 ELSE GUTU 81 





2999 ーー 一 で ALCULATE 
3O000 BUSUB 7100』LUCATE 
ヨコ ニノ コ " ウ ケイ ーーーー 
)10, =TNPUT ま (1 

TF 人 ="g" BUTD 99 
人 =VQL (人 ま ) : IF (=O)+( 人 > る ) THEN GOSUB SOOO: GOT ミ O1O 
TF A=2 THEN さ 400 ELSE TF Q= さ THEN ミ 60O 

IF F 
CLS : BSUB 710Q: INFUT "A+1.2* ネ DXB ノ ヨ ウニ シキ ヲイ レル ( り カ エル キ コ " ウリ キー※/ 欠 人 ) 
= TF =V ロ ロキ ロ 99" BHT 59 『 

RA=LEN( 人 も ) : BUSUB 7100:FRTNT" ファ イル ヲ カキ カエ マス カ (Y/N) " 

Y$=INPUT$(1 ) : TF Y$=" ロ リ BOTO 99 

BOSUE 1000O 

IF FD$(11)="Y" THEN BUSUE 5o1O 

BSUE フ 7100: INPUT " コウ モワ メ f ルリ ミ C あ :TF 上 = リロ oto 99" BOTO 99 

BOSUE 7100: INPUT " カウ スウ NX ま :TF X ま = リロ oOto 99" BOTD 99 

さ 11 曲 BDSUB 710O: INPUT " ショ ウィ ウ イカ ナン フケ リグ ラ ウジ マス カ "saFD ま (10) : TF FD ま (10) ="goto 99" GO 
TO 99 

116 M=VaL (FD ま (10) ) :M=10^M:FD$ も (10) =STR$(MM) : =VAL (FD ま (10) ) 

20 D=VaL (X$) :D=D+1: し =IN(F) +1: 1C(F。L) =D: 本 (F。 し ) ="N":T ま (F。L) = じ : =1 

22 H=0:FURT=1TU し :H=H+IC(F。T) :NEXTI 

24 IF(H テ 74) *(HS132) THENY ま ="N" : SD=1: LUCATE9 。 QiPRINT" 7479 ラ オー ドー ジッ ス フー ヒョウ 

"キマ セ リュ TFFD も (11) ="Y"THENOLP1=1: GOSUB111O0O 

26 ITFHS1 さ 1THEN5BOO 

=DE (F)+1 BUTO 3960 * 

'": ローO ェ E=Os 日 =0: N=O:FD ま 1) =""sFUR エニ 1 TO QiB* ま =MID$ も (人 Q 和 ま 、1T、1) : TF HB ま =" "TH 





OFRINT" 。 ケイ サフ | 3 コ 02E2 カル 70) ラー デー ュー タデ グー コ だり 7 リー ンー 






















さ 132 FUR Y=1 TO 6= IF B$ ま =MTD も ("キー ネ / 人 へ" 。Y。1) THEN Z ま = も 

さ 4 NEXT Ys1F (ASC(E も )=46)+(ASC(B) >47) (RSC(E ま ) く 5 日 ) THEN =1 :GBDTOU ラ 160 
(ASC (BE まま) >96) ※(RSC (HB ま ) く 12 さ ) THEN =ASC (HB ま ) 一 96』 MG GUTH さ 170 
(ASC(B ま ) >64) ※(RSC(B ま ) く 91) THEN SC (E ま ) 64 ょ M=F: BHTU ミ 176 
















=1 THEN N=VaL (CC も ) : CC ま = リ リュ ローOs BOT 3200 
Ds GOTU 3200 
( エ =1 ) ※(Z 呈 = リー リ ") THEN E=1 
BOTU 3200 


FD$(1) =Z ま :TF 1=1 THEN 品 =1 
IF 1 エ =Q_ THEN Z=VQL (じす 日生 ) : 昌和 ま =FD 和 ま (15) s GTTH さ 184 
CC*$= ビ C ま す E も * BUTH 3 さ 200 
Z=VaL (MID ま (D ま も (MM、J) 。 IF(M。B) 、TC(M。B) 1 ) ) = IF 1=1 THEN _N=Z:GOTO 3200 
E=1 THEN N=-Z:M(49) =Oi BODTU 3200 ELSBE 中 =Z 遇 
THEN_N=(N+Z) ※MW:iN=INT(N+。) : N=N/M: GUTU さ 200 
THEN_N= (N-Z) ※MsN=INT(N+ 5) : N=N/M: BHT 3200 
THEN _N=NXZ*M:N=INT (N+。55) : N=N/M: GODTD 3200 
RND 2Z=O THEN N=Os BUTUD さ 20O 
THEN _N=N/Z*※MM:N=INT (N+。) : N=N/MM: GT 3200 
RND Z=O THEN _N=O GUTU さ 20O 
THEN _N=N/Z※MM:N=INT(NK100+。 弓 ) : N=N/M: BUTUD コ 200 
RND NO_ THEN N=-N:N=N^ZMsN=TNT (N+。5) > N/Mi BUTH 3200 
THEN _N=N“"Z*※MsN=INT(N+。 弓 ) : N=N/W 
< TU 130 
き 400 BODSUB 7100gLUCATE O。OkFRINT "ウテナ コ トウ ケイ 1 (サイ ショ ノノ コウ モ フ カ "ミタ シト ナリ マズ ) ファ イル ラガ カギ 
の (Y/ZN) ? "5 
Y ま =INPUT ま (1) s TF Y ま =" ロ リ " BHTO 99 
BUSUB 1000O 
IF FD ま (11)="Y! THEN GUSUB 5010 
BUSUB 7100:PRTNT" サイ サン チュ ウ ネネ 
・ LUCATEO。4:PRINTSPACE ま も (79) sLUCRTEO。4:FRINT" < くく タテ ノ ゴウ ケイ 
3440 IF FD も (11)="Y" THEN PRINT#2、" ーーー エリ"+ ォ F1 ま (F) sPRTNT 拉 2 。" INO。1"+F2 ま も (F) FRINT 持 で" 
ーー" チ F さ ま (F ) 
き 3441 BUSUE 5700:FUR 1=1 TO DE(F) :BOSUB 550:NEXT 1 
さ 444 C ま = リリ sFHRI=1TU IN(F ) :C ま = じ 和 も +STR TNGB ま (ITC(F、 エ ) 一 1 リー) キリ "NEXTI 
さ 445 C ま =LEFT ま (CC ま 。LEN(C ま も ) 一 1) "ゴリ 












き 45O_ FRINT" 1"sRIBHT ま (" "+STR ま (DE(F ) +1 ) 。 さ ) "上" ミ C も 

さ 451 IF FD も (11)="Y!' THEN PRINT 杜 つ 。F6$(F) sFRTNT# つ 。" 1" +RTBHT ま (" "+STR$ も (DE (F)+1) 。 う 
)+ リ トリ + じ Cs PRTNT#2。F6 ま (F ) 

さ 46O_ FOUR 1 エ =1 TO 26:W(1)=OsNEXT 1:CC$=LEFT ま ("ケイ リト SPACE ま ( フ 9) 。 エビ (F。1) 一 1)+ す "1"sFUR = 
2 TH IN(F) 


さき 470 FUR 1=1 TO DE(F) :MM(J) = (J) +VQL (MID も (D ま (F。 1) 、TF(F。J) 、 1C(F。J) 一 1 ) ) :NEXT 1 
72 IF $(F。J)="S" THEN CC まま = EC*+RTGHT*(SPACE$(79) 、IC(F 、 す )-1)+" 1" sgGBOUTU ミラ 476 
る 474 CC* ま =CC ま +RTGHT$ (SBPACE ま (79) +STR$ も (M(J) ) 、TC(F。J) 1)+" 1 

さき 476 NEXT J 





さき 4BO_PRINT" 1"sRIGHT ま も (" "+STR ま (DE(F) +2) 。 さ ) 』 17 CC も 
さき 4 昌 1 IF FD も (11)="YU THEN PRTINT# 人 2" 17 +RTGBHT ま (! "+STR$ も (DE(F ) +2) 。 さ )+" 10 +CC ま FRTNT 
ご 。F6 中 (F) 


さき 42 IF Y ま も まぐ >V"Y! THEN 3492 

さ 490 D ま も (F。DE(F ) + 1 ) = じ ま =D も (F 。DE(F ) +2) = じじ も = D 和 ま (F 、DE(F ) + さ ) = じ ま : DE (F ) =DE (F ) + さ 

ITF FD ま も (12)= THEN エ =VaL (FD ま (13) ) = BOT ミ 495 

549 さ IF FD ま (11)="Y! THEN PRINT# 有 2 。" ビレ ーー ナリ +F ロ 和 ま (F ) =FUHR _N=O_ TO 4:FRINT キ 2:NEXT 
さき さ 494 BUTOU 515o 

さ 49 ロ IF FD ま (11)="Y! THEN PRTNT 拉 人 、" ヒーー ナ リ +F5 ま も (F) :FUR _N=O_ TO 4:FRINT#2: NEXT 
き 496 PRTNT "ヒレ ーー ナリ +F ロ ま (F ) +CHR も (2 の) リコ ゴリ 

さ 497 人 Q ま =FD も (1) : GHTH 日 155 

さ 600 GUSUB 7100:LUCATE O。OsPRTNT "ヨコ ノコ ~ ウケ イ 1 ファ ィ ル ヲ カキ カエ マラ タカ (YZN) で " 

さ 610 Y ま =INPIUT ま (1 ) 

さき 615 IF Y ま =" ロリ " BUTU 99 

さき 616 BUSUB 1000O 

さ 619 IF FD も (11)="Y" THEN GOSUB 501O 

さき 620 BUSUB フ 100: ITNPUT" コウ モ フ メイ リハ "さじ = TF じ ま =" ロ oto 99" BUTO 99 

36 さ O_BHSUB フ 100: TNPUT" : ケ ワッ マウ ルミ X も =TF X 和 まま =" ロ ロモ O 99" BUTU 99 

きら 640 D=VAL (X 征 ) : D=D+1 = し =IN(F)+1: 1TC(F。L) =D:B ま (F。L)="N" = 了 ま (F。L) = ビ 呈 : 人 ま = リ ヨコ ノニ コ " ウケ イリ ミロ 


さ 642 H=OiFURT=1TO し =H=H+TC(F。 1 ) :NEXTT 
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さき 644 IF(H>74) *(H く 132) THENY ま = リ 
テキ マセ フリ ュ TFFD$ も (11)="Y"THENOLP1 
3646 IFH テ 131THEN5BQO 

き さ 650 IF J=DE(F)+1 THEN 3960 
3660 N=OiFUR 1=1 TU IN(F) :N=N+VQL (MID ま (D ま (F、) TP(F、1) 、 ICE(F。 エ ) 1) ) iNEXT TiGOSUE 
3904』 BODTO さ 65O 

さ 3904 ITF JS>1 THEN さ 95O 

さ 905 FD$ も (1)=F1$(F)+STRINB$(IC(F、L) 一 1 リー リ 0) キリ イリ 

さ 907 FD ま (2) = ニ F2 ま (F) +RIBHT ま (SFACEE$(79)+] ま (F。L)+ リ 19 。1C(F。 し ) ) 






: SC=1:LHCATE9。OsPRTNT" 7479 ヲ オー バリ ドー シマ スミ ソテー ヒョウ 
=1:BHSUB11100 











さ 91O FD ま (る) =F さ ま (F ) +STRINB ま (ICE(F。L) 一 1 "リリ + リ キリ 
391 1 FD ま も (4)=F4 ま (F)+STRINB ま (ICE(F、L) 一 1 リー") キリ オ " 
さ 912 FD*( 呈 ) =F5 ま (F)+STRTNG ま (TC(F。L) 一 1 リー) キリリ 


ミ 91 さ IP(F、1)=1:F6$(F)=" 1 UEFUR 1 エ =1 T ロ IN(F) 一 1: IP(F。 エ +1)= ニ IFP(F。 1T)+TC(F。T) :F6 ま (F 
) =F6$(F) +SPACE ま (TC(F、T) 1)+" "ENEXT エ 

ミ 914 F6 ま (F) =F6 ま (F) +SPACE ま (TE(F。IN(F) ) 一 1)+" 1 

3915 F6$(F) =F6 ま (F)+SPACE ま (ITC(F。 し ) 1)+ す "1 

3940 BDSUB 710O:PRINT" ** ケイ サフ チュ ウ ※*※"sFDR GOQ=4 TU 7:LDCATE OBG:FRINT SPC(7B) 
EXT:CLS 1 

ミ 945 LUCATEO。4:FRTNT" < くく ケイ サフ タッ > [ "iA まあ s" 1"sTFSC=OTHENPRINT" エレ ーー"iFD*(1) 
iCEHR ま (29) "コリ 

ミ 946 IF FD ま (11)="Y" THEN PRINT#2@、" ーーー+"+FD も (1 ) 

ミ 947 IFSC=OTHENPRINT" INo。 |" ょ FD ま (2) =FRINT" ヒー 二 " 』FD ま ( さ ) iCHR ま (29) "ゴリ ssLUEATE O,CS 
RLIN+1 

94 日 IF FD$(11)="Y"' THEN PRINT#2。" INO。1"+FD*(2) FRTNT##2。" ビー 二 "+FD* ( さ ) 

ミ 950 IFLEFT$(D$(F、J) 、1) = リー"THENX ま =LEFT ま (D$(F。J) 。LEN(D ま (F。J) ) 1) +" 二 " り STRTNB$(TC(F 
。L) 1 リー")+ リ 1 "ELSEX ま =D ま (F。) +RTBHT$ (SPACE*(40) +STR ま (N)+ り 1 。TE(F。 し ) ) 

ミ 951 ITF Y ゆ =VY" THEN D* ま (F。J) =X$ 








さ 952 IFSC=OQTHENFRTINT" 1" saRTBHT ま (! "+STR ま (J) 。 さ ) 01703X 事 
39553 ITF FD ま (11)="YPTHEN PRTNT#t2。F6 呈 (F) 
さ 954 IF FD$ ま (11)="Y!THEN PRINT#2 "9+RIBHT ま (" "+STR ま (J) 。3) 二 0 寺 X 和 ま 


さ 9555 =J+1: RETURN 

さ 3960 IF FD を (11)="Y" THEN FRINT##2。、" ト エーーー"+FD*( 呈 ) =FUR N=O_ TO 43FRINT 持 2 NEXT 

さ 961 IFSC=OTHENPRTNT" ーー トリ 。FD ま ( 王 ) CHR ま (29) 』 "コリ 

さ 962 SC=O IF Y$= リ "YU THEN F1$$(F)=FD$ ま (1 ) =F2 ま (F) = ニ FD$ も (2) =F さ ま (F) =FDb( さ ) =F4 和 も (F) = ニ FD ま (4) 
:FB ま (F) =FD も ( 呈 ) =・F6$(F ) =FD$(6) : BUTH 3965 

3964 TF FD$ も (12)= リ "YU THEN R$=FD$ も (13) : BOTU B155 ELSE GOTO 99 

3 る?6 IN(F )=IN(F)+1: IE(F)=IE(F)+IC(F。 し ) : IP(F。L) =IP(F 。Lー1 )+IC(F。Lー1 ) sgTF FD ま (12)="Y 
リ THEN まま =FD$(13) : BHTH B155 ELSE 99 

4999 ニーーーTiL テ TvYーーーー 

SOOO_ FRINT CHR ま (7) : RETURN 





501Q SHSUB 7100:PRINT" 齋 フ ? リフ ワー ヲ カウ ニー シテ フタ" サイ ※ 氷 り sGHSUB 11000s GUSUB11100sPRI 
NT#2s RETURN 
5o5O_FRTINT" ェ ーー て " ェ F1 ま (F) :FRINT" INo。 1 "isF2 ま (F) =FRINT "ヒー 一 二 " ミ F さ も (F ) 』: 本" "sFOR 


1=1 TO 1N(F) : =EB ま +SFACE ま (TC(F。T) 一 1) +CHR 和 $(64+ エ ) :NEXT 1 

5060 LUCATEO 、 日 FRINT B$:RETURN 

5070 LUCATE 6。1: X= フ ミーIE(F) : IF X く O THEN X=X+1 

5071 FRINT" (2 コリ リュ Xs 7)" 

5072 LOCATE OBHSUE OO5OrLUCATE 0O、B:TF F=O THEN FRINT"ー メ イソ ウー" ELSE FRINT"ー サ フー 

5074 LOCATE 0O』9:FRINT リ "ーーー" ミド F1 あ (は ) :FRINT" INO、1"iF2 ま (は) FRINT "ヒート" ミ F3$ (は ) : = リ 
"EFDR Im1 TO IN(G) kB 呈す SFACE ま (TC(B。T) 1) +PHR ま (96+T) :NEXT 

076 FRINT BsLUCATE O、12kTF =O THEN PRINT "ー メ イッ ー" ELSE FRINT ツー サフ"ー" 

oO7B RETURN 

5100 PRINT "Tit1e : "iLEFT ま (FT$(F) 』。6)s" "3HTD ま (FT ま (F) 。7。15) 』TAB(64) :"Data : "iM 

TD ま (FT*(F) 。22、2) ょ "/ リ ュ MID ま (FT ま (F) 。24。2) 3"/" ュ RTBHT$ (FT ま (F) 。2) 

5110 FRINT STRINB$(79。"ー") : RETURN 

515O PRINT "ーーー+" ょ F ロ ま (F) CHR も (29) : "コリ ェ BUTD 99 

25O BUSUB 7100: INPUT " 「ー ュ = オー ル ファ ィ ル e ギョ ウフ コ " ウー(D ゲ メ フ No) 一 ( オ ワ リ 2 No) 9 ー リ " 

As TF Q ま = リー" ロ R 人 まこ"。" THEN し =1: =255: RETURN 

IF Q*="GDT ロ 99" THEN RETURN 

C=LEN (人 Q ま ) FUR =1 TO CTF MID$ ま (人 ま 、T。1)<>"ー"THEN NEXT 

TF C+1=T THEN =VaL (も) ょ し = =1: RETURN 

IF 1=1 THEN Q=VaL (人 Q*) : B=RBS (AA) : し =1 : NM=Bs RETURN 

=VQL (LEFT*( 人 ま 。 エ ー1 ) ) 

し = 人 Ri エニ ビーT :H ま =RTGHT ま (人 AT) : D= ニ VQL (日 ) = M=DーQ+1 : IF 日 ="" THEN NM=255 

RETURN 

300 FRINT CHR ま (7) : RETURN 

5400 F1 ま (F) =F1$(F) +SBTRINB ま (TE(F、T) 1、"ー") "て":TF B$(F。T)="N' THEN F2 ま (F) =F2$(F)+ 

RIGHT (SFACE ま (70)+1 ま (F、T)+" 1 、TC(F、1) ) :BOTO 5420 

5410 F2 ま (F) =F2$(F) +LEFT$(T 生 (F。T) +SFACE 和 (70) 、TC(F、T) 1)+" 

5420 F さ ま (F ) =F さ ま (F) +STRINB$ ま (TE(F、1) 一 1 、"") す " 圭 ":F4 生 (F) =F4 ま (F) +BTRINB$(TCE(F。1) 一 1 リー・ 

すり 二 ":F ロ ま (F ) =F5$(F) TSTRINB$ ま (TC(F、1 ) 1 、 "iRETURN 

55OO IF IN(F) =O THEN IN(F) =1:TC(F。1)=1 

5510 =1:FDR T=1 TU IN(F) :T ま (F、1T)=HID ま (F2 ま (F) 、A、TC(F。1) 一 1) : =A+ITC(F、T) :NEXT 

5512 IF(F、1)=1:F6$(F)="1 IVEFUR エ =1 TO IN(F)-1: TP(F。1+1)=IF(F、T)+TC(F、1) :F6*(F 

) =F6$(F) +SFACE ま (TIC(F、T) 1)+ す " "ENEXT エ 

5514 F6$(F) =F6 ま (F)+SFACE ま (ICE(F、IN(F) ) 1)+" 1"sRETURN 

ZOO LUCATEO。5:FRINTSFACE ま (79) : SPACE ま (159) 』 LHCATE 0O、5:PRINT" ーーーr" ミ F1 ま (F) CHR も ( 

29) : "っ":FRTNT" INO、1" ょ F2 ま (F) sFRTNT" ビー 上 "+F ミ ま (F) : CHR ま (29) s" コ NETURN 

75Q PRINT CHR$ ま (7) :LUCATE 9。OsPRINT"  * ネ ※※※※※ 米 玉水 。 ホッ トウ ニ イイ テト スカ (YZN) ポポ 

すす る 1 "iRETURN 

BOO GBDSUB 7100=LUCATE 22。O ェ FRTNT" XX ノウ リョ フ fP イ テリ スッ ポポ ポポ ※※ り BTSUE 

oOsFDR N=O TU OOO:NEXT 1:BDTH 99 

900 BEEF 1:LUCATE O、Y:FRINT " ED "::BEEF Q 

59055 INFUT じ * 

5906 IF LEFT ま ( じ 、7) =" ロ otO 99" THEN X ま =C も =RETURN 

5910 C=O: IF MTD$(C ま 、 互 、1)=" 1"THEN C= ニ VQL (MID$(C*、 

5920 BEEF 1:D ま (F。 ビ )=MTD ま (まま +" 。。 "。 ら 6。TEK(F) ) = BEE| 

59Q IF F=O THEN LOCATE 5。2:TQBX=55:FRINT 

59B2 LUCATE 5B、 つ :PRTNT " 還 蔽 サフ "ファ イル 本 王 蔽 

5990 1F F=1 THEN 5992 

5991 GOTO 99 

5992 GUSUE 7100: BSUB 59BOsLUCATE O。1:FRINT STRTNG*(7B。"ー" 

599 さ BOTD 99 

7000 LOCATE Q。OzFRINT SFACE$(79) :LOCATE O、OEFRTNT" メイ レイ マチ 得 りり カエ ルー メ 27 ルイ = 1- 和 10 

。 BZ= ノ コリ サイ コト 。 DY= フ ァイル コ ヒ " ー" 

7o10 LOCATE O、1:FRINT STRINB$(79、"ー") :TF C2=O THEN LUCATE 0O、2:FRINT SFACE*(79) : し 

DCATE 0。3:FRTNT SPACE ま (77) s 

7012 RETURN 

フ 10O LUCATE 9、O:PRINT SPACE ま (7O) : LCATE 9、O:RETURN 






































メイ ン ファ イル で くく 
FRETURN 





"sRETURN 
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72O0 LUCATE 19.BkFRINT "<<< AUT ロ -2001 CMT- ミ Vemr 1.0 >zsPsiLUCATE 24。11:PRTNT 
"*※*X※※ Ube Tek Micom C1ub *※※※ り =sRETURN 





BOQO ELS 

oO1 LHCRTEO。 OsPRTNTSFACE ま (79) 』 LHCATE 0O。OsFRINT" シド トド ウ 。 1 XX% フリ 7 ロフ "ラム リ ヌ ト ポリ 
BO10 LHCATEO。6: FRINTVNo。 8 27 ロ の" ラム 2 メイ 27 ロ の "ラム / ミキ "リョ SBPC(19) 3 "MM コウ モウ メイ CH ・ 
F CGC No。 "iFPRINT STRING ま (7 コリー ) YY ニワ = 





BO15 CLS1: IF T(F)=0 THEN B060 
020 FOR TI=1 TO TK(F) 

BO2 =INKEY ま : TF まま = リリ! BHT BO3O 
BOSS6 人 ま =ITNFIUT ま (1) 

BOSB IF =Vg リ BOTD 8B1QO 


B03O エ =1Ts QA*=MTD ま (STR$( エ )+" "2、2)+ す "1 "SLOERTE O、Y:FRTNT 人 Q ま +T ま (F、1) 
Bo5O Y=Y+1:NEXT 

BO60 LUCATEO、O:PRTNT STRING ま (75、"ー") :CHR$( フ ) 

B1O0 BODSUB 7100:FRINT" フ * ロ の "ラム ノ ジッ コウ ーーー1、 フ 7 ロ ノ ト ウロ 2 ーーー2。 フ S ロ ノ テイ セイ ーー- さ 、 フ "ログ 
ラ 4 リ ッ マト ーーー-4" 


B110 人 ま =INFUT ま (1) 

月 120 1F Q ま ="Wq" THENCLS:GUTH 99 

日 1 さ O IF VAL(R ま も ) ぶ 1 THEN 110 ELSE ロ N VQL(R ま ) GUTO 154。B200。 日 400。B00O 

B135 BUSUB SOQOO BHTH B11O 

8B154 P=FiGBUSUB 7100:TNFUT" 27 ロフ "ラム NO。 = "Rb も:TF 人 =!goto 99! THEN99ELSECLS1 iLO 

CATEO。6kFRINTSFACE ま (79) =sFRINTSPACE あ (79) 

日 15 ロ ユ =VQL ( 仙 ) : = ニ MTD ま (T ま (P。 1 ) 。 1 弓 、 う 0) : Y ま =MTD ま (本 和 ま (P。 1 ) 。46。 1 ) : じ =MTD ま (T[ 和 ま (F。1) 。 4 日 。 1 

O) : X 和 まま =MTD ま も (生ま (P。 1 ) 。 ワ 。2) 

156 FD$(10) =MID*(T ま (P。 1 ) 。62。 1 ) :FD ま (1 1 ) =HTD ま ( 丁 ま (P、1) 。64、1 ) :FD ま (12) =MTD も (生ま (P、1) 。 

66。 1 ) :FD ま (1 る ) =RTGHT 生 (TT 和 ま (P。 1 ) 。2) :FD ま (14) =LEFT 和 ま ( ま (P。 1 ) 。 1 ) : IF FD ま (11)="Y! THEN GOS 

UB 5O10 

157 IF FD ま (14)="1" THEN Q= さ Os BUTO さ 116 ELSE IF FD$(14)="C"THEN 3425 

B159 IF FD$ ま (14)="L" THEN 3640O ELSE IF FD ま (14)="A" THEN Z$ ま = さ Os ド =O:FHR エ =1 TO 
10:FD ま (1)="!sNEXT 1:FD$ ま (日 ) ニ "2":FUR エニ =1 TO 26:M(T)=OsNEXT BOT 1106 

昌 161 1F FD$(14)="S" THEN B ま =LEFT ま (人 中 。 1 ) : = ニ MTD ま (人 和 ま 、 つ 。 1 ) : 1=QSC(B ま ) 64: GOTO 2240 

162 IF FD$(14)= THEN X= ニ F :F= ロ : ロ =X : 人 Q 和 ま =FD ま も (1) : GHTH ヨ 155 

163 BUHSUB 53QO BHTH 99 

200 LUCATE 0』YsPRINT SFAEE ま (79) :LUCATE O。Y:FUR エ =Y- TO 26: も =MTID ま (STR ま (1 エ ) す リー 
sy2。2)+U UEPRINT 人 















8B210 BUSUB 7100:LUCATE O。O: BEEF: INPUT "トウ ロフ 1 ] コ = ニオ ワリ 。 フ ? ロフ "ラム ノー ジュ ルイ (ケイ サフ ニ T 、 ダテ ケ 
イー ビ 。 ヨ コケ イ = し 。 リ イ レ リ =R 。 ソー ト = ロ 。 ファ イル キリ カエ ニ X ) " 』 仙 ま :TF 仙 生 = リ ]" THEN T(F) = エー1: BUTUB10O 

B21 T$(F。1) =LEFT ま (人 ます りり 1) オリ "saLUCATE 4。YiFRINT まま 

B220_ BUSUB 7100』 BEEP: INPUT "フフ? ロフ" ラム / ノ ナマ エ (10 モ シ " ) ョ 人生 





228 T ま (F。 1 ) =T ま (F。T)+LEFT も (人 Q ま +SPACE も (10) 。 10) + リ 
B23O BUSUB 7100: BEEP: INPUT " フ 7 ロフ "ラム シキ (30 モ シド ) "第 

日 23B T ま (F 。 1 ) =T$(F 。 1 )+LEFT ま (人 Q ま +SPACE も (30) 。 さ O) + リ LOUCATE 1 昌 。YsFRINT まま 
B24O0 BUSUB 7 ア 100: BEEP : INPUT "ファ ィ イル ヲ カキ カエ マス カ (Y/N) " ュ ま 

24 T ま (F 、 1 ) =T ま (F 、 1)+LEFT ま (人 R 和 まり リサ 1) オリ "saLUCRTE 49。YsPRINT も 

B25O BUSUB 7100』 BEEP: INPUT" コウ モワ フ メイ (10 モ シト) リョ 人 

B25B T$(F。 1 ) =T ま (F。T)+RIBHT 和 ま (SPACE$(10) + 人 生ま 。10)+! "sgLUCATE 51。Y:PRINT Q ま * 
B260 BUSUB 7100』 BEEP: ITNPUT "ケタ ウス ウー" ョ 人員 

B261 IF Q*$ く "OU AND まま >"9" THEN 260 


CATE 6。YsPRINT まま 








B26 昌 T 事 (F。 1) =T ま (F。T)+LEFT 生 (人生 す リ ーー "2)+ リ "saLUCRTE 62。YsFRINT 
8270 BUSUB 7100』BEEP: INPUT "ショ ウス ウー パカ ナ フ ケ ワウ グリ シマ スカ "人 
B27B T$(F。 1 ) =T ま (F。 1)+LEFT ま (ます リリ 1)+ リ "sgLHCATE 65。Y:FRINT 人 Q$ 


B2BO GDBUB 7100: BEEP: INPUT" イン サリ シマ スズ カ (Y/N) "3 も 
B2BB T ま (F。T) =T(F。T)+LEFT も (人生 すり "。 1) て" "ELUCATE 67。Y:PRINT 

290 BDBUB 7100: BEEP: INPUT" し っ ソフ サイ サン ジマ スカ (Y/N) "is 

B29 日 T$(F, 1) =T ま (F。T) +LEFT$ も (人 すり 1) "ELHCRTE 69。Y:FRINT を 

B3QO GBDSUB 7100:BEEP: INPUT" ゆり ト ケル フ " ロ 2* ラム NO。 "を 

3O1 IF <"O" RND >"9" THEN BOO 

BOB T$(F。T) =T ま (F。T)+LEFT$( 人 も すり "、2) LHCATE 71、YsPRTNT 人 Q$:Y=Y+1:NEXT エ 

B40O GBDSUB 7100: INPUT" ( ティ セイ =ED ) 。。 サ 2" ョ ニース ル フ % ロ 2 ラム No.= "3 

B405 IF A$='ed' ロ R QA*="ED" BOTO B5OO 

B410 1F sgoto 99" THEN LOCATEO,4:FRINTSPACE*(7 ) : BDTU 99 

B420 =VAL (まま) : IF Q=<O THEN B4QO 

B425 GDBUB 575O 

B426 $=INPUT ま (1 ) : IFN まく >"YPTHEN B10O 

B430 FOR LT=A TO 25:T ま (F。T)=T$(F。 エ +1) :NEXT T:T(F)=T(F) 一 1:GOTO BOO1 

B5OO GOSUB 7100:LQCATE O.O:PRINT"ED 1 ティ ff N 1 や ョ ウ コー トニ オ コ ナ Y2s "CHR*(7) し 
DPQTE O。 日 LTNE INPUT ビ $ 

B520 IF LEFT$(C*,』7) ="goto 99"THEN BOO1 

B5 さ O IF MTD*(C ま 、 さ 。1)=" 1"THEN =VAL (LEFT*(*、2) ) :B ロ TU B55O ELSE BOO1 

B55O T$(F。C) =MTD$(C*。 王 69) : BT B5OO 

B600 IF ERR=6 さ THEN CLOSBE:LOCATE 40。2OsFRINT "ファ イル カ ) ナイ "CHR ま (7) :FHR GO=O TO 10 
OO NEXT:RESUNE 22 

B61O IF ERR=64 THEN CLOSE:LOCATE 25。24:PRINT "オナ ジ " ナマ エ ノ ファ イル カカ" アル "SEHR ま (7) : RES 
UME 1aoo 

B62O RESUME 97 

1000O BUSUB7100:PRTNT" イン サリ シッ スカ (YZN) 2" 

10010 FD ま (11)=INPUT$(1 

10020 IF FD$(11)="qg" THEN RETURN99 

100 ミ 1 TF FD*(11)="Y"THEN 1100O 

1004O RETURN 

1100O TF DLF=O THEN PEN" ロ "、#2、"LPTO: "=FPRTNT#2、EHR ま て (27) : "7:EHR ま (7) s : ロ LP=1 

11010 RETURN 

11100O TFDLP1=OTHENPRTNT#2。CHR$ ま (1 日) ELSEPRTNT#2、CHR ま (15) 

11110 ULP1=Os RETURN 
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たら ペー ンプ 


大 量 の デー タ を 処理 する に は どう し て も , フロ ッ ピ ー デ 
ィ ス ク が 必要 で す . ディ スク を 使用 し て いて , 操作 を 間 違 
えた り , プロ グラ ム の 暴走 に よっ て , ディ スク を 壊し て し 
まう だ 天変 で ま 。 

こう いう 場合 で も , 元 の デー タ は か な り 残 っ て お り , あ 
る 程度 は 復元 で きま す . 

この プロ グラ ム は , FM-8 の ディ スク を 調べ , 場合 に よっ 
て は 修正 する も の で す . 


F-BASIC デ ィ ス ク の 精 成 


片面 0 一 39 ト ラッ ク 
トラ ッ ク テ 1 ュ 一 32 セ クタ 
セク ター256 バ イト 
グン ンズ ペグ 王 8 セク グ クタ 













F-BASIC で 使用 する フロ ッ ピ ー デ ィ ス ク の トラ ッ ク 1 
に は , ディ スク 管理 の 情報 が 書か れ て いま す . 


トラ ッ ク 1, セク タ 1 FAT(File Allocation Table) 


ディ レク トリ 





トド トラック 1。 セ クタ 4 一 32 





FAT は クラ スタ の 使用 状況 を 示す テー ブル で , 5 一 156 バ 
イト が , クラ スタ 0 一 151 に 対応 し ます . 各 バ イト は 家 1 の 
意味 を 持っ て いま す . 

ユー ザー エリ ア は , トラ ッ ク 2 以降 に 割り 当て られ , 0 
ー151 の クラ スタ が これ に 対応 し ます . 

ディ レク トリ は , 32 バ イト ずつ ,。 ひと つの ファ イル に 対 
応 し ます . これ は ディ レク トリ ・ ス ロッ ト と 呼ば れ ま す . 


ファ イル の プロ テク ト の 有無 は ディ レク トリ に は 書か れ て 
いま せん . ディ レク トリ の 構成 を 図 1 に 示し ます . 
表 1 ディ レク トリ ・ ス ロッ ト の 構成 






EE2 


K ラ 散 
(16 進 ) 意 味 (クラ スタ の 使用 状態 ) 













この クラ スタ は 使用 中 で あり , 後続 する クラ スタ を 
持つ . 値 が 後続 する クラ スタ の 番号 を 示す -. 
この クラ スタ は 使用 中 で あり , ファ イル 最後 の クラ 
スタ で ある . この 値 か ら C0 を 引い た 値 は . クラ スタ 
内 の 実際 に 使用 きれ て いる セク タ 数 士 1 を 表わす . 
クラ スタ 中 の 使用 セクタ は な い . 
この クラ スタ は シス テム 領域 で ある . 
| この クラ スタ は 未 使用 で ある . 














FF 





15 人 4 











| 【 の 97 パ の 





プロ グラ ム を RUN させ る と , ドラ イブ 番号 , トラ ッ ク 番 
号 , セク タ 番 号 を きい て くる の で , 処理 し た い ド ライ ブ , 
トラ ッ ク , セク タ 番 号 を 入力 し ます . その 後 , 内 容 を 16 進 
数 と ASCII で 表示 し , コマ ンド 待ち に な り ま す . セク タタ 数 
が 負 の 場合 。 内 容 の 表示 は し ませ ん . 


セク タ 内 容 の 変更 

その セク タ の SAVE. ドラ イブ , トラ ッ ク , セク 
タ 番 号 を 指定 し , 書き 込む . 

クラ スタ 番号 を 16 進 数 で 入力 する と , FAT に お け 
る アド レス , トラ ッ ク , セク タタ 番号 を 表示 する . 
セク タタ 内容 の プリ ント ・ ア ウト 

次 に 処理 し た い ド ライ ブ プ 。 トラック, セクタ 番号 
の 入力 を 要求 する . 番号 を 入力 し な いと , トラ ッ 
ク は その まま で , 次 の セク タ を LOAD す る . 最終 
クタ を 越え る と , 次 の トラ ッ ク に 移る . 
処理 を 終え る . 





S( セ モ セーブ) コマ ンド を 使う と き は , 間違え な いよ うに し 
て くだ さい . また だ た, FAT お よび 処理 し た い フ ァイル を 含む 
ディ レク トリ は ,。 PP コマ ンド で プリ ント ・ ア ウト し て か ら 。, 
作業 に 取り 組む と 良い で し ょ う . 

図 1 ディ レク トリ ・ ス ロッ ト の 構成 





0123456789101112181415 81 
[ラファ ィ ル も レレ クエ [トレ ジジ ク ク 多 ググ 


| | イア 和 馬 クラ スタ 
00 : 削除 


ラン ダム ・ ア クセ ス ・ フ ラグ 
FF : 未 使用 


00 : シー ケン シャ ル 
FF : ラン ダム 
その 他 : 使用 中 


ASCII フ ラグ 


00 : バイ ナリ 

FF : ASCII 

ファ イル ・ タ イプ 
0 : BASIC 

1 : BASIC デ ー タ 
2 : 機械 語 


図 2 


FAT の 例 


&O 











Driv numbe レ 
TrackK number 
SecCter number 


Driv 与 number 
TrackK number 
Ge て モレ number 


Drive number 
Track number 
Se ヒモ er number 


06 OZ7 


2O0 20 
QO QO 
2O0 20 
QO OO 
20 20 
QO OO 
20 20 
oO _QOQO 
2O0 20 
OO 0OO 
2O 20 
OO QO 
2O 20 
QO OO 
2O 20 
oO QO 


ディ レク ト 


08 05 


00 OO 
QO QO 
00 OO 
QO OO 
0O OO 
QQO OO 
OO OO 
QO OO 
OO OO 
OO OO 
OO QO 
OO OO 
QO OO 
OO _ 00 
QO OO 
OO OO 





図 4 マシ ン 語 ファ 





012 さ 456789BCDEF 


PETEEIELO EE に すま 


ERP: オ きま と: オ | 
PEE た ナー ナド まま まま すき すす] 





0123456789BCDEF 


SNAKY ュー 
LOADRS 』 に ・』・ に に ・・・ 
FUCK PPPTTE 
LTIEN PTE 
2001 CETEIEE 


2001 一 1 1 。。 に に 





012 さ 4567 ヨ 9ABCDEF 


PS- ます すす すす 
加 ? キ 。 下 ホ キキ 。 画 キ 。 較 
* 。 力 。FF 事 力 。 ァ _ 四 * 
・& ヽ 瑞 。 キ 。 マッ 「。。 に P。 


し EE 
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,O 





ディ スケ ッ ト ・ ド クタ ー プロ グラ ム ・ リ ス ト 還 還 還 還 還 還 還 昌 昌 





10 DEFINT 人 Q-Z 

20 CLEAR 1000 

30 FIELD 韻 O。128 QG 人 Q 生 。128 GS 日 生 

40 IADR=PEEK (VARPTR( 人 も )+1 ) *256+PEE に K (VARPTR ( 全 ま ) +) 
5O MIDTH 0。25 

60 LLSM=1 : DRV=O: TRK=1 : SCT=O 

70 CRLF ま = じ HR 生 (10) +CHR ま (1 さ ) 





Bo 

0 ” 。 He11ow Messaqe Di5p1ay 

10O0 ”" 

110 COLOR 7 

120 PRINT 

13O_ PRINT ポポ ポポ 水 水 ※ 水 水 水 氷水 氷水 氷水 水 氷水 氷水 氷 氷水 氷 氷 氷 氷水 水 水 水 氷 リ 
140_ PRINT "ポポ 氷 ※ ポポ ポポ 氷 氷 リ 
150O_ PRINT "※※ 氷 ※ 水 Di 呈 に 己 モ DOC モ OF 氷水 ※ 氷 上 
160_ PRINT "ポポ ※※ ポポ 氷 ※ り 
170 PRINT "ポポ ポポ 1/11/1 フ 7 水 氷 氷 氷上! 
180_ PRINT "K 氷 ※※※ T。 8。D。 ポポ ポポ ※ リ 
190_ PRINT "ポポ ※ ポ 氷 る す すす 
2O0 PRINT ポポ 水 水 氷水 氷 氷 氷 氷水 氷水 水 水 氷水 氷水 氷 氷水 水 氷水 ※ ポ 氷水 水 氷水 氷水 =CRLF ま 
レツ v 

220 " Main ProgqFam Star モ Her 

230 『" 


240 GUSUBB5O』 BHSUE さ さ Q 

25O INFUT "Command .。 (C)hange』(N) ex も 。 (PF)Fint。 (8) ave』(T) rans1 at 上,(E) xi モー "』CMD ま 
260 IF CMD*$=" ビ " THEN GUSUB 55O』GHTO2SO 

270 IF CMD*$="G! THEN BUSBUE 750』GUTU25O 

28O IF CMD ま ="T" THEN BUSUB 1080』: GUT ロ 2SO 

270 IF CMD ま ="P" THEN BUSUE さ 60:GHTO 25O 

さ 00 IF CMD ま ="ND THEN 210 

さ 10 IF CMD$="E" THEN END 

さ 2O_PRINT CHR ま (7) 』 "Eommand error "saCRLF ま : GUTO 250 

ささ OO 『“ DumD on SCFreen OF ビビ ュ in ロモ Fr rrOutin 

さ 40 IF LSM=O_ THEN_ RETURN 

さ SO_ ロ PEN" ロ "。#1。 "SCRN』 "』 BOTO さ 8O 

さ 60_ ロ PEN"O" 。 間 1。"LPTOI "=BOTO さ 8BO 

さ 70 IF CMD* ま ="D" THEN PEN"O"。 間 1。 "SERN: "』 ELSE OPEN"O"。 失 1。"LPTOI" 


さ BO_FRINT 半 1。CRLF ま 』" Drive number ="』DRVi 

さ 90 PRINT 拉 1." Track number ="』TREs 

400 PRTINT 拉 1 " SeCter number =" リ 』SCT』CRLF ま も 

410 PRINT##1』" 900 Q1 O2_ 0S 04 05 06 07 OB 09 QOa oOE OC QD QE QF"i 
420_ PRINT 拉 1." 012 さ 456789BCDEF " 』 CRLF も 

43O FUR T=O_ TO 255 GTEF 16 

440  D 員 = リリ 


45O DUMF$=HEX 征 (INT(T/16) ) +HEX 還 (T MOD 16)+" 
460 FOUR J=I TO エエ +15 


47O TD=PEEK (TADR+J) : DUMP ま =DUMP 和 ませ HEX 和 $(TD/16) +HEX ま (TID MHD 16)+" " 

48o TF (ID< さ 2) ロ R (ID=127) DR (TID=255) THEN D$=D$+"。" :ELSE D*=D* ま +CHR$(TD) 
49O NEXT J 

OO PRINT##1 。DUMF$』" "』D 

10 NEXT r 


52O PRINT 拉 1 CRLF 還 

53O CLOSE 1 

540_ RETURN 

55O " 

560 " 。 Chan F ロ utine 

57O 『* 

58O INFUT "Change addres5 [OーFF] "』ANG ま 

590_ LC=VaL ( "SH"+ 人 NG ま ) 

600 PRINT "BACK [上 /]1。NEXT [RETURN]』END [.]』HEX DATR [0-FF]"』.CRLF$ 
61O IF LCSO THEN LC=O skELSE IF LC>255G THEN L ビ =255 
62O_FRTNT HEX$( し LC/16) 』HEX ま (LC MHD 16)47 5 "の 

6 さ O TID=FEEEK(TADR+L ビ ) 

640_ PRINT HEX$(TD/16) 』HEX 和 ま (ID MHD 16)87 

る 6 る 50 INPUT ANGS$ ま 

ら 660 IF NB まま ="/" THEN LC= ニ LC ビー1 : GHT ロ 610 

670 IF QANS ま ="! THEN LC=LC+1: GUTOD 610 

68O 1F ANS ま ="。" THEN_ RETURN 

690 TID=VaL ("8&H "TNG まう 

700 IF (1IDSQO) OR (ID>2555) THEN 61O 

710 IF ID=O THEN 720 giELSE 7 さ 3O 

720 IF ANS$="O" OR aNS ま ="OO" THEN 7 さ O kgELSE 610 
730 PORE TINT(IADR+LC) 』 INT (TID) 』 LC=LC+1 

740_ GOTO 610 








76O "Save 上 ロ uu キュ ロ 己 
770 『" 








INFUT "Save モ O モ h am ロロ 51i モ tion FEY/ZN] "。QNG 叶 
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ベク ョ ント ot ド シク イク ん 


1O 


プロ グラ ム ・ リ スト 








IF QANS$="Y"THEN 10 

BSUE 910 

INPUT "ar yu =ur [上 Y/ZN] "。AaNS 
IF ANS$S>VPYU THEN 2SO 

DSRO ま DRV』TRK。 SCT 

RETURN 


” Load Futin 

BUSUR 910 

DUMMY ま =DGK1T ま (DRV。 TREE 。 SCT ) 

RETURN 

* 。 Drive。 Ta ヒド 』 GeC モ Or number inDut subrOutin ロ 己 
COLOR 7 


INPUT "Drive number ニ = リョ 』DR ま = IF DR も ="" THEN BHTO 96Q 
DRV=VaL (DR まま ) = IF (DRVSO) ロ R (DRV>2) THEN 940 

INFPUT "Track number= ニ リョ 』TR 呈 』TF TR 生 ="" THEN 98Q 

TRK=VaL(TR ま も ) : IF (TRESO) HR (TRK> さ 9) THEN 96O 

INFUT "Sector number="』SC』TF BC*="! THEN SCT=SCT+1 』 GHTH 103O 


SC=VaL. (SC) : BCT= 人 ES (SC) iTIF (BCTS1) UR (SCT> さ 2) THEN 98O 


LSM=1 』 IF SCXO THEN LSM=QO 

PRINT 

RETURN 

IF SCT>32 THEN CT=1: TRK=TRK+1 

RETURN 

"TIFa51a モ 己 C1 い = モビ ロロ 。 モロ 上 じい CK/ 呈 ヒモ ロレ 
INPUT "1 ut 上 er number = リョ LC ビ L=VQL ("SH "キビ L 加 ) 
IF (CLSO) ロ R (CL>156) THEN 108O 

PRINTCRLF ま 』" FQT addre== ニ "HEX 生 ( ビ L+5) 
FRINT" Track number=  "』CL\4+2 

FRINT" Sector number= "sa(CL MOD 4)※ 日 +1 』CRLF 
RETURN 
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毎月 /O を 楽し く 読 ませ て も ら っ て いま す . 実 は!/O 
の 1981 年 12 月 号 の 漢字 入 カ タプ レッ ト の プロ グラ ム を 
も と に , タプ レッ ト を 必要 と し な い 日 本 語 ワ ー ド ・ プ 
ロ セ ッ サ を 作っ て み ま し た . 


構成 図 











ロ へ 











半 

















まず , カナ ・ シ フト ・ キ ー を 押し て も らい ます . 通常 は , 
この モー ド で 入力 し ます 

書き た い 漢 字 の 音読 み (た ま に 訓 読み ) の キー 押す と, 
画面 最 下 段 に 40 字 漢字 が あら われ る と と も に , 漢字 の 下 に 


カー ソル が で ます . 

カー ソル 移動 キー (| 一 また は | 一 | ) を 使っ て 選択 し 
て も らい ます が , も し , 捜す 漢字 が な い 場 合 は , カー ソル 
移動 キー ( [1 | また は ) を 使っ て , 次 の 40 文 字 を 画 
面 に 出し て くだ さい . | 1 | また は | } | を 使う 際 。 その 音 
読み の 漢字 の 一 番 端 ま で 行く と BEEP 音 が 出 て , 他 の 音読 






































み の 漢 字 ま で 行か な いよ うに な っ て いま す . 捜す 漢字 が 見 
つか れ ば , |RETURN| キー で , 画面 上 部 の カー ソル の 場所 
に 表示 され , な けれ ば , [SPACE| キー に よっ て , メイ ン ・ 
プロ グラ ム に 戻り ます . 








































































[RETURN] キー 
の あき |BS | キー。 
GRAPH | キー を 押し な が ら |S| キー, 
が キー, 
/ | キー, 
/ [H| キー 





カー ソル 移動 キー で す . 
0 デ 9 だ AA デー グ ,。 az は その まま 入力 し まず す 。 
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カナ で 漢字 を 表示 し ます . 
@ ま だ たよ で で 記 清 : 
ン ま た は ・ で ひら が な , 
2 027 ブッ 
GRAPH| キー を 押し な が ら |@| で ギリ シア 語 , 
ロ | で ロシア 語 で す . 




















一 | 一 | で カー ソル 移動 

1 で も と の 340 文字 表示 

} で 湊 の 40 文 字 表 示 

[RETURN| キー で メイ ン ・ プ ログ ラム へ , その と き の カ ー 
ソル 位置 に ある 漢字 デー タ を 出力 し ます . 出力 し た く な v 
と き は |SPACE| キー で メイ ン ・ プ ログ ラム に 戻り ます . 


0 】 
お わり に 
長所 ・ 短 所 
この プロ グラ ム の 長所 は , タブ レッ ト な し で , 漢字 ROM 
に 入っ て いる すべ て の 文字 を 文字 コー ド を 調べ な く て も 出 
































1/0 7 ルー ム 


H 桂 9- ド F 7mt9 す FM-6 





&O 


力 で きる と いう 点 と , 元 の プロ グラ ム ど お り , Delete な ど 後者 は , 多少 複雑 に な る か も し れ ま せん が , これ か ら , 
の Edit 機 能 が その まま 残っ て いる と ころ だ と 思い ます . 頑張 っ て プロ グラ ム を 改良 し て いく つも り で す . 

この プロ グラ ム の 短所 は , 操作 方 法 に な れ な いと (特に な お , この プロ グラ ム 作成 に あたっ て , 大 阪 Computer11 
漢字 の 音読 み が ス ッ と で て こない と ) た や すく 漢字 が 出力 の 皆さん に は 大 変 お 世話 に な り ま し た . あり が と う ご ざ い 
で き な い 点 と , 漢字 コー ド が 連続 し て いな い の で , 次 の 表 ます . 


示 へ と スク ロー ル し て いく うち に , 他 の 音読 み の 漢字 が あ 
ら わ れ て くる 点 で す . 


MGCZRHSOGPSPSG5RSEpslgoszizalgAsaanssgesfriesfssns ま amssgasesseah プ "] グラ ノ /、・ リ ス ト ENRNCE22S3E5255gEOBigZie ESS7ZEIEHEiHDZERMaRRHRCHGRPETEcE2RTE25AESs 1 





10 
20 


100 
11O 
120 
1 さ 3O 
140 
15O 
16O 
170 
18QO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
28O 
290 
さ 0O 
さ 10 
さ 20 
ささ 0 
さ 40 
350 
さ 60 
さ 37O 
30 
さ 390 
400 
410 
420 
4 さ Q 
440 
45O 
460 
470 
480 
49O 
50O 
51O 
520 
5 さ O 
54O 
5SO 
56Q 
57O 
58O 


59Q 


60O 
610 
620 
る 6 さ 〇 
64O 
650 
660 
67O 
68O 





JAPANESE MOURD PRUCESSOR 


DEFINT ^-Z:DIM SCRN( さ 2。 日 ) iDIM DS(60) 
さ O_ MIDTHBO。 25 

FUR =1 TO 55 

5O READ iDS(T)=gNEXT 1 


70 COLOR ,」7:CLS 
BYMBDL(100,50) 。 "Mord" 。 王 。 さ 。 1 
9O_ SYMBOL(150。100) 。 "prosegsor" 。 王 。 さ 。 1 


SYMBDL ( さ 0O。 150) 。" エ / ロ engine room"』。242。2: "arranged by IMQKURUSU 
FUR 1=O TO 2000』NEXT TiCOLOR』O ・ 

CLSkFUR IT=O TH さ 2:FOR J=O TO BiSCRN(T。J) =OgNEXT J。』1 
1=0』 =O 

BUSUB 45O 

仙 ま =TNKEY 生 』TF 谷本 = リリ THEN 150 ELSE =ASC(R$ も ) 

GDHSUB 450 

IF (>27 AND 32) THEN UN -27 GOTH 1070。1080。1090。』1100:REM **% CURSUR MOVE 
IF =64 HR =222 THEN 人 Q=222』 BHTO 1160』7 キキ で ウリ "59 リ "or 
IF =221 ロ R 人 Q=22 さ THEN =224:BUTU 1160』 " ヒラ が ナリ フリ Or WT H 
IF =176 THEN 人 =226』 BHT 1160』 "カカ ナリ ー リ 

IF 人 Q=15 THEN QA=228: GBDTH 1160』" キ " リ シア コ ^ "8" 

IF 人 Q=224 THEN 人 Q=2 さ O BHTU 1160i 7" ロシア ゴリ" ロリ " 

IF = 11 THEN 13OgREM HOINE 

IF = 12 THEN 120:REM CLEAR _ SCREEN 

IF = THEN 750』REM **% ERASE LINE 

IF 人 Q=150 THEN 540:REM ※%*※ GAVE 

IF Q=142 THEN 570』REM ※%※% LUaD 

IF =232 THEN 610sREM ※% TNSERT 

IF 人 n= 27 THEN 89OkREM *※*※ LIST 

IF =159 THEN HARDC2: BUTH140:REM ※*※ CUPY 

IF 人 Q=127 THEN 690』 REM #※*※DELETE 

IF = 13 THEN 970』REM ※*※RETURN 

IF = 日 THEN SOOiREM *%※BQCK SPACE ・ 

IF (>47 aND BB) THEN D=aATB960 sBOTH さ 90 

IF (64 AND <91) THEN D=Q+ ヨ 960 』BUTO さ 90 

IF (Aa: の 6 AND < く 12 さ ) THEN D=a+B960 』BUTOU 390 

IF (>176 QAND <222) THEN BOTO116O 

BOT 140 6 
LTNE (TX20。J※2O) 一 (T%20+19。※20+19) 。 PRESET 。 。 BF i PRINTS(T*20。J*20) ,D 
SCRN( エ 。 ゴ ) =Di エニ エ +1 

IF 1= さ 2 THEN SCRN( さ 2。J ) = ニー1 』s エ = ニ O』 ゴ = ゴキ 1 

IF J=9 THEN BEEPiJ= 晶 

BOT 140 


XC=T%20』 Y じ = ニ J※20 

IF 1= さ 2 THEN X ビ =0s Y ビ =YC+20 

LINE(XC。Y ビ +17) 一 (X ビ +17。YC+17) 。XUR。Z 

RETURN 

エニ エー1 

IF 1= ニ ー1 THEN IF J=O THEN BEEPiGUTU 1 さ 3O _ ELSE 1= さ 1 s ゴ = ゴ ー1 : SCRN( う 2 。 J ) = ニー1 
BOT 140 


CLSIFRINTS(0。O) 。 17744。20287』 GUSUB 59O 

PEN "ロリ" 』。 福 1 。F エ 本 sFHR J=O TO sgFUR エ =O TU さ 2:PRINT 社 1 。SBCRN( 1 。J) s NEXT 【。Jg CLOSE 共 1 
BOT0 B8O 

CLSsPRINTS(O。O0) 。 14406。 15696』 GUSUB590』 OPEN" エリ 。 蘭 1。F エ も 

CLS:FUR J=O TO Bi:FUR エ =O_ TU さ 2: INPUT 提 1 。SBCRN( 1 。 ゴ ) : PRTNTS( エ %20。J%20) 。 SBCRN( エ 。J) 


sNEXT 14。J:iCLUSE#1 GUTH 13O 


LUCATEO, さ 』 ITNPUT "FILE NAMEP" ョ FT も s TNPUT "DISK DRIVE? り "DRIFT ま =RTGHT ま (STR$ (DR ) 。 1 ) 


+ リ ョ リ ォ FT ま s RETURN 


タテ 


BUSUBB2O 

IF_NUT (SCRN ( さ 1 。Lー1) =O_ ロ UR SCRN( さ 1 。Lー1 ) =4 日 1 ) THEN BEEP: GT 14O 
FUR C=L さ 2ー2 TU エ +J ロ * さ 2 STEPー1 』 ビ 1= ビ +1 

BUSUB1000 

NEXT ビ 

SCRN( 1 。J) =OgLTINE( エ TX20。JX20) 一 (T※20+49。J%X20+19) 。 PRESET。 。 BF 
BOT 140 
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10 


プロ グラ ム ・ リ スト 








690 
700 
710 
720 
73O 
740 
75QO 
760 
770 
780 
790 
BF 
BQQ 
10 
20 
83O 
40 
85O 
60 
7O 
8O 
890 
900 
910 
920 
9 さ O 
40 
950 
960 
970 
980 
990 
10o0O 
1010 
1020 
1030 
1040 
105O 
1060 
1070 
1080 
1090 
1100 
1110 
112Q0 
11 さ 3O 
1140 
115O 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
125Q0 
1260 
1270 
1280 
1290 
1 さ QO 
1 さ 10 
1 さ 20 
1 さ 3O 
1 さ 40 
135O 
1 さ 60 
1 さ 70 
1 さ 38O 
1 さ 90 
140O 
1410 
1420 
1430 
1440 
1450 
1460 
1470 


BUSUBB2O 

FUHR = エ +J※% さ 2+1 TU L* さ 2ー1 』 じ 1= ビ ー1 

GOHSUE100Q 

NEXT ビ 
L=Lー1sLTNE(620。L%20) 一 (6 さ 39。LKX2O+19) 。 PRESET 。 。 BF 
GOT0 140 

日 

GUSUBB10 

FUR C= エ +J※ さ 2 TH L※ さ 2ー1 

SCRN((C MOD さ 32) 。INT(C/ さ 2) ) =0 

LINE((C MOD さ 2) *20。 INT ( ビ / さ 2) 20) 一 ((C MOD 32) %20+19。INT(C/ さ 2) %20+19) 。 PRESET。 。 


NEXT CiGOTO 140 


し = ロゴ 

MHILE SCRN( さ 2。L) AND (L く 8) 
し =L+1 

MEND 

し = し +1 

RETURN 

日 


CLS 

FR Y=O TO 

FUR X=O TOS1 

PRINTD (XX20。Y※20) 。 SCRN( X 。 Y ) 
NEXT X 

NEXT Y 

BOT 130 


SCRN ( さ 2 。 J ) =0』 エニ 0』 = ゴ +1 
IF J=9 THEN BEEP:J= 晶 
BOT 140 


X1=C1 MOD さ 32:Y1=INT(C1 / さ 2) : X2=C MDD さ 2:Y2=INT (C/ さ 2) 
SCRN(X 1 。Y1) =BCRN(X ら 』 Y2) 

LINE (X1%20。Y1 20) 一 (X1%20+19』Y1%20+19) 。PRESET 。 。 BF 
PRINT9(X1*20。Y1*20) 。BCRN(X1。Y1 ) 

RETURN 


1=1+1sBOTD 1110 

1= エ ー1: GBDTO 1110 

= ゴー1 s GBDT ロ 1110 

=+1 s BT 1110 

IF 1= さ 2 THEN I=O 

IF 1=ー1 THEN 1= さ 1 

IF J= 9 THEN J=O 

ITF =ー1 THEN J=B 

BOT0 140 
BOBUE45O:P= 人 176: =DS(P) :E=DS(P+1 ) : K=O 
BOSUE1 さ 60 

H=0:FUR M=S TU B+ さ 9 

FRINT9 (H*16。1BO) 。 Yi :H=H+1 NEXT .M 

LINE (KK16。 197) 一 (K*16+17。197) 。 XUR。 
HB=INKEY 員 : TF 昌和" THEN 1210 

TF B$=" " THEN BUSUB1 さ 60』 BDTU 15O ELSE B=ABC(B$) 
LINE (KK*16』197) 一 (K16+17。』197) 。 XDR。 フ 

IF B=2B THEN K=K+1 = GUTD 130O 

IF B=29 THEN K=K-1: BUTD 1 さ OO 

IF B=3O THENSB=5S-40』 GBDTU 1 ささ O 

TF B= さ 1 THENB=S+40: BHTD 13 さ O 

TF B=1 さ THEN D=S+Ks BDSUB1 さ 60』 GT さ 9O 
BOT 1210 

IF K=40 THEN K=O 

TF K=ー1 THEN K= さ 9 

BOTO 12oo 

TF S<DS(P) THEN BEEP :5=B+4O 

IF 8>DS(P+1) THEN BEEF :=8-40 

K=O BUT 117O 

LINE (O。1BO) 一 (6 さ 39。 199) 。PRESET 。 。 BF : RETURN 
DATA &H3O20。&H3O4。 &H さ 126。 &H さ 141 。 &H さ 1 フ ア 
DATA &H さ 23C。&H さ 46B。&H さ 665 コ 。 &H さ 7 さ 5。 H さ B4 さ 
DATA &HSA さ さ 。 &HSB4 ロ 。 &HSF5A 。 H4024 。 SH41 さ 9 
DATA &H423E。&H4 さ 4D 。&H4445。&H4462。&H446 
DATA &H4660。&H467 さ 。 &H4720。 &H4729。 &H47 さ 5 
DATA &H474 さ 。&H4B5B。 &H4954。 &H4 さ A。 &H4ABD 
DATA &H4B60。&H4C2 さ 。 &H4C さ さ 。 &H4C さ D 。 &H4C4E 
DATA &H4C69。&H4CZB。&H4D さ D 。 &H4D65 コ 。 &H4D7 昌 
DATA &H4E5C。 &H4E61 。 &H4F24。&H4F41 。&H4F54 
DATA &H2122。&H222F 。 &H2421 。 &H2474。 &H2521 。 &kH276 
DATA &H2621 。&H2659 。 &H2721 。 &H2 フ 72 
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いま まで 1|/O 誌 に 発表 され て いる ゲー ム ・ ソ フト は , ゲ 
ー ム セン ター な ど で よ く 見 か ける ゲー ム 内 容 の も の が ほ と 
ん ど で , や は り そ れ に は マシ ン 語 で 記述 され て いる プロ グ 
ラム で な けれ ば , スピ ー ド の 点 で メリ ッ ト が な いと 思い ま 
す . し か し , FM- 8 では, アセ ンプ ラ な ど が 使え る の は 
4 一 5 月 ご どろ と の こと で , それ まで に 何と か BASIC で 
ゲー ム ら し き 物 を と 考え て 作っ て み ま し た -. 





色々 な 命令 (グラ フィ ッ ク 処 理 ) を 操作 し て いる うち に ., 
1 つの 命令 を 実行 する の は 非常 に 速く 、 LINE, CON 
NECT, CIRCLE な ど に 至っ て は マシ ン 語 並 の 速 さ 
で 処理 し て いる こと が わか り ま し た . 

これ は BA SI C が 命令 を 解読 し た 後 , マシ ン 語 レベ ル 
で 処理 し て いる と 思わ れ , 一 度 開 始 す る と , 割り 込み キー 
も スト ッ プ ・ キ ー も 無視 し て 1 つの 命令 に 専念 し て いる よ 
の CO3 

また , 変数 な ど を 介入 さき させ た GET@, PUTe@ 文 に つ 
いて は , 同一 内 容 の 処理 を する CONNECT と PAIN 
T 文 より 。 スピード が 遅い よう で す . 

そこ で 今回 は GET@, PUT@ 廊 は まっ た だ たく 使わ ず C 
ONNIEGT。 PAINPT 文 で グラ フィ ッ ク ・ パ パターン を 
処理 し て いま す . 

そし て 何 回 か ライ ン 命 令 を 実行 し て いる うち に , これ が , 
レー ザー ビー ム に 見 えて くる で は あり ませ ん か .。 そし て サ 
ー ク ル 命 令 が , が CC 


Hi も Keg 
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バン ン バ 


言語 > ミミ ミニ ミ = ミ = ミニ ョ ミー 王寺 = 








日 ヨミ ビビ ミニ ココ 
高 畑 英 樹 





も う 小 道具 は 揃っ た よう で す . そこ で 空中 戦 で も と 思い , 
さっ そく 着手 し まし た . し か し , 表示 が いか に 速く て も , 
それ ら を 組み 立て る 手段 に 時 間 を 費 い や し た の で は , スピ 
ー ド の ある ゲー ム は 作れ ませ ん . 

そこ で , 多少 り リスト は 見 に くく な り ま す が , マル チ ス テ 
ー ト メン ト の 多用 や 同一 内 容 の 処理 で も サブルーチン 化 せ 
ず , ダイ レク ト に 処理 を する 方 法 を 取り まし た . リス ト を 
見 る と 同じ し よう な プロ グラ ム が だ ら だ ら と 長く 続い て いま 
すけ が, これ も 高 ス ピー ド 化 の た めで す . 

全体 の 表示 は プロ グラ ム ・ ス イッ チ に より 切り 符 え て 順 
次 表示 し て いる の で , スム ー ズ な 動き を し ます . 要する に ., 

1 つの 処理 を 最短 コー ス で 』 を 念頭 に 作り まし た . 

BASIC プ ログ ラム で は , 全体 的 に , は で な 動き は 表現 

で きま せん が , 敵 戦闘 機 の 表示 は 遠近 法 に より , 同一 パタ 
生か 大 ・ 縮 少 で 表現 し 臨場 感 を 得 て 、 し か も 接近 時 章 
を 自由 に 設定 で き て , 迫力 の ある ゲー ム と な り ま し た . プ 
レイ ヤー の ビー ム ・ ガ ン の 方 向 操 作 は 全体 の 同一 ルー プ 内 
で 処理 を し て いた の で は , 急速 な 方 向 決定 は 望め な いた め , 
ファ ンク ショ ン ・ キ ー を 使い 、 メ イン ・ ル ー チ ン に 割り 込 
み を か け て 処理 を する よう に し まし た . 全体 の 処理 経過 は 


イン ター バル 割り 込み で 処理 し て いま す . 

最終 的 に . この ゲー ム を し て いて , これ が , BASIC で 
書か れ た プロ グラ ム か な と , 疑い た く な 
な 表現 を 見 せ て くれ まし た . 


な る ほど スピ ー デ ィ ー 








F 1 ュ ら gr だ 


HighS ら one 15 E ョ ビビ ュ ら =" オ 








まず , 敵 戦闘 機 は 常に 3 機 表 示さ れ , 常に 画面 手前 側 へ 
飛行 を 続け て お り , 引き 帰す こと は 一 切 し ませ ん . その ス 
ピー ド は 6 段階 で 接近 し て きま す . た だ し , 1 分 経過 後 ご 
と に 3 機 の うち 1 機 が 倍速 ( 3 段階 表示 ) で 接近 し , 3 分 後 
に すべ て の 敵 機 が 倍速 に な り ま す . 

そし て 攻撃 は , 最大 接近 (英機 の 色 が 黄色 に な る ) の と 
き に 1 クッ ショ ン だ っ て , ビー ム を 発射 し ます . そし て こ 
の ビー ム 銃 の 機能 は , 到達 距離 は 短 か い 代り に , 一 度 発 射 
する と 命中 率 が 100% で 一 発 で プレ イヤ ー 機 を 破壊 し ます . 

し た が っ て , 敵 機 の 攻撃 エリ ア に 入る 前 に プレ イヤ ー 機 
は U タ ー ン し て 敵 機 と の 距離 を と る か , また は U タ ー ン 中 
に 攻撃 され る 危険 の ある と き は , バリ ア を 張っ て U り ターン 
する と 安全 で す . そし て 敵 機 と の 距離 が 開く と , 再び U タ 


ファ か フラ グ 類 を キャ ン セ モル で き な い も の か 教え て くだ さ 
い 。 

また , 今回 は プロ グラ マブ ル ・ フ ァ ン クシ ョ ン ・ キ ー を 
使っ て いま す が , これ も 連続 キー が 本 体 の キー で 使え る と , 
使わ な く て 済ん だ の で す . 

本 体 キ ー は キー 押し 下げ 直後 の キー 入力 の 確認 は 即 実行 
し ます が , 同一 キー の 押し 下げ が 連続 し て いる に も か か わ 
ら ず 1 クッ ショ ン の 間 を お いて , 後に 連続 キー の 入力 確認 
を し て いる た だ ため , ゲー ム 進 行 上 この 1 クッ ショ ン は 非情 に 
も 致命 的 と な り ま す . 

これ に つい て も キー フラ グ , バッ ファ な ど を POKE 文 
で 直接 キャ ン セ ル し て , この アク ショ ン を 防げ な いも の で 
よう が 


ハー ド 的 に で き な い と き は あき ら め て , ジョ イス ティ ッ 
ク を 使う こと に な り ま す が , これ は 一 般 的 で は あり ませ ん . 
これ に つい て も 皆さん か ら の 発表 を 期待 し ます . 


ー ン し て 対戦 し ます . 

次 に プレ イヤ ー 機 の レー ザー ビー ム ・ ガ ン 機 能 は 到達 嘘 
離 が 抜群 に 長い 代り , 照準 を 敵 機 に 合わ な けれ ば 破壊 で き 
ませ ん . 明 準 の 合わ せ 方 は | PF2|-|PF5 | の ファ ンク ショ ン 
・ キ ー を 使っ て 左右 に 移動 させ ます . 
| PF2] と [PFs | は それ ぞ れ 左右 に 3 ポイ ント 一 度 に 移動 し 
ます . 乳 準 点 の 現在 位置 は FUEL し インジケータ の 下 側 
に ピン ク の + 印 で 表示 し て いま す . タイ マー が 常に 割り 込み を か け て 処理 を し て いま すか ら 

バリ ア は 初期 設定 が 3 で 10 機 破壊 する ご と に 1 つ 追 加 さ た と えば カセ ッ ト の セー プ , ロー ド の タイ ミン グ が 乱 き れ 
れ ま す . 4 分 15 秒 で 時 間切 れ の ゲー ム ・ オ ー バ ー に な り ま セー プ , ロー ド が 不能 に な り ま す . 

す . も ちろ ん , その 前 に プレ イヤ ー 機 が 3 機 破壊 され る と この 場合 マニ ュ ア ル に 書か れ て いる よう に , イン ター ババ 
ゲー ム ・ オ ー バ ー に な り ま す . ル OFF と キー (2 一 5) OFF を 実行 し て くだ さい . た 
だ し , プロ グラ ム を ゲー ム ・ オ ー バ ー の 表示 の ある まで 走 
ら せ た 場合 は , 自動 的 に OFF の 処理 を し ます . プレ イヤ 
ー が 1 回 負け る ご と に タイ マー を STOP し て いま す が , 
OFF に は し て いま せん . また , ファ ンク ショ ン ・ キ ー も 

敵 機 の 破壊 音 が と きど き 乱 れる こと が あり ます が , これ 無効 の まま で す . 
は 8 秒 ご と に タイ マー 割り 込み が ある こと と , ファ ンク シ 
ョ ン ・ キ ー 割 り 込 み が あ り , プロ グラ ム の 中 の BEEP1 と 
BEEP0 の ルー プ 処 理 の 最 中 に 割り 込み が 発生 する と 起こ り ま 
す . し か し , 割り 込み 処理 の 内 容 が 短い た め , そん な に 気 


に する こと は あり ませ ん . 全体 の フワ ロー チャー ト と し て は 割り 込み が 終了 し , か つ 


また , 給油 後 の |3| キ ー イ ン の 提示 は , 1 つ 前 の 場面 で | 


|2| [ ほ ベ ニス * 一 が 押さ れ , それ が 実行 され ず に 次 の 局面 
に 移り 再開 され た と き , 一 度 も キー イン し な い の に 前 回 押 
きれ た キー 処理 が な され て し まっ た た めで す . 

この 対策 は ゲー ム 再 開 の と き KEY$ の 解除 の 命令 が あ 
れ ば |3| キ ー イ ン の 指示 は 不要 に な り ま す が , KEY$ に 0 


キー 入力 の な いと き 常 に ルー プ し て いる 文 は , 330 一 370 の 
ちら 5 つの 次 だ け で すず す 。 

た だ し , 330 の 廊 は 1170 実 行 後 , 330 の IE 文 に 帰り .、 そ の 
と き プ レイ ヤー を 攻撃 し て いる と フラ グ T を 1 に し て 帰り 
1080 ジ ャ ンプ し ます (1170 は 敵 機 の 表示 サブ プ ル ー チ ン , 10 
80 は プレ イヤ ー 爆 発 サ プル ー チ ン で す ). 


370 の IF 文 は バリ ア を 一 定時 間 経 過 後 消去 する ルー チン 
で す . その 他 走 らち な いと き は FM-8 の エラ ー 機 能 が 充実 し 
て いる の で , 個々 に 検討 し て くだ さい . 

それ で は , この 素晴らし い ス ピー ド と 迫力 の ある ゲー ム 
を さっ そく 入力 し て 楽し ん で くだ さい . 

FIGHTER プ ログラム ・ リス ト EEERRREERRRRERRRRESEEREEREREEERERRRaa 


を 代入 し た り し て 色々 と 試み まし た が , キー 入力 の 解除 は 
で きま せん で し た -. 

ハー ド 的 な も の か まだ た は ソフ ト で で きる も の か 見 当 が つ 
か ず , 読者 皆さん で 直接 POIKE 文 な ど を 使っ て キー バッ 














10 MIDTH40。20s CDLDR4。O: CLS: BYMBDL (90」7O0) "カン ジー ヒー カバ RDM "48。 4: BYMBHL (100』 10O) 。 
"トウ ツウ シテ イル トキ Y ラオ スリ 。2。11BYMEDL (10O。120) 。 リ "リツ ウ ジテ イナ イ トキ N ラオ マリ 。2。1 = が 入 TNFUT$(1 
) : IFA$="N"DRQ*="n"THEN7O 
20 CLS:PRINTD (2 さ O。3B) 。 &H425O。 HO2O。H4O6F 。 &HSOSO。 H244E 。 HHSO2O』H4062、 HOSO。 日 
4C40:PRINT9 (100。 6B) 。 &H452B。 &H406F。 H462E 。 H521 。 H244F:LTNE (1 日 王 , 69) (245。 日 さ ) 。FSE 
T, 5。BF: X=190: CDLURO: GBDSUB9BO:s CDLDR4: FR INT (25O。 6 日 ) 。 &H244E, ミア 41 。 HG44E。 HH7E 。 
H さ 9 さら 6。 H ミ フ 62 
ミ Q FRINT2 (4 日 。 68) 。&&H2472 。 HH ささ HHH4F 。 HG4 さ 9。 HG46H。 HG12 さ ェ FRTNTD(10O。 8 日) 。 H さ 26 
6。&H4O6F 。 &H462E。 &H さ 521 。 iH244F 。 &H4C5E。 &H41 さ 0。&H2447。&H452B。 HG1 。 HG472。 HH ささ 4E 。 
H4727 。 &H さ C21 、 &H426。 HG4 さ 9。 &H2459。 H2446。 日 さり さら 。 HH さ 762 。 HH2447。 HH242D。 H246B。 多 H21 
23 
40 FRINTS (5O。 118) 。&H425O。&H406F 。 &H244F」 H416 人 HH425O 。 生日 7E 。 和 H24 ミ フ 。 HG446。 日 さ 954 
J&H244。 &H2426。&H24 さ F。 &H2461 。 SH405C。&H3661 。 &H41 さ 0。&H244B。 21 2 。 &H24 さ 9 。 &H2459 。 &H 
2446。&H2472。&H474B。H3275。 H24 ミ 9 。 &H246 日 。 &H242B。&H4B74。 多 H244F 。 HH405C。 日 3661 。 &H24 マ 
ロ 。 &H246D。 HG446 
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FIGHTER プロ グラ ム ・ リ スト 








0 FRINTD (5O。 13) 。 &H452B。 HH ミ 521 。 HG44E。 日 9 さら 6。 日 3768。&H4 ヨ 4F。 負 HO04F 。 銘 H244B。H467E 
ュ &H244 さ 。 &H24 さ F 。 &H さ 649。&H4E4C。 8&H2447。&H244F。 H4545。 HEC27。 &H2550」 HG56a。 H2564 。 &H 

2472。 和 H4425。 H246B。 &H242B。 を H2122。 &H さ 07A。 HS42D 。 &H4A56 。 多 H242 日 。 H24 マ コブ 。 多 HG446。 多 H219 

2, &H452B, &H244 昌 

60 PRTNT う (5O。 15B) 。 &H244E。 ロフ 7 。 H4E25。 H2472。 日 4640。HS446。 多 Ha46。 多 H245 さ 。H425O 
HB7E。 &H24 さ フ 。 HE446。 HH4250。 8H406F 。 HG4 さ 9。 SH246E。 HG12 エ : BYMBDL (25。 1 7 日 ) "Hi モ ド e 

"1。1。 る : 人 =TNPUT も (1) : BDTU10O 

70 COLOR4』 0 ELS: SYMBDL (150。50) 、"X※※ ダイ セー ノ セリ 2 ポポ 2 の 。18 BYMBOL (1 。72) "テキ / セット 

ウキ リハ ソー JN" ターフ ノ トキ ニ コウ ケ " キ ラル リ 。2。1:X= ニ 215:LTNE(210。71) 一 (G70。BO) 。 PSET。 王 。 BF: CDLURO 
: BUSUB9BO: COLDR4: SYMBDL ( 15 日) "7 カ " セン トウ キリ リ テキ キ カワ ニ フ ジクト ー イ マテ コウ ケ " キテ" キル" 。 る 。 1 

BO LOCATE4。 1 1 :FRINT" ウ イセ ー ) テキ キト アイ グイ コウ ジテ オ コ ナ ウ 92"』sgLDPATE ミ 。 12:PRTNT "セリ キー マエ ニ 

マテ オ カイ マル カカ マグ ワ セキ リュ ェ LDCATES。 1 さ ェ FRTNT "サレ テ テキ キ ./ コウ ケ " キ エリ ヤニ ハイ リフ キヨ 2 メリ" ェ ョ LHC 

ATE さ 』 14:FRTNT" テ "ワリ テバ ント "リヤ ヲ ルカ ヒキ カエ シテ テキ トノ リュ kgLUCEATE さ 。 15:FRTNT "キヨ リ ヲ エ テ フ 77 に ~ 
グイ コウ シテ イセ ンマ ルリ 

90 SYHEDL (5OO。 180) "Hi モ Fey"。 で 」1。 さ : 人生 =TNFUT も (1) : BUTD10O 

100 CLS:SYMBUL (60。 40) 。"%**X PFay Key ※*※%"。4。2kLTNE(25O。70) 一 (275。BO) 。PBET。7。BF LIN 

E(250,B5) (275, 95) 。PBET。7。BF: X=100:FDRT=1TD4s LINE (250。X) 一 (320。X+10) 。PSET。6。BF ェ X= 
X+15: NEXTiLTNE (250。 160) - (55O。 170) 。 PSET。6。BF: BYMBDL (255。 72) 。"1" 2。 1。0s BYMBDL (255。 

B7) 。 "2" 2。1。O 

110 SYMBDL (262。102) 。"FF"。 2。1.0: BYMBDL (262。 117) 。"PF2" 2。1。 OBYMBUL (262。132) "PF4 
"。2。1, 0: SYMBDL (262。 147) 。 "PF5" 。2。 1。0: BYMBDL (90。 72) "Beam Bun"。2。 1。4:BYMBDL (90。8B7) 
。 "Barrier"。 2 1。4s SYMBDL (90。 102) 。 "Bun-Laft"。2。1。4:SYMBDL (90』117) "Lef モ ーBig"。2。1。4 
120 BYMBDL (90。1 さ 2) 。 "Bun-Ri ht"。2」 1。4: BYIEDL (90。 147) 。 "Ri gh モーBid"』2。1。4: BYMBDL (90。 
162) 。"U urn "2。 1 。 PP BYPBDL (5QO, 1BO) 。 "Hi t Key" 1 。 マ ェ 人 あこ INFUT$(1 ) 

13O DIMHX(O) :DIMP(60) :HS=0:FDRT=1TD6O: READP(T) NEXT: BDTD146O 

140 LINE(15。15) (22。17) 。" "。 呈 。BEF: CULURO 

150 CUNNECT ( さ 0O」』 140) 一 ( さ 00』 14)ー( ミ 02。144) 一 (302。14B) 一 (OB。 150) 一 (OB。 155) (354。 165) 

ー(354」162) (356。 162) 一 (56。 170) (354。170) 一 (354。167) 一 ( さ 0B。 161) 一 (3OB。170) 一 (312。17 る ) 

ー(2BB, 1 フミ) (292。170) 一 (292。161) 一 (246。167) 一 (2G46。170) 一 (244。170) 一 (244。162) 一 (G46。 162) 
ー(246。 165) 。O 

160 CONNECT (246。165) 一 (292。1555) (292。150) -(298。 14 日 )-(29 昌 。144) 一 (3 さ 00。14 さ ) 。 : CONNECT 

(296。160) - (296。 15 さ ) - (29B。 152) 一 (302。152) 一 (04。』15 さ )ー(304。160) 。 s CDNNECT (3OO。 169 ) (5 
oO』173) , iPATNT (301。172) 。 1。0zFORU=OTO400』 NEXTs B0SUB117O 

170 TFT=1THEN10BOELSEL TINE (1 呈 。14) 一 (22。17) 。" "。 量 。BF 

180 CONNECT (2B4。 165) 一 (2BS』166) (20。 166) 一 (2B4。 187) - (27B, 167) (27 日 166) (276。 1 655) 
ー(276』155) (27B。 154) (27 日 。 15 ミ ) -(2B4」 1 さ ミ ) (2BO。 154) (2B2, 154) (2B4。 155) , 0: PDNNECT 
(2B2。15B)-(2B6。 156) - (292.。 156) 一 (29。 159) (29 晶 161 ) (292。164) 一 (2B6。164) (2BG 。 162) 一 
(2B2。 15B) 。 1 

190 CUNNECT (2BO』150) (272。 150) (26』 151 ) 0: CONNECT (2B0』 170) 一 (272。170) (26 日 。 169) 。 
: CDNNECT ( さ 02。 156) -( さ 02。164) 。 : ONNECT (299。 160) -(302。160) 。 : CDNNECT (290。 159) 一 (292。 1 
60) -(290。161 ) -(2BB。161) (2B6。160) (2B 日 , 159) (290。 159) 、 さ : FATNT (294。160) ,7。1。 FAT 
NT (290』160) 』7。 エ 

200 FATNT(SBO。 160) 。 1。0。1:FHRU=OTHSOO: NEXT: GDSUB1 170: TFT=1THENBOTD1OBO: ELSELTNE (1 
6, 1 さ ) (1 昌 』 1B) 。" "。 日 。BF 

210 CUNNECT (292,16 日 ) (2 日 。 169) -(28B。 170) (246。 168) (2B6。171) 一 (2B 日 。 171) (290。172) 
ー( さ 10。 172) ( ミ 12。171)( さ 14。 171) 一 (354。 16) -( さ 12。170) 一 ( ミ 12。 169) 一 ( さ Q 日 。 16B) 。 Or CDNNECT 
(2B0』170) 一 (2BO』175) (2B2。 176) 。 : EDNNEDT (20 。 170) (320。175) -( さ 1 日 176) 。 : CDNNECT (292 
。159)( ユ QB。 159) 

220 _FSET (300。』160) : CDNNECT ( さ OO。161 ) 一 ( さ OS。161) 一 ( さ Q 日 。164) (30 コ 。167) 一 ( さ O4。 169) (296。 
169) 一 (292。167) (292。164) (298。161) (30O。161) 。 1:CUNNECT (297。 165) 一 ( さ OO。 164) - ( さ 0 さ 。 1 

65) -(: 166) (300。 167) (297。 166) (297。 165) 。3 ミ PATNT (300。 163) 、 フ 1,3 ェ PATNT (300。 1 65 
) プア 。 生 

23O FATNT (300。171 ) 。 1 。O。 1 3 BDSUB1 170:F=Os BHTU ミ さ O 

240 F=1:LTNE (1 15) (22。17) 。" "。 曲 。BF: CDLURO 

250 FUNNECT (300。 140) 一 (300。 14 さ ) (302。 144) (302。 14 昌 ) (3OB。 150) (3 さ OB。155) (354。 165) 

i54』162) 一 (356』168) 一 (356。 170) (354。 170) 一 (ミロ 4, 167) 一 ( さ QB。 161) 一 ( さ 0B。 170) 一 ( さ 12。 17 さ ) 

2 日 。 173) (292。 170) (292。 161)-(246。 167) 一 (246。170) 一 (244』170) 一 (244。162) 一 (246。162) 
ー(246。 165) 。 

260 PaNNEET (246。 165) (292。 155) (292』150) (29 日 14 日 ) -(29B。144) 一 ( さ OO。 14 さ ) 。 iCONNECT 
(2B2。160) (2B4』160) - (2B4, 15B) 。7: CDNNEET (18。 160) 一 (ミコ 16。160) (16。 15B) 。7: PATNT(3QO 
ュ 172) 。0。0。7:FORU=OTD40O: NEXT: BDSUB1170: TFT=1THEN1OBOELSELTNE (15。14) (22。17) " " 
。5。BF 

270 CDNNECT (316。 1 ささ) 一 ( さ 22。15 さ )ー( さ 22。154) 一 ( さ 24。 155) 一 (324。165) 一 ( さ 22。166) (322。167) 

ー (16』1B7) 一 (320。166) 一 ( ミ 1B。 166) -( ミ 16』16 王 )-( ミ 16。 155) 一 ( さ 1B。 154) 一 (20。154) 一 ( さ 16。 1 ささ ) 
ュ Oi CONNECT (16』164) 一 (QB。164) 一 (302。161) 一 (302。159) 一 (3 さ O8, 156) 一 ( さ 16。156) 1 

2BO CDNNECT (29B。 156) (29 昌 164) 。 0: CUNNECT (9B。 160) 一 (16。 160\ー(16。161) 一 ( さ 10。 161 ) 
(10。 159) 一 ( さ 16。 1559) 。 : CDNNECT ( さ 20。 15O) -( さ 2 日 。 15O) 一 (ミミ 2。 1 昌 1) 。 : CDNNECT ( さ 2O 。 170) -( ミ 2 
ュ 170) (ささ 2。 169) 。 FATNT (10。 15B) 。 1。0。1:FATNT (QB, 162) 。 1 。0。 1:FATNT (320。 160) 。 じ 。0。 1 

290 FORU=OTUSOO: NEXT: BUSUB117O: TFT=1 THEN10BO: ELBEL INE (1 日 。 1 さ ) 一 (20。 1 日) 。" "。5。BF 

3O0O CUNNECT (290。 16B) 一 (2 日 169) (2B 日 。 170) 一 (246。 1 6 日 ) (2B6。 171 ) 一 (2 日 。171 ) -(290。172) 

ー(310。172) 一 (12。171) 一 ( さ 14。171) 一 (354。16 日 ) -( さ 12。170) 一 ( さ 12。169) 一 ( さ 10。168) 0: CUNNECT 
(2BO。 170) (2BO。 1755) -(2B2。 176) 。 : CUNNECT (20』 170) 一 ( さ 20。 17 王 ) -( さ 1 日 。 176) 。 : CDNNECT (292 
,159) 一 ( さ Q8。 159 ) 

10 LINE(290。168) 一 ( さ 10,16 昌 ) 。FSET : CUNNECT (292 。 167) (292。 164) 一 (29。161) 一 (302。161 ) 
(3QB。164) 一 ( ミ G 昌 。 167) , 1 :FATNT (OO。 165) 。 1 。0。1:FATNT ( さ 0O。171) 。 ビ 。 OsLINE ( さ OO。 159) 一 ( さ QO 
ュ 168B) 。FSET。 0: CDNNECT (29 日 。 167) (29 日 。 165)  ( さ 0O2。 165) 一 (3OS。167) 。O GBDTU さ さ O 
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さ 20 DATA16』270。 20。 さ 2 日 。 1 で 14。24。 さ B6。9。15 日 。 2 フ 。 444。6。 100。 さ 1 。500。 2。 44。 さ 4。556。 1 日 。 96 
。15, 250」 1 。 さ 44」12。200。24。 さ 92。9。 154。27。440。6。106, ミ O。 4 日 。 さ 。5B。 15, 254 。 1 日 。292。 19。 さ 10 
20。 さ る 0。 14。2 さ 4。16。 272。 1 。 さ 50。 1 さ 。216。 6。 9 日 。 29。 46 昌 

) BDSUB1170: TFT=1 THEN10BO: ELSEF$=TNKEY$ 

40 ITFF*=" "THEN4BO 

ミ 5O TIFF*= リ 1"ANDF=1THENT= は : D=Z:LTNE( ミ OO 15B) 一 (1T。2O) 。、FSET。2:LTINE (OO0。15B)-(T。2O) 。F 
RESET:DN D BODTO510。5 さ 0。 王 40。550』560。570,5BO。 600。620。 640。 660。 6 日 O。 700。720。740。750。』 7 
60。770。7B0。790 

さ 60 1FF*= リ "2"ANDF=1ANDE1-1 SOTHENCIRCLE ( さ 00。 150) 120。4。.2。. 5。O。Ni =1』 1=B1-1: =OL 
DCATE5。 15s COLDRO: FRTNTE1-1 : BDTD1 40 

さ 70 IFE=1THENG= ロ +1 : IFQ=5THENCTRCLE ( ミ さ O00。 150) 。 120。 王 。 .G。.。O。NE =O: GBDTU さ さ O 

3BO BODTD さ さ O 

390 TINTERVALDFF : SYMBDL (100。90) 。 "BAME VER !!"、 王 。G。2g SYMBDL(10。190) "7 バーム ヲ マル トキ 

ワ Y TzM ト キ り N ラオ マリ 2。1。0:FURT= ニ OTD さ O0O: NEXT: EEY(2) ロ FF: FEEY ( さ ) DFF: KEY(4) DFF: KEY (5) 
DFF 

400 =TNEEY あ = TFA ま ="N"DRR ま = リロ "THENCDLUR4。0: PLB: SYMBHL (5O。90) 。 リオ リカ レ サマ テ " ジ 1" 王 
2。4: BYMBDL (5OO』 180) 。 "FEY TIN Y DR BTDF"」1』1:ELSETFA ま ="Y"DRA あ ="y "THENBDTD1460 

410 BOTO40Q 

420 IFB616THENSYMBDL (は 。 10) "ナリ 。 1 。 1 。 王 : は = は B+ さら = フ =7+1 : SYMBUL (B。10) "すり 、1。1。 さ = RETURN 
:ELSERETURN 

43 さ 0 1FBBTHENBYMBUL (は 。10) "すり 。1 。1 。 王 : は = は ー さ 2 Z ニ アー1 : BYMBUL (B。 10) 。" す "1 。1。 さ ERETURN:E 
LSERETURN 









き 


440_ SYMBOL (B。 109) 。 リ ナリ 1 。 1 。 王 ロモ は +96』Z=Z+』 TFZ SBOTHENB=616』 Z=2O 
450 SYMEOL(B』 19) 。 リ キリ 1 1。 さ : RETURN 

460 SYMBOL(B。 10) 。 リ オリ 1 。1 。 ロ 5 ロモ ロー ワ 96』 Z= ニ Zー さ 』TFZ 1THENG= 日 : Z=1 

470 BYMEDL (は 』 10) 。 リ キリ 1。1。 さ s RETURN 


480O 1FF=1THEN140 

490 1FF=OTHENS40 

500 BOT0S3O 

510 IFP マ =57ANDF さ *OTHEN ド =F (F さ +1 ) : に 1= ニ フェ ドコ ニ F さ :F ミ =0 ェ 下さ =59: BUSUE110O 

2O 1FFG= さ ANDF2 SOTHENK=F (F2+1 ) : KK1= ニ 52 ェ RE つ ニ FS ェ コー0 ェ で =S1 : BUSUB1 100: BHTH さ さ 0: ELSE さ さ 0 
呈 SO IFF1=17ANDF1 >OTHENE:=F (PF1+1) : に 1= さ 2』 ド ドコ =F1:F1=0:F1=19: GDBUB1100: BDTD さ る 0: ELSE ささ O 
40 IFF2=35ANDF2 SOTHEN ド = (P2+1 ) : ド 1 =52 ェ に ウニ F ェ ビニ 0 ェ 2= ニ ミア ェ BUSBUB1 100: GBDTU さ さ Or ELSE さ さ O 
55O IFF1=13ANDF1*OTHENK=P (P1+1) : ド 1= ニ さ 2: ド 2 ニ F1:F1= ニ 0F1=1 王 : BUSUB1100: BODTD さ 30 ェ ELSE さ さ O 
60 IFF2= さ 1ANDF2 SOTHEN ド =F (PFG+1 ) : ド 1= ニ 52 ェ に ドコ ニュ F コ =0 ェ ビニ = ささ BUSUE1 100: BUTU さ さ 0』 ELSE さ さ Q 
570 IFF1=9QNDF 1 *OTHENE=F(P1+1) : ド 1= さ GEK コ = ニ F 1 :F1=O:P1=1 1 : BUSUB1100』 GUTD さ さ O ELSE さ さ O 
5BO IFF3=55ANDF さ >OTHENK=P (PF さ +1 ) : ド 1 ニア 72: ドコ =F そ ェ F ミ =0 ェ F さ =57 ェ BDSUB1 10O 

90 IFFG=27ANDF2SOTHENR=F (P2+1 ) : に 1=52 ェ ドド 2 コーF2 ェ F コ =O ェ F2=29』 BUSUB1 100』 GBDTD さ さ OgELSE さ さ O 
600 IFF さ =49QNDF さ *OTHEN ド =F (P さ +1 ) : に 1 ニブ 2 ェ ド コーF さ ェ F さ = ニ 0 ェ F ネ =51 : BHSUB1 100 

610 IFF1=5NDF 1 >OTHENK=P (P1+1 ) : ド 1= さ 2kK ド 2 コー ニ F 1 :F1=0:FP1=7= BDBUB1 100』 GBDTU さ さ O ELSE さ さ O 
620 1FP さ =41QANDFSSOTHENR=F (F ミ +1 ) : 1 ニブ 2 ェ ド 2 ニ F さ ミュ F ミ = ニ 0 ェ F ミ =4 さ BUSUE1 100 

3O IFF2=SSANDF2 >OTHEN ド =F (PF2+1 ) : に 1=52: に 2 コーF2 ェ F2=0 ェ PS= ニ 2 GBDSUB1100: BUTU さ 3O: ELSE ささ O 
640 1FP ラ =5 ロ 1ANDFS*OTHENR:=F'(F さ +1 ) : ド 1 ニブ 2 ェ ド 2 ニ F さ ュ F さ =0 ェ F ネ =5 さ ュ BDSUB1 100 

650 IFF1=1ANDF1 *OTHENR:=F(P1+1) : ド 1= さ 2k に KS ニ F1:F1=0:P1= さ = BDBUB1 100: GBDTU さ さ O』 ELSE ミ 3O 
660 TFPF さ =4 さ 人 NDFSSOTHENK=F (P さ +1 ) : ド 1 ニブ 2 ェ に ドコ ーF さ ェ ュ F さ =0 ェ ビエ = ニ 45 BUSUB1 100 

670 TFP2=21ANDF2*OTHENR:=P (P2+ 1 ) : ド 1= ニ 52 ェ ドコ ニ F2 ェ 2=0 ェ PS ニュ BUSUE1100: BUTU さ 0』 ELSE ささ GO 
6BO 1FP マ =45ANDF さ >*OTHENK=F (F ミ +1 ) : K ド 1 ニブ 2 ェ ドコ ニ F ュ F さ =0:P さ =47 ェ BUSUB1 10O 

690 IFF1= さ ANDF 1 *OTHEN ド =F (P1+1 ) : ド 1= さ 2 の: に で ニ F 1:F1=0:P1= ロ : BUSUB1100: BUTU さ 3O』 ELSE さ さ O 

フ 700 IFF さ =47QNDF3>OTHENK=F' (ピコ +1 ) : に 1 ニブ 72: K2 ニ F ミ ェ F ミ =0=F ビ さ =49』 BDSUB1 10O 

フ 710 IFP<=25ANDF2*OTHEN ド :=P (P2+1 ) :K1 = ニ 5 ロ 2 ェ に コーF2 ェ 2 ニ 0:P2 ニ 2 フェ BUSUH1 100: BUT ロ ささ 0 ELSE さ さ O 
フ 720 IFF さ =5 さ ANDF ミ *OTHENK=F (F さ +1 ) : に 1 ニア 2 ェ K ド フェ F さ ェ F さ = ニ 0 ェ F さ =55: BDSUB1 1 00 

7 さ 0 IFF1=7ANDF 1 >0THENRK=F (P1+1 ) : に 1= さ 2:K コ ニ F1:F1= ニ 0:P1=9: GBDSUB1 100: GBDTU さ 3O』 ELSE さ 3O 
フ 740 IFP2=29QNDF2*OTHENK=F (PF2+1 ) : ド 1= ロ 2 ェ に ラーF つ ェ F コ ー ニ 0 F2= マ 1 : GBDSUB1 100: BHT ELBE さ 30 
750 IFF1=11ANDF1 >OTHEN ド =P (PF1+1) : に 1= ニ さ 2:K ド 2 ニ F1:F1= ニ 0:P1=1 さ : GBDSUH1100: BUT ロ ミ 
7 フ 60 IFFP2= さ さき ANDF2>0THENK=F (F2+1 ) : KK1 = ロロ 2 ェ に 2 ニ F2 ェ F2=0:F2= さ 5: GBDSUB1 100: BDTH さ 30 

770 1FF1=15QNDF 1 >OTHENK=F (PF1+1 ) = に 1 ニコ: に ドコ =F1:F1=O ェ P1=17= BUSUEH1 100= BUTU さ ミ O』 ELSE さ さ Q 
7BO IFF2= さ 7ANDF2 SOTHEN ド =P (FPS+1 ) : ド 1 =5G ェ に コーF ラ ェ F コ =0 ェ ビ 2ー さ の: BDSUB1 100: BT ささ Gr ELBE さ 30 
790 1FF さ =59QANDF さ SOTHENR=P (F さ +1 ) : ド 1 ニブ 2 ェ ドコ ニ F さ ェ F さ =0: ユー4 1 : BUSUB1 100 

BOO IFFP1=19ANDF1 >OTHENK=F (P1+1) : に 1= ニ さ 2: に 2=F1 3:F1=O ェ P1=1 : GBDSUE1 100: GODTD33Oi ELSE さ 30 
B1O CONNECT(X+22。 さ 5) -(X+24。 さ 4) 一 (X+26。 さ 4) 一 (X+2 日 。 さ 55) 。 0: RETURN 

BSO CDNNECT (X+22。5 ロ )ー(X+24』54) 一 (X+26』554) (X+2 日 55) 。 Os RETURN 
B さ O CUNNECT (X+22。 7)ー(X+24。 74) 一 (X+26。 フ 74) -(X+2B。 75) 。 0 RETURN 
B40 CDNNECT (X+1 昌 。 さ 6) 一 (X+22。 さ 5) 一 (X+2 日 。 さ 5) 一 (X+ さ 2。 さら ) 。 ODNNEPT (X+24。 さ 4) 一 (X+S4。 ミ フ ) 
(X+26。 さ 7) -(X+26。 ミ 4 ) 。 ERETURN 
B5O CDNNECT (X+1 昌 56) (X+22。 5) -(X+2 日 。 5) -( メ + さ 2。56) 。 Ox CUNNECT (X+24。 王 4)ー(X+24。57 ) 
(X+26。57) -(X+26,54 ) 。 : RETURN 
B60 CONNECT (X+1 昌 。76) 一 (X+22。75) -(X+2。 フ 5) 一 (X+ ミ 2。76) 。 0: CDNNECT (X+24。 フ 74) 一 (X+24。 フ 7 ) 一 
(X+26。77) 一 (X+26。 74) 。 ょ RETURN 
B7O_ CDNNECT (X+14。 さ フ ) 一 (X+20。 さ ) -(X+ さ O。 さ 5) -(X+ さ ら 6。 ミ ブ ) 。O: CDNNECT (X+22。 ささ) 一 (X+24。 さ 4 ) 一 
(X+26。34) 一 (X+2B。 さ さ ) 。 s CDNNET ( X+22。 さ 6) (X+24 ミア ) 一 (X+26。 さ フ ) 一 (X+26。 さ ら ) 一 (X+2B。 さ ら ) 。 : R 
ETURN 
BBO CUNNECT(X+14。』 コ フ ) 一 (X+20。5 呈 ) -( メ + さ O。55) 一 (X メ + さ 6。5 ロ 7) 。 O: CUNNECT (X+22。 王 さ )ー(X+24。 王 4) 
(X+26。54) 一 (X+2B, 己 さ ) 。 s EDNNEPT ( X+22。 王 6) 一 (X+24。 王 7)ー(X+26。 王 7) ー(X+G6。 昌 6) -(X+2B。 王 6) 。 :R 
ETURN 
90 CDNNECT (X+14』 フ 7) 一 (X+20。 フ 王 ) -(X+ さ O。7) -(X+ さ 6。7 フ ) 。Og CUNNEET (X+SG。 7 ミ )ー(X+24。74) 一 
(X+26』74) -(X+2B, 7 さ ) 。 : EDNNEDT ( X+22。 フ 6) 一 (X+24。 プ ブフ ) 一 (X+26』 フ 7) 一 (X+26。 76) 一 (X+2 日 。 76) 。 』R 
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ETURN 

900_ CONNECT (X+ 日 , そ 7) 一 (X+ 1 日 。 さ 呈 ) 一 (X+ コ 2 。 さ 5) 一 (X+42。 さ フ ) 。 Os CDNNECT (X+2O。 ささ) 一 (X+22 ささ) 一 ( 
X+24』 さ 4) 一 (X+26。 さ 4) 一 (X+2 日 。 ささ ) 一 (X+ さ 0。 ささ ) 。 : EDNNEET (X+SO。 さ 6) 一 (X メ +22 さら 6) 一 (X+T22 コブ ) 一 (X+ オ 
24。 3 日 ) 一 (X+26』 マ 日 ) 一 (X+2 日 。 さ 7) 一 (X+2 日 。 さら) 一 (X+ さ 0。 さ 6) 。 gsPRTINT(X+26。 さ マフ) 。 さ 。 ORETURN 

910 CHNNECT (X+ 日 。 号 7) 一 (X+ 1 日 。 5) (X メ + さ 2。 王 )ー(X+42 57) 。 Os EDNNECT (X+20。 5 さる ) 一 (X+22。 53) 一 ( 
X+24。54) 一 (X+2 ら 4) 一 (X+2 日 。 5 さき) 一 (X+ さ 0。5 さ ) 。 : CHNNEET(X+20。 6) 一 (X+22。 6) 一 (X+22 7)ー(X+ 
24。 5B) 一 (X+26。5 日 ) 一 (X+2B。 7) -(X+2 日 6) -(X+ さ Or56) 』 iPATNT(X+26。 57) 。 さ 。 Os RETURN 

280 CHNNECT (X+ 日 。 7 フ ) ー(X+1 日 。 フロ) -(X+ コ 2。 フ 5) -(X+42。7 フ ) 。 Os CHNNECT(X+2O。 73) 一 (X+22 7 き ) 一 ( 
X+2 人 4 オ 。 プ 4) 一 (X+ る 6。 フ 4) - (X+2B。 フミ) -(X+ ミ 『O。 フミ ) 。 : ECHNNEET (X メ +2O。 プ 6) 一 (X+22 76) 一 (X+2S。 フ 7)ー(X+ 
24。7B) -(X+26。78) (X+2B。7 フ ) (X+2B。 76) 一 (X+ さ 0。76) 。 PATNT (X+26。7 フ ) 、 さ 。 0 RETURN 

9 さ QO CDNNECT (X+4。 さ 7) 一 (X+16。 さ 5) 一 ( メ + マ る 4 。 さら )ー(X+ 人 46。 さ 7) 。 Os EDNNECET(X+1 コ 。 さ 2) 一 (X+TS0。 さ 2) 一 ( 
X+24。 4) 一 (X+26。 さ 4) 一 (X+2 日 。 さ 2) 一 (X ナ さ 0。 さ 2) 。 iCEUNNECT (X+1 日 。 さ 6) 一 (X+T2S さら 6) 一 (X+ オ SO。 さ 7)ー(X 十 
SO 日 )ー(X+2 。 さ 9) 一 (X+2 日 。 さ 9) 一 (X+ さ 0。 さ 日 ) -(X メ + キ さ O。 さ ブ ) 一 (X+ オ さ 2。 さ 6) 一 (X+2B。 さ 6) 』 FATNT (X+24』 さ 
7) 、 さ 。0: RETURN 

940 COUNNECT (X+4。 呈 7)ー(X+16。55) 一 (X+ ミ 4。55) 一 (X+46』 呈 7) 。 0: CHNNECT(X+18。52) 一 (X+20。552) 一 ( 
メオ 人 4 4) 一 (X+2 ら 6。 ロ 4) 一 (X+2 日 。52) 一 (X+ さ 0』52) 。 : CHNNECET (X+1 日 。56) 一 (X+22。 56) (X+2O。 王 7) 一 (X+ 
SO』58B) 一 (X+2S 59) 一 (X+2。59) 一 (X+ さ 0。 5 日) ー(X+ さ 0。 ロフ) 一 (X+ さ 2。 呈 6) -(X+2B。56) 。 gFATNT(X+24。 

7) 。 さ 。 Oi RETURN 

50 CONNECT (X+ 人 4。7 フ ) 一 (X+16。』75) -(X+ さ 4 。 プロ) -(X+46。77) 。 0: CDNNECT(X+18。72) 一 (X+20。72) 一 ( 
X+S4。74) 一 (X+ オ 2 ら 。 74) 一 (X+2 日 。 8) ー(X+ さ O』 72) 。 』 EDNNEET (X+1 日 。76) 一 (X+22。76) 一 (X+2O。77) 一 (X+ 

0』 7 日) 一 (X+S ご 。 7 ワ ) 一 (X+2 日 。 7 ワ 9) 一 (X+ き 0。 7 日) 一 (X+30』 フフ) 一 (X+ さ 2。76) 一 (X+2 日 76) 。 *FATNT (X+24 。 プ 

7) 。3。Og RETURN 

60 COUNNECT(X』 3 日 ) 一 (X+14。 さ ロロ) -(X+ コ 6。35) 一 (X+50。 3 日 ) 。0: CDNNECT (X+ 1 日 ,。 さ 3) ー(X+20。 さ 2) 一 (X+ 

24, さ 4) 一 (X+26。 さ 4)-(X+30。32) 一 (X+ さ 2。 ミ 2) 。 : CNNEPT (X+16。 さ 6) 一 (X+20。 ミ 6) 一 (X+2O。 3 日) 一 (X+22 
*372 一 (X+S 日 。 さ 9) 一 (X+ さ 0 3 日 ) -(X+ コ 0。 さ 6) 一 (X メ + さ 4』 さら 6) FTNT(X+24。 さ フ ) 、6。0: RETURN 

970 CONNECT(X,5B)-(X+14』55) 一 (X+ さ 6。55) 一 (X+50。5B) 。 Oi CDNNECT (X+1B。 52) 一 (X+20。552) 一 (X+ 

で 4.54) 一 (X+ す 26』54) 一 (X+ さ 0。52) 一 (X+ さ 2。 52) 。 iCEDNNECT(X+16』556) (X+20。 王 6) -(X+2O。5 日 ) -(X+22 
* コ 97) 一 (X+SB。59) 一 (X+ き さ 05 日) 一 (X+ さ 0』56) (X+ さ 4。56) 。 FATNT(X+24。 ロ 7 ) 。 6。0: RETURN 

780 CUNNECT (X。 7 日 ) -(X+14。7 ロ ) -(X+ さ 6。 75) -(X+50。』 7) , Oi FUNNECET (X+1 日 。 72) 一 (X+20。72) 一 (X+ 
=4』74) 一 (X+26。74) 一 (X+ さ 0。 72) 一 (メオ さ 2。 72) 。 : EHNNEET (X+16。 プ 6) 一 (X+20。76) 一 (X+2O。 7 日 ) -(X+22 
ュ 79) 一 (X+ す 2 日 。 プ ワウ) 一 (X+ さ 0。7) 一 (X+ き OQ。76) 一 (X+ さ 4。 76) 。 :FATNT(X+24。7 フ 7) ,。 ら 6。0: RETURN 

290 BOBUB960 ょ エ =P(F1+1) +24: SYMEBDL (ユー12。 40) 。" ポ りさ 。 1。2: BEEP1 :FHR TI1=OTD さ Os NEXT:』 BEEP 
Qi SYMBOL (エー12。 40) "りさ 。1。 呈 

1000 IFE=OTHENLTNE(T』40) 一 (30O。165) 。 PSET。6: LINE(T。40) (2B4』170) 。PSET,6: LTNE(T。40) 
ー( ば 16』170) ,。FSET。6: LINE( エ 。40) 一 (300。 165) ,。 PRESET: LINE( エ 。40) 一 (2B4。170) 。PRESET: LINE (1 
s 40) 一 (16。170) 。 FRESET: 征 =1 : RETURN 

1010 F1=F1-2:RETURN 

10EO_BUSUB970: エ =F (P2+1) +24: SYMBOL (エー12 つ 60) "まり 。 さ 。 1.2』BEEP1 :FUR 1T=OTU さ Os NEXT: BEE 

PO SYMBHL (ユー12。60) 。" り まり さ 。 1 5 

1030 IFH=OTHENLINE ( エ T,60) 一 ( さ 300。 165) 。 FSET。6』LTNE(T。60) (2B4』 170) 。 PSET, 6』 LINE(1T 6O) 

ー( き 16,170) 。FSET。6sLINE (1。60) 一 (300。 165) 。 PRESETs LINE (1 。6O) (28B4。 170) 。 FRESET:LINE( 
s ら 60)ー( さ 16。170) 。 FRESET: =1 : RETURN 

1040 FS= ニ FSSーSBs RETURN 

1050_ BUSUB9BO: エ =F (P さ +1 ) 24』 SGYMBUL (ユー12。 0) 。"※ り 。 さ 。 1。2sBEEP 1 :FUR 11T=OTU さ Oi NEXT:i BEE 

PORBWMBLCTー12。BO7 OS 

1060 IFE=OTHENLTINE (1』BO) (3QO。 165) 。FSET。6:LTNE(T。B0) (2B4。170) 。PSET 、6: LINE(1.B0) 

ー( さ 16。170) 。FSET,6s LINE( エ ,。BO) 一 ( さ 00。 165) 。 FRESET: LTNE (TBO) (2B4。 170) , PRESET: LINE(1 
。 ヨ 0) 一 ( さ 16』170) 。 FRESET: =1 : RETURN 

1070 F さ =F さ ミー RETURN 

1080 INTERVaALSTOF : BEEF 1 : SYMBL (255。 155) ,。"※"。 10。2。2:FURT=OTU7OO : NEXT: BEEPO』 PL=PLー 
1iLOCATE。 1 CULDRO:FRINTFL iLINE (15。 1 る ) 一 (22。 1 日 ) 。" "5。BF:LINE (1。 15) (22。 17) 。" 


りさ 。BF:LTNE(15,1 さ ) 一 (22。17) 。" "。 呈 。BFLTNE(17。16) 一 (20。17) 、"*"。 さ 。BF 
1090 LINE(17,13) 一 (20。17) 。" "。 昌 。BF:LTNE(1 コ 16) 一 (19, 16) 。"※"。 さ 。BF LINE (1 日 。 1 さ ) (19。 1 
6) 』" !。 昌 。BFs IFFL=OTHEN ミ 90』 ELSEFDRT=OTD2OO0』 NEXT: 日 =0: じ =5 ェ F1 ニ 0 ュ F2 ニ 0 :F3=0: は =296』 2=1 


Oi T=O ELB: BDTD1 さ さ O 

1100 UN R2 BDTD1110。1110。1120。1120。11 さ 0。1130。1130。11 さ O。113O 

1110 BYMEDL (K+1 昌 KK1+1) 。"※%"。1。1。2 ェ FDRT= ニ OTD2O: BEEP 1 : BEEPO ェ NEXT: PD=VQL (PD$) :FD=PD+ 
1:FU*=STR* (FU) :LTINE (95。 135) (190』 140) 。、FSET, 呈 。 BF : SYMBUL (95。 125) , PU$。2。2。1sLINE (K。 
ド 1) 一 (RE+50。 ド 1+7) ,FBET。 量 。BF : TFRTGHT* (PD 。 1) ="O"THENBDTD1 1 40: ELSEBDTD1 15O 

1120 SYMEOL( ド +10。K1+1) 。"※% り で 。1。2gFDRT=OTU2O: BEEP 1 : BEEFO』 NEX 丁 PD=VAL (FU も ) FU=FD+ 
1 : FU も =BTR も (FD) :LTNE (9 125) (190。』140) 。 FPSET, 王 。 BF BYMEBDL (955。 125) 。 も 。2。2。1s LINE ( ド 。 
1) 一 (E+50。E ド 1+ フ ) 。 PSET 。 5,BFE TFRTBHT$ (PD*。 1) ="O"THENBTD1 140:ELSEGBOTD1 15O 

1130 BYMBDL (KR。 ド 1+1) "XX" りさ 。1。2kFURT=OTHSO: BEEF 1 : BEEPO: NEXT: P ロ =VaL (PD も ) : P ロ =PD+1 
0*=STR ま (FU) :LINE (95、。 125) (190。 140) ,。FSET 。 王 。 BF : SYMBDL (95。 1255) 。FD ま 2。5。1:LTNE (K。K1 ) 
ー(K+5O。K1+7) 。PSET 。 呈 。BFs IFRTBHT$ (PD$。 1) ="O"THENBDTD1 1 40: ELBEBDTD1150 

1140 B1=B1+1:LDCATE さ 5。 15: CDLDRO ェ PRTNTB11 

1150 IF FD*HS THEN HB=FD:LDCATE10。 155: CULHRO: FRTNTHS: RETURN: ELSERETURN 

1160 RETURN 

1170 CPULURO: IFF=OTHEN122O 

11BQ SM=SM+1:DN SM BDTD1160』1190。1160。1200。1160。1210 


1190 F1=F1+B1: X=F(P1+1) :LDCATEF' (F1 ) 。 さ ェ FRTNT" "sHN F1 BHTDB10。B40。B70。900。 9 さ O 
、960。960。990、990 

1.200 F2=F2+SS』 メニ PF (FPS+1) :LDCATEP (P2) 。5: FRINT" "UN F2 BUTUBSO。 8B5O。 BBO。910。940 
。 ウ 70。970。1020。 102O 

1210 BMW=0:F さ =F さ + さ : X=F (F ミ + 1 ) = LHCATEP (F さ ) 。7 ェ FRTNT" "sN F さ 3 GUTUB さ OQ. ヨ 60。B90, 92 


0。950。980。980。 1050。 1050 
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122O SM=SM+1:UN SBM BUTD1160。12 さ 0。1160。1250。1160。127O 
12 さ 0 IFF1*1THENF1=F1 一 1 : メニ PF(P1+1) :LDCATEF (F1 ) 。 さ :FRTNT" "sDN F1 BTOB10,B40。87 
0、900。9 さ 0。960。960。960 

1240 RETURN 

125O ITFF2>1THENF2=F2ー1 : X ニ P (P2+1 ) : LHCATEP (P2) 5: PRINT" "sUN F2 BDTDB20。850。 BB 
0。910。940。970。970。97O 

1260 RETURN 

127O SM=O: IFF さ >1 THENF さ =F さ ー1 : X ニ F (F さ +1 ) :LUCATEF (PF さ ) 。7 ェ FRTNT" "sHN F さ GOTOB さ O。 日 
60。B90。920。950。9B0。 9B0。 9BO 

128O RETURN 

129O LINE (FL。 日 )-(FL+2O。9) 。、PSET 。 呈 。 BF : し = レー10』 FL レニ FL+2O: TFFL=460URFL=47BTHENC=6』 BET? 
( さ QO。171) 一 (OO』171 ) 。HZ』B。2: IFHX (0) て OTHENFATNT ( さ 00。 171 ) , 6。 0: RETURN: ELBERETURN 
1 さ OO IFFL=5BODRFL=57BTHENC=7: BET9 ( さ OO』 171) 一 (3 さ OO。171 ) 。HZ。B, 6 IFHZ(O) ぶ OTHENPATNT ( さ 
Q0』171 ) ,7』 Os RETURN: ELSERETURN 

1310 IFFL>6 さ 7THEN さ 90:ELSETFFL=160THENB さ =2』 ELSE IFFL= さ 2OTHENS2=2 ELSETFFL >477THENS 
1=2』ELSERETURN 

13 さ 20 RETURN 

1 ささ Q LINE (0O』177) (6 さ 9。 199) 。FSET。 6, BF 

1340 CONNECT (290。 16) (2BB。 169) (28 日 。 170) (246。 1 6 日 ) (2B6』171) 一 (2 日 。 171 ) (290。172 
)-( さ 10。 172) 一 ( さ 12。171 ) (マミ 14。171) 一 ( さ 54』168) 一 ( さ 12』170) -( さ 12。169) 一 (ミミ 10。16B) Oi CUNNED 
T (2B0。170)-(2B0,17) (2B2。176) 。 = EDNNECT ( さ 20。 170) (320。 175) (1 日 176) 

135O CDNNECT (292。 159) -( ミ QB, 159) 

1 さ 6Q LINE (290。 16) -( さ 10。168) 。PSET: CUNNECT (292。 167) (292。164) 一 (29 日 。 161 )( さ 02。161 ) 
ー( ミ 0B。 164)-( さ 08。 167) 。 1 : PATNT ( さ OO。 165) 。 1 で 。1: PTNT ( さ OO。 171 ) 。 ビ 。 OiLTNE ( さ OO。 159) 一 (3O 
Q,168) 。PSET。O: CDNNECT (29 日 。 167) (29 日 。 1655) -( さ O2。 1655) -( さ O2。 167) 。O 

1 さ 70 LDCATE2B。 1 さ :PRINT"P1 ayer "』:PRINTFL 』 :LDCATE2B, 15: FRTNT"Barri mr "iPRINTB1-1』 
:LUCATE1 。 1 さ sPRINT "BCcore"』:LDCATE1 。 15: FRINT "Hi ghScore"』 ェ FRINTHS』 BYMBDL (95。 1 25) 
ロ ま 。 2。2。1 

13BO X=614:FURI=1TD9:LINE(X。169) 一 (X+24。176) 。PSET。 呈 。 BF : X=Xー さ O』 BHSUB1440: NEXT 

139O LDPATE さ Q』。OiFRINT"FUEL"』 ェ Y=6 さ 9』FDR ユ =1TD60sLINE (Y。 日)ー(6 さ 9。9) 。 PSET。 7 BF : Y= ニ Yー1 : 
NEXT: FURT=1TD60』LINE (Y。 日 ) -(5BO』9) 。 PSET 。6』 BF : Y= ミ Yー2』 NEXT FURT=1TDLsLINE (Y。 日 ) (460。 
9) , PBET 。 2,BF : Y=Yー2s NEXT: IFL く =OTHENFL=458B 

1400 FDRI=1TU10:LTNE (X』169) 一 (X+24。176) 。PSET。 昌 。 BF: X=X+ さ Oi GBDSUB1 440』 NEXT: BEEP 1 : FOR 
1=OTD5O: NEXT: BEEPO』 SYMBDL (240』70) 。"Hit さ Key"。2。1。1 

1410 PATNT (300。171) 。1。O:PATNT ( さ O0』 171 ) 。 ら 6。 OiPATNT (00』 171 ) 。 さ 。 0 =TNKEY 還 』TFA あ = リ さ リ 
THENL INE (240』70) -(390。8B0) 。 PSET。 5 BF s EEEP1:FDRI=OTD5O』 NEXT: EEEPO: SYMBDL (150, 40) 。" 
Fighter",6。 さ 。2:BYMBDL (260,BO) "BEart"。2。1。1:ELSE1410 

142O FDRI=OT ロ 5O: PATNT (300。 171) 。 6 OPAINT (300。 171 ) 。 1 OsFAINT ( さ OO」 171 ) 。 さ Os NEXTsL1 
NE (15Q。 40) (4B6』9O) 。PSET 。5。 BF : BEEP 1 FDRT=OTU5O: NEXT: BEEPO:FURT=OTU2OOO』 NEXT: X=1 フ 
フ : FURT=1TD25』 LINE (0O。X) (639。 X) 。PBET。5』 X=X+1 :FURY=OTD15』 NEXTY: NEXTI:FDRI=OTD さ OOOs 
NEXT 

143O INTERVALUN: KEY(2) ON KEY ( さ ) DN: KEY(4) Ni KEY (5) DN: ビ =2: BDTU240 

1440 CDNNECT (X+24。 169) 一 (X+24。 175) 一 (X+22。 175) -(X+22。 174) 一 (X+20。 173) -(X+1 昌 , 17 さ ) 一 (X 
+16。174) -(X+16』175) 一 (X+10』175) 一 (X+10。174) 一 (X+ 日 。 17 さ ) -(X+6』 17 マ ) (X+4。174) 一 (X+4』175 
)-(X。 175) -(X。172) 一 (X+ さ 。171) 一 (X+12。171) 一 (X+14。170) 一 (X+14。169) 一 (X+24。 169) 。O 

145O CDNNECT (X+6。 176) -(X+B。 176) 。 : CUNNECT(X+1 日 。 176) -(X+20。 176) 』 iPATNT(X+12. 17 さ ) 。 さ 
。 0 RETURN 

1460 CDOLDRO。5: CLS』 B=O: B1=4: ビ = ロ ェ F1= ニ 0=F2 ニ OF さ =O : =296: アニ 10:P1=1 :P フ ニラ 1 : P マ = オ 1 = ピ レニ さ ュ ビ 
D=O: PD も ="O" = し = ニ 2 さ 0』F し =0』 1 =1 : 2=1 : さ =1 : SM=O』 T=O= NTINTERVALBDSUB1290= INTERVALB: DNK 
EY (2) BDSUB460』 DNKEY ( さ ) GDBSUB4 さ O』 ONKEY(4) BDSUB420』 ONKEY (5) GDSUB440』 BUSUB13 さ さ Os GDT ロ S 
3O 
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先月 号 の イン ベー ダー・ ゲ ー ム は いか が で し た か . 
FM- 8 で も 高速 ゲー ム が で きる と いう 証明 に な っ た の で は 
の RUN2GGIERRS7 の 9 (し 

今回 は , ゲー ム ・ セ ンタ ー で お な じみ の 『 ギ ャ ラク シア 

ン 』 を 紹介 する と と も に , FM-8 の 表示 を 高速 化す る た め 
_ の ノウ ハウ も 紹介 し ます . 


可 性 び 方 

ゲー ム 自 体 は 知ら な い 人 は いな いと 思う の で 特に 説明 は 
し ませ ん . キー の 操作 は 前 回 と 同様 に , [, 負 , 還 で , そ 
れ ぞ れ , 左 . スト ッ プ , 右 に 砲台 が 動き ,| STOP | キー で ビ 
ー ム の 発射 ,.| スペ ー ス | キー で 再 ゲ ダーム で す 


> FM-8 の 高 表 化 一 一 
YAMAUCHI の 牧 密 


FM-8 で ゲー ム を 作ろ うと する と , 必 ら ず 突 き 当る 壁 が 
『V-RAM の アク セス 』 です. FM-8 は , PC, MZ な どの 他 の 
マイ コン と 異な り , V-RAM が メイ ン CPU の 管理 下 に な く , 
すべ て サブ CPU が その 管理 を し て いる の で , 画面 に 何 か 

写真 1 






































NRE THE GALNXINNS 
NISSION: DESTROY LIES 


韓 SCORE DVMNCE TNILE 旨 
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騙 COMPAC OH 


川 川 川 BBH.... 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 L 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 昌 


表示 させ る と き は BTIOS を 使う か , また は サブ プ CPU に 
直接 コマ ンド を 送っ て や ら な けれ ば な り ま せん . 

し か し 。 この 方 法 で は メイ ン CPU は マシ ン 語 に より , 
スピ ー ド ・ ア ッ プ する の に 対し て , サブ CPU の 表示 速度 
は BASIC て 使用 時 と 何ら 変り し なく, メイン CPU は そ 
の 大 半 の 時 間 を サブ CPU の WAIT ルー プ に 費やす こと に 
な り ま す . 

前 回 お よび 今回 の ゲー ム は , サブ CPU を 少し で も 速く 
する た め に , サブ シス テム 内 の ROM を 一 切 使 わ ず に , メ 
イィ イン CPU か ら サ ブ CPU を 動か す た め の プロ グラ ム を あ 
ら か じ め 転 送 し . サブ CPU の 管理 を その プロ グラ ム に 移 
す 方 法 を 使っ て いま す . 

サブ CPU に 対す る コマ ンド は いく つか 知ら れ て いま す 
が , この 中 に 『 メ イン テ ナ ン ス ・ コ マン ド 』 と 言う の が あ 
り , これ は さら に サブ プ コ マン ド を 持っ て いま す . サブ コマ 
ンド は サ プ コ マン ド ・ コ ー ド と 複数 個 の オペ ラン ド (な い 
場合 も ある ) で 構成 され て いま す . また 未定 義 の サ プ コ 
ー ド の 場合 は 。 この メイ ン テ ナ ンス ・ コ マン ド を 終了 し ま 
ず 。 

これ ら の コマ ンド を 使っ て メイ ン CPU か ら サ ブ CPU 
へ プロ グラ ム を 転送 し 制御 を 移し ます . た だ , この と まき 注 
意 し な けれ ば な ら な いこ と は , プロ グラ ム の 転送 先 と 『V- 
RAM ア クセ ス ・ フ ラグ 』 で す . 転送 先 は サブ プシ ステ ム の 
RAM 上 で あれ ば , ほとん どど こ で も 構わ な いよ う で す が , 
V-RAM 上 へ の 転送 は 後述 する 『V-RAM ア クセ ス ・ フ ラク 
を SET す る 必要 が あり , また $D000 以 降 は I/O や 割り 込 

写真 2 


6HLNWINH 


SCORE 606669 
HI-$CORE 


み に 対 する ワー ク ・ エ リア な ど 
方 が 良い よう で す -. 

『V-RAM ア クセ ス ・ フ ラグ 』 と 言う の は 文字 通り , V-R 
AM を アク セス する と き に SET す る フラ グ で , $D409 番 
地 を READ す る と SET… つ まり アク セス 可能 に な り , 
WR I TE する と RE SET… ア クセ ス 不 可能 に な り ま す . 
通常 。 私 達 が 使用 する と き は ,. 一 番 最 初 に SET し て お け 
ば 特に 問題 は な いよ う で す . 

以上 説明 し た コマ ンド を 使っ て , サブ プシ ステ ム に プ ブログ 
ラム を 転送 し ます . 実際 に 私 が 行っ て いる 方 法 は 最初 に , 
『V-RAM ア クセ ス ・ フ ラグ 』 を SET し , V-RAM 上 に プ 
ログ ラム 転送 の た め の プ ログ ラム を 転送 し て この プロ グラ 
ム に 制御 を 移し , ゲー ム 実 行 の た め の プ ログ ラム を 転送 し 
て いま す . な ぜ こ の よう に 面倒 な こと を や る の か と 言う と , 

『 メ イン テ ナ ン ス ・ コ マン ド 』」 の MOVE サ プ コ マン ド で 


が ある た め , 転送 は 避け た 


れ ば ビー ム 砲 の 爆発 ヾ ター ン を 表示 する ” な ど で す . 

この 点 , サ プ CPU の モニ タ は 汎用 処理 と な っ て いる の 
で アド レス , 色 の 指定 , 表示 すべ き > マ ター ン な ど を 共通 領 
域 か ら 読み 取り 計算 し ます が , この 方 法 で は 色 , 表示 すべ 
き パ ター ン は すでに 自分 の 領域 に 持っ て いる た め , か な り 
の スピ ー ド ・ ア ッ プ と な り ま す . 


F'M-8 の 表示 速度 は お 世辞 に も 速い と は 言え を ませ ん が 
640X200 ド ッ ト の 分 解 能 お よび 1 ドッ ト 単 位 で の 色 指 定 は 
他 の どん な マイ コン に も 負け な いと 思い ます . 2 つの 6809 
を 上 手 に 使い 、 あ な た も FM の 高速 プロ グラ ム に 挑戦 し て 
みて くだ さい ノ 


は 一 度 に 120 バ イト た ら ず の プロ グラ ム し か 転送 で きず , 効 


率 が 悪い 上 に アド レス の 計算 が 大 変 ど だ から で す . 腕 に 自信 参考 文献 
の ある 方 は MOVE サ プ ブ コ マン ド を 何 回 も 使っ て 結構 で す . 1 ) 芸 夢 狩人 : パ ギャラクシアン", 1/O, "80 年 9 月 号 
5 は 20 人 8 誠人: 2 ) 芸 夢 寿 人 :^PCG ギ ャ ラク シア ン /, 1/O, "81 年 1 月 号 


サブ で CP 攻 の メイ シャ ・ デ ログ ラム ( 7?) は,。 メイ ン ら PU 
と の 共通 領域 の 特定 アド レス を 常時 読み 込ん で , それ が コ 
マン ド で ある か どう か を 判断 し . コマ ンド で あれ ば , その 
処理 ルー チン へ ジャ ンプ し ます . た と えば , *$ EE/ で あ 


No.1n ヶ ト 


内 幸次 号 <" 








READ ニ キー デー タ 


キー デー タ 
V-RAM ア クセ ス ・ フ ラグ 











READ=SET WRITEーRESET 














Add +O +1 +2 + さ +4 +5+6 + プ 7 + 昌 +9 +a +B +C +D +E +F Sum 509Q 16 OO さ C 9E Q4 BC さ Z7 さ Q 26 Q1 39 A6 1F 26 05 a6 sDD 

5OOO 10 CE 6F FF B6 20 1F BB さ QO BD O1 7E BF O1 E1 17 i90 5OAO BB 4F 27 0O2 0 さ Q6 86 55 Aa7 1F a7 BB 4F 6F 0S 6F :09 

5Q10 OF さ C BE QQO QQO 9F OO 9F BBQ 9F 2 17 QO1 42 B6 35 iCD SoBO BB 5 さ 96 B6 26 OF 6 BB BO 27 Q2 C さ Q6 6F BB B1 』E4 

SO20 BZ7 FC BO 7F FD QOS 17 0 さ 84 17 00 さ 17 05 FO 17 iC4 5OCO B6 55 QA7 BB BO さ O 1F 9F O4 9E 4 さ O 1F 9F 84 9E :DE 

50 さ Q OA 92 17 Q1 3E 17 Q1 7 ビ 17 Q5 EC 17 Qa B6 17 02 :4E 5QDQO 4 17 QQ BC BF FC B6 6 FF B7 FC B2 B6 5Q B7 FC AB 

5040 25 17 OS5 DB 17 0Q5 DS 17 QOS DD 17 Qa 77 17 Oa OB CZ 5OEO BO 96 86 BZ7 FC 1 7F FD Q5 16 OO 54 9E 0O4 BC 3Z7 i20 

505O 17 QA 71 17 QB D さ 17 Q5 CE 17 Oa 6 17 07 62 17 :BE QFO 6O 26 O1 さ 9 9E Q4 6 Q4 26 05 a6 BB 54 27 Q2 0 さ 』E5 

SO60 O6 DB 20 C5 96 02 4 OF 日 1 OQ 27 O1 さ 9 96 BE 27 :25 || ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
5Q70 Q1 さ 9 17 QO EB B6 20 B7 FC BO 7F FD O5 17 QO EQ iBD Sum: E9 9Q ED DF 94 92 75 EF 6D 6 BF 46 DF 15 SF 9 』C さ 

5OBQ Bo FC B5 7F FD Q5 B1 さ 1 27 Q9 1 ささ 3 27 SE 9E B4 :F5 
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ギャ ラク シア ン マシ ン 語 ダン プ ・ リ スト 





Add  +O +1 +2 + さ +4 +55 + ら 6 +7 + せ 日 +19 +Q +B +C +D +E +F Sum 
1QQ Qe6 B6 55 a7 0Q4 7 BB 54 6F 4 6F BB 5Q 96 6 26 szBB 
110 OF Aa6 BB B2 27 Q2 QO さ Q6 6eF BB B1 6 55 aA7 BB B2 :B5 
120 さ Q Q1 9F Q4 9E 4 さ Q Q1 9F 日 4 17 QQ ささ BF FC B6 iDS 
1 さ O 7F FC B2 6 50 B7 FC BQO 56 6 BZ FC B1 7F FD QS siDZ 
5140 9E Q4 CE 55 55 EF 4 EF Q2 EF BB 5O EF BB 52 96 sa4 
515QO B6 27 O1 さ 9 6 55 a7 BB B1 39 7F FD Q5 7F FD QS iDD 
160 B6 FD Q5 2B F5 6 BO B7 FD QS B7 FD Q5 B6 FC BO siB2 
5170 26 EB 39 96 6 27 Q1 さ 9 96 BE 27 Q1 39 OF OF 1C :B さ 
51BO BF 1Q 40 96 OF 26 Q2 QF BF 39 0 くさ QF 96 BF 26 1D 』 さ Z 
190 9E 04 6 B9 FF Q1 26 15 さ Q BB B1 5F OC B6 DD 人 7 si29 
51AO B4 9E B4 さ 0O B9 FD 1 9F BC Q さ 6 QOS BF B6 4Q0 AA 9 さ 
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ギャ ラク シア ン マシ ン 語 ダン プ ・ リ スト 
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ギャ ラク シア ン マシ ン 語 ダン プ ・ 
dd +O +1 +2 + さ +4 +55 +6 + ア 
65QQ _D さ 6 CE DS 91 BD 0Q7 a6 
6510 C6 OB さ D CS DB OO 1F 02 
6520 7 B9 CO OO a7 B9 BO oO 
653O さ O O1 さ 9 B6 DS さ B1 7F DS 
654Q B6 DS さ 1 7F DS BS B4 Q02 
6SSO 7F D3 4 4 O4 27 03 7 さ 
656O BD Q7 6 C4 26 Fa 16 FA 
657O OO 1F 02 C6 OB さ 4 10 6 
6S5BO 7D D さ BS 27 04 7 8B9 CO 
659O BQO OO 3 さ O 88 SO Sa 26 DF 
65aO 
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ALLDASESTAH 13 


: 玲 OHPMTER 









Camriaht (C) 1931 5 WLKasar 8 、 RENE HIT 仙 f MEY 


画 粗 谷 昌明 





DST SM 3 


た た く と ,。 ゲー ム 用 の 船 本 052 3 と , 音 を 出す 
か 否 か を 開い て くる の で , Y ま た は N で 答え ます . 
次 に , 条件 を プレ ー ヤ ー が 設定 する か 否 か を 聞い て きま 


す . 友人 と 同 条件 で 競う と き な ど は , Y と 答え る と 良い で 


し ょ う . 自分 で 設定 する 場合 は . クリ ン ゴ ン 数 , 年 数 , 基 
地 数 を 入力 し ます . これ ら の 入力 値 に つい て は , チェ ッ ク 
を し て いま せん が , あま り 極 端 な 値 を 入れ な い 方 が 良い で 
2 選 9 


ウー ラ 通 信士 が 登場 し て , 宇宙 連邦 か ら の 入 電 を 伝え ま 





す . 条件 が 言い わた され , OK か どう か 開い て くる の で , Y 
また は N で 答え ます . N の 場合 、 新 ら た に 条件 が 表示 され 
ます . な お , 条件 を 自分 で 設定 し た と き は , この 間 答 は あ 


り ま せん . 

いよ My よ 人 ゲー バ ペー・ ズ ター トド ic3 コマ ンド は 表 員 に 示 
し だ:6( 相 5: で ま ー シ ョ ーー トミ コレ ドジ セン サー ロン ンプ "デレ 
ンジ ・ セ モ センサー, 銀河 系 マッ プ , ステ ー タ ス ・ レ ポー ト は 
常に 表示 され , 更新 され る の で , ド は あり ませ ん . 
また , 図 1 に 画面 の 説明 を 示し まし た . 
クリ ン ゴ ン を すべ て や っ つけ れ ば 勝ち , 
な る と 仙 け で 。 ゲー ム ・ 
勝ち の と き は 得点 と クラ ス が 表示 さ 


ニン ポン ン 


制限 年 数 以内 に , 
年 数 が 過ぎ た り , 
オー バー に 
れ ま す . 

も う 一 度 や る か 否 か を 閉 い て くる の で , Y ま た は N で 答 
XN ま 9 記 


エネ ルギー が な く 
な り ま す . 





ブロ (グラ に つい は 。 ペタ ニー・ ト レッ ク と で オー 


ソ ド ッ クス な 構成 な の で 説明 を 省略 し ます が ,。 ジェ ネ ラ ル ・ 
フロ ー チ ャ ー ト , 変数 表 、 行 番号 マップ を 埋 せ た の で 参考 


に し て く 《 く だ さい ( 宮 2, 表 3。 図 2)。 





いま の まま で , 残り メモ リ が 800 バイ ト 弱 な の で ( 廊 字 
領域 は 少し し か 使っ て いな いよ うな の で , CLEAR 廊 で 廊 
すれ ば , 少し メモ リ が 増え ます )、 あ まり 
Jp ルク グラ 人 ベ 
の MSct/boCn TSILTCI の KG で く 7 
筆者 は , 初め 士 宜 の 日 や 、 まゆ 

ェ ラ ノ 


プア ニタ を や の うち 思う て 。 デズ トト ・ 


領域 を 少な く 


字 
き な 改 造 は で き な い ど 思 いま す が , 
率 孔 
ネ 『 





を 動か す 
作っ た の 


で GU 太 層 ・ 


4 4 44 983 861 


党 ま 


まま まま ま 





4 


| 





表 1 コマ ンド 表 





指定 事項 及び 機能 に ルン 09:| 





























1 ワー プ ・ | コー ス (COURSE 1 8 , 9 ) | コー ス ま た は 速 | @ 現 クオ ドラ ント 内 
エン ジン | と 速 さ (WARP0.1 一 12, 故障 | さ 指定 時 に , 数 | の 進 向 方 向 に 障害 物 
(担当 : ス | 時 は 0.3 ま で ) を 指定 .WARP | 字 以 外 の 文字 を | が あれ ば 緊急 停止 . 
コッ ト ) 1 で 縦 また は 横 方 向 の 1 クオ | 入力 する ( 速 さ | e 連 続 使用 は 5 回. 
ドラ ント ( 8 セク タ ) 分 の 距離 | 指定 時 に 0 以下 | 9 エネ ルギー 消費 ( 速 さ に 応じ て ). 
を 移動 . の 数 字 を 入力 し 8 145UNITS 
て も よい ). 最高 約 1000UNITS 
2 生命 クリ ン ゴ ン お よび 基地 に 反応 .| 取消 不可 能 | ゅ 基地 お よび 星 の 場 
知 器 た だ し , た ま に 星 に も 反応 し 合 の エネ ルギー は ク 
(担当 : ス | た り , クリ ン ゴ ン を 見 落し た リン ゴン と 混乱 する よ 
ボッ ク ) りす る . うな 値 が 表示 され る . 
位置 (セク タ ) と 保有 エネ ル ギ ゅ エネ ルギー50UNITS 
ー を 表示 する . 消費 . 
8 ター テレ ォ | 船内 機能 の ダメ ー ジ 状況 を 表 | 取消 不可 能 | @ こ の 機能 が 故障 す 
-!( 提 内 | 示す る 。 ダメ ー ジ の 場合 , 修 | る こと は な い . 
ュ ン ピュ ー タ ) | 理 完了 年 数 も 表示 する . | 
4 フェ イ | 放射 エネ ルギー 量 を 指定 | エネ ルギー 指 | e 連 統 使用 は 4 回 ま 
ーー エネ ルギー は , 各 ク リン ゴン | 定時 に , 数 字 | で . 
(担当 : チ | に 等 分 配 さ れる . た だ し , ク | 以外 の 文字 ま 
ェ コ フ ) | リン ゴン と の 距離 に より 減衰 | た は 0 以下 の 数 
量 が 増す . 字 を 入力 する . 
5 光子 魚 | コー ス ( COURSE 1 8 , 9 ) | コー ス 指定 時 | 連続 使用 は 5 回 まで . 
雪 を 指定 . 命中 し た 物 を 破壊 す | に 数 字 以 外 の | @ ク リン ゴン に 命 
(担当 :* ズ | る が , クリ ン ゴ ン の 場合 , ダ | 女 字 を 入力 す | し た が , ダメ ー ジ の 
ー ル ー) | メージ だ け の と きも ある . ま | る . み の と き , その クリ 
| た 星 の 場合 , 新星 発生 も あり ン ゴ ン の 保有 エネ ル 
うる . ギー は 1/2 に な る . 
6 エネ ル | 光子 魚雷 1 個 当 た り , 300UNITS | 個数 指定 時 に | @ エ ネル ギー か ら 光 
ギー 変換 | の エネ ルギー に 変換 する . 変 | 数 字 以外 の 文 | 子 魚雷 へ の 変換 は で 
器 換 する 個数 を 指定 する . 字 ま た は 0 以 | き な い . 
(担当 : ス 下 の 数 字 を 入 
コッ ト ) 力 す る . 

















注 ) ワー プ ・ エ ンジ ン , フェ イザ ー, 光子 魚雷 の 「『 連 続 使用 』 と は , その コマ ン 
ド だ け を 続け て 使用 する こと . 規定 回 数 を 過ぎ る と , 「 オ ー バ ー ヒ ー ト 』 に な る が , 
この と き , 他 の コマ ンド (3 は 除く ) を 1 回 で も 使用 すれ ば , オー バー ヒー ト 状 
態 は 解除 に な る . 


で す が 。 メ モリ を 食う 上 , 思っ だ た より 効果 が な か っ た の で 
や め ま し た (や は り , 声 が 出 な いと 感じ が 悪い で す ). 








マイ コン で アニ メ を 作る の は 筆者 の 夢 で す が , 
ん の 一 歩 と し て , 本 プロ グラ ム を 作っ た わけ で す . 
顔 に つい て は , トレ ッ キ ー の 皆さん の 中 に は , 


その ,。 ほ 
官 の 


いろ いろ と 


組 は 導い 履い 放 王 則 王 貞 着い) 
幸村 
2 093 時 畔 6 特 相 
31 363 笠 村 村 t 
村 絆 4 村 4 は 本 調 
料 * 料 # 村 # 
c 665 村 *# 料 *# 幸村 # 





1 画面 説明 図 


に いこ 1p7: コ 
3210 


そそ そそ 3 キ そそ キ そ UILUIUEUIU 
ネ 玉 米 ※ 玉 米 米 米 玉 ※ 玉 004 005 215 503 


ネネ 玉 ※※ 末 003 002 006 001 

YEARS LEFT 米 玉 玉 米 玉 玉 末 玉 ネ 001 005005 
。 8 キ * ネ 玉林 ド 玉 玉 玉 ボネ 004 002003 
002001003001002003005002 


002015006003001006003001 
005003001506001003002* ネ ネネ 


COMMAND ( 1 














画面 説明 図 (付表 ) グラ ム を 、 いろ いろ と 作っ て いこ うと 思い ます . 
民 6 本 | 参考 文 献 


⑩ メイ ン ・ ス クリ ー ン ly b - 貴信 で 中 m ィ とみ > へ 
各 士 宜 が 指令 を 要求 する . また , 各種 情報 が 報告 され た り 。 1 ) 米 室 九 、 船 山大 翼 , “特集 STARTREK"。 ASCII, 








(特に スポ ッ ク に ) 皮肉 を 言わ れ た りす る . 78 年 1 月 号 
@ コマ ンド ・ ス クリ ー ン 2) “TK-80BS で Star Trek"、 ASCII, "78 年 3 月 号 
RS こわ る 3 3 ) 映画 “STAR TREK" (パラ マウ ント 映画 : 松 竹 配給 ) 
“ANSWER(Y/N) ? " と “COMMAND(1 一 6) ? " は 1 文字 入 ン フ レッ | 
カ , 他 は 適当 な 数 字 を 入力 し て か ら |Returnl ょ と 1 
ショ ー ト ・ レ ンジ ・ セ ン サ ー・ ス クリ ー ン 1) ハヤ カワ 廊 庫 「 宇 宙 大 作戦 」 シ リー ズ 
E: エ ンタ ー プ ライ ズ ,K : クリ ン ゴ ン ,B : 基地 ,* : 星 ,・: | 5 ) TV シリ ー ズ 『 ス ター トレ ッ ク 」』( 文 軸 で は あり ませ ん が ) 
何 も な し (空間 ) 従 来 と 異な り , 立 体感 を 得る た め ゆ が ん で 表示 さ 表 2 変数 お よび 関数 リス ト (1) 
れ て いる の で , 角度 計算 に 注意 . SE 
《 銀河 系 マッ プ ・ ス クリ ー ン (ロン グ ・ レ ンジ ・ セ ン サ ー 兼 用 ) 上 1 
クオ ドラ ント の 情報 が 3 桁 の 数 字 で 示さ れる . 未 セン ス は * ネ ネネ | で 
100 の 位 : クリ ン ゴ ン 数 , 10 の 位 : 基地 数 , 1 の 位 : 星 の 数 , 現 1J,K,T 主 に FOR 訪 用 


在 地 は イン ジ ケ ー タ ー と 同色 で , 他 は 白 で 表示 . X. Y.X1.Y1.X2.Y2 座標 用 


ステ ー タ ス ・ レ ポー ト 表 示 ウ ィ ン ド ウ 群 ci.C2 の 
⑮-| 宇宙 歴 (STARDATE) (開始 時 は 3200) CL カラ ー 指 定 用 
電 2 請 00 A$ 汎用 文字 変数 
3 クオ ドラ ント 現在 地 
-4 セク ター / ⑪ 一 般 
⑨-5 残り エネ ルギー O サウ ンド ・ フ ラグ ( 三 0 : 音 な し , =1 音 あり ) 
6 残り 光子 魚雷 数 YR 制限 年 数 
⑲-7 残り クリ ン ゴ ン 数 YEAR 残り 年 数 
KL 初期 クリ ン ゴ ン 数 


8 イン ジ ケ ー タ ー 














残り 年 数 ク リンゴ ン 数 。 ダメ ー ジ 状態 な ど を 総合 的 に 評 RS お 
価 し て , Green, Yellow, Red の 色 表 示 を する . 基地 に 帰 ENG ! 残り エネ ルギー 
港 し て いる と き は , 水色 で *D* の 表示 . PT 残り 魚雷 数 
SD 宇宙 歴 
YE makos DE 死者 数 
文句 が ある 方 が お られ る と 思い ます が , どう か , 大 目 に 見 G(X. の le 
て くだ さい ( 縦 方 向 の ドッ ト 数 が 少な い の で , 目 や 口 の 表 QD(, の クオ ドラ ント 情報 (表示 用 ) 
情 を だ す の が , 難 か し い の で す )。 QS(, め ) クオ ドラ ント ・ セ ンス ・ フ ラグ (= 0.: 未 セン ス , 1 : セン ス 済 ) 
寺 王 ea oe SQ($) QD(*, み ) を 文字 型 に し た も の 
これ か ら も , FM-8 の グラ フィ ッ ク 機 能 を 生か し た プロ S$(>, の セク タ 情 報 (E, K, B、 *。・) 











() 


K(9 
KEI(》 
| 
AE ! 
wc 
PTC 
PHC 
SC 


CS ! 

WL! 
DXI,DYI 
WSX, WSY 
QX2,.QY2 
SX2, SY2 


X3!.Y31 


FX1,FY1,FX2,FY2 


CE( め 


F$(9 ひ 


oo の の ょ の いら 一 GO 


oo いさ の の ょ oo 一 


10 


ご 】 


エン ター プラ イズ の いる クオ ドラ ント の 座 宋 (0 一 7) 
/ セク タ ヶ (07) 
/ クオ ドラ ント の 情報 ( 三 Q(QXE,QYE) ) 


エン ター プラ イズ の いる クオ ドラ ント 内 の リン ゴン 数 
/ 基地 数 
04 星 数 


クリ ン ゴ ン 位 置 (11 一 88or0:? 王 1 一 5 ) 
クリ ン ゴ ン 保 有 エ ネル ギー( 王 1 一 5) 
攻撃 エネ ルギー, 汎用 実数 型 変数 と し て も 使用 
攻撃 エネ ルギー 総量 
ワー プ 連 続 使用 回 数 
光子 魚雷 。/ 
フェ イザ ー / 
ショ ー ト ・ レ ンジ ・ セ ン サ ー・ ス イッ チ 
( 三 0 : 更 新 要 , = 1 : 更新 不要 ) 
コー ス ( 1 一 8.9) 
ワー プ 速 さ (0.1 一 12) 
1 ステ ッ プ 変位 
ワー プ ・ ス ター ト ・ ボ イン ト ( セ クタ ) 
ワー プ ブ 行先 ( ク オド ラン ト ) 

(セク タ ) 
変位 


顔 表示 用 座標 (PUT e 文 用 ) 


エン ター プラ イズ の コン ディ ショ ン 

全体 4 : Green, 6 : Yellow, 
5 : Docked 

ワー プ ・ エ ンジ ン 

ショ ー ト ・ レ ンジ ・ セ ン サ ー 

ロン グ ・ レ ンジ ・ セ ン サ ー 

ワ エ i7。 が 二 

光子 魚雷 

銀河 系 マッ プ 

メモ リ ・ ル ー ム 

防御 スク リー ン 

生命 探知 器 

エネ ルギー 変換 器 


2 : Red 


< く 0 :OK 

三 0 : 修理 完了 

> 0 : ダメ ー ジ (修理 完了 
まで の 年 数 を 示す ) 





表示 用 文字 変数 


機能 名 
ビエ ンタ ーー ブライズ? 
^* ワ ニー プ ・ エ ンジ ン ? 
* シ ョ ー ト ・ レ ンジ ・ セ ン サ ー” 
パロ ング ・ レ ンジ ・ セ ン サ ー”/ 
* フ ェ イ ザー? 
* コ ウシ ・ ギ ョ ライ ”" 
^ ギ ン ガ ケイ ・ マ ッ プ * 
\ メ モリ ・ ル ー ム ? 
* ボ ウ ギ ョ スク リー ン ” 
"セイ メイ ・ タ ンチ キ ? 
^ エ ネル ギー ヘン カン キ ? 


図 2 





oo ココ の m ょ oO 一 GO 


(W) 関 数 
FNX(*,》 
FNSX(x, の 
FNMX( エ , の 
FNSY( め の 


FNL ! ( め ) 


*CHEKOV : ヶ 
*UHURA : ? 

* ホ シィ 

ヾ キチ ヶ 

*KLINGON セ ンカ ン ” 


画面 作成 の た め の , 左右 の 対称 位置 を 与え る . 





ショ ー ト ・ レ ンジ ・ セ ン サ ・ ス クリ ー ン の X 座 標 (SYMBOL 文 用 ) 


銀河 系 マッ プ ・ ス クリ ー ン / ( 
上 記 2 者 の Y 座 宣 ( 
2 点 問 の 距離 


/ 


/ 


) 
) 








表 3 行 番号 マッ プ (D メ イン ・ ル ー チ ン 








宣 言 etc. 
FACE デー タ 読 み 込み 
タイ トル お よび ゲー ム 画 面 表示 
条件 設定 

クオ ドラ ント 初期 設定 
ステ ー タ ス 7/ 

セク タ 設 定 
ステ ー タ ス 判 定 

修理 判定 

ロン グ ・ レ ンジ ・ セ ン サ ー 
ショ ー ト ・ レ ンジ ・ セ ン サ ー 
クリ ン ゴ ン 攻 撃 

故障 発生 , ステ ー タ ス 判 定 
コマ ンド 入力 

ワー プ 

ジテ ri イ (が 

光子 魚雷 

生命 探知 器 

ダメ ー ジ ・ レ ポー ト 

エネ ルギー 変換 器 

ゲー ム ・ オ ー バ ー 処 理 


ジェ ネ ラ ル ・ フ ロー テ チャート (2) 











176 














ALL DA3T ST 





図 2 ジェ ネ ラ ル ・ フ ロー チャ ー ト (1) (0 サブ プ ル ー チ ン 


























1600 一 1610 | (Y/N) 問 答 
1620 一 1630 | マッ プ 表 示 
1640 マッ プ ・ ク リア 
ーー トーー 1650 一 1670 | QD(x,y) 一 SQ$ 変 換 
読み 込み 1680 ショ ー ト ・ レ ンジ ・ セ ン サ ・ ク リア 
1690 マッ プ 1 クオ ドラ ント 分 クリ ア 
タイ トル お よび 1700 / / 表示 
1710 一 1740 | 基地 帰港 判定 
1750 一 1840 | ステ ー タ ス 判 定 お よび 表示 
oe 1850 一 1860 | 故障 数 カウ ント 
ステ ー タ ス 初 甚 値 1870 一 1930 故障 発生 
に 1940 一 1950 | 死者 / 
1960 一 2060 | 修理 完了 判定 
2070 ワー プ お よび 魚雷 の 1STEP 変位 計算 
2080 / // イニ シャ ライ ズ 
2090 / / 1STEP 移 動 
2100 一 2110 | ショ ー ト ・ レ ンジ ・ セ ン サ 1 セク タ 分 , 
2120 距離 パラ メー タ 計 算 
2130 クリ ン ゴ ン 破 壊 処理 
2140 一 2190 | ワー プ お よび 魚雷 の 移動 表示 
2200 連続 使用 回 数 初期 化 
2210 一 2250 | ダメ ー ジ ・ レ ポー ト 表 示 
2260 メイ ン ・ ス クリ ー ン 全面 クリ ア 
2270 り / FACE エリ アル / 
2280 / メッ セー ジ ・ エ リア / (1) 
2290 / / / (2) 
2300 座標 乱数 発生 
2310 一 2330 | タイ マ 1 一 3 
2340 一 2380 | サウ ンド 1 一 3 
2390 一 2410 | メッ セー ジ 表 示 (オー バー ロー ド ) 
2420 (/ (故障 ) 
2430 / (準備 完了 ) 
2440 一 2470 7 (コー ス 指 定 ) 
2480 / (緊急 停止 ) 
2490 一 2500 / (命中 ) 
2510 / (連邦 より 入 電 ) 
2520 7/ (成績 評価 ) 
2530 一 2590 | 顔 表 示 
2600 一 2870 | ゲー ム 画 面 表示 
2880 一 3020 | タイ トル 表示 
1 

















BASIC プ ログ ラム ・ リ スト 











1 " ※X aaLL CQBT STaR TREK Ver.2.1 for FM- 昌  *※※ 
2 ? *※%※ Programmed by M.Kasuya (Nov. 1981 ) ト る 1 
さ ? *※※ 。 Copyright (C) 191 by NM.Kas=uya ボボ 


5 CLEAR,&H6FB4: IF FEEK (&H6FB5) く >&HBE DR PEEK(&H6F97) く >&H39 THEN LOADM "CASOg " 

10 DEF INT-Z 』 DEFFNSX(X。Y)=CINT( (ヨーマ *X ) ※(4※Yー196) /41+ さ 20) : DEFFNSY (Y ) =B※Y+ 日 : DEFFN 
MX (X』Y) =CINT ((2ー4*XX) ※ (BKY- さ 92) /41+320) : DEFFNL ! (X1。Y1 。X2。Y2) =1 一 . 06XSQR((X1X2)※(X 
1--X2)+(Y1-Y2)※(Y1-Y2) ) : DEFFNX (X。 1 ) = さ 19+F1TX (X※ エ +。) 

20 DIMFA(299) 

30 DIM (7。7) 。 QBD(7。7) 。 ロ 8 (7。7) 。$(7。7) 。K () 。KE ! ( ロ ) 。 じ (9) 

40 F$(O) = リエ ンタ ー フ ? ライ スズ" " ミ F あ (1 ) = リリ ワーフ 5 ・ エ ンジ ドン "=F ま (2) = リ シ ジョ ー ト レン ジ シド" セン サー "=F 和 あま ( さ ) = ニ リ ロ フワ レンジ" 
セン サー "sF 生 (4) ニ " リ フェ イサ ーー "F 員 ( 呈 ) = リコ ウシ キ " ョ ライ "』F 和 も (らち) =" キ "フカ "ケイ マウ フ " "=F あ (7) = リ メ モリ ー ルー ム 

"=F も (日 ) =" ホ "ウキ ^ ョ スズ フ リー "=F ま (9) = リセ イメ イ グン チキ "=F も (10) = リエ ネル キ ド ー ハン カン キ リ 

5O C$(Q)="KTRK  』 ":C ま (1)="SPHCK : "gC ま (2)="MCCHY 』 "iC ま も ( さ ) = "SCHTT 』 "iC まま (4)="SU 
LU  』 "E じ あ (5) ="CHEKDV: " ミ ビ あ (6)="UHURR : 「: ビ ま (7) = リ ホ ジー "= ビ (日 ) = リキ チー "も (9)="KLINBUN 
セフン カン 『" 

60 MIDTHBO。 2s COLHR7 。 0 CLS 

110 RaNDUMIZETIME-INT(TIHE/2BBOO) *2BBOO 

120 ロ =O: CHNSULE24。 1 : GHSUB2BBO 

130 LUCEATE60。24: PRINT "PLEASE HIT QANY KEY"』:FURT=OTU200 NEXTTELHEATE60 。 24: PRINTSP 
じ (18) 』 IFINKEY$=" "THEN13O 

140 BUSUB26O00: SGD=3200:FX1= ニ 424:FY1= ニ 119:FX2= ニ 19』FY2=168 

150 GUSUB2260』 LHCATE14。14: PRINT "サウ ント "リキ ニ シマ スカ の "3BHSUB1600s IF も ="N"THEN ロ =OELS 
E ロロ =1 

160_ BUHSUB2260』 LHCATE14。14: PRINT "アナ 9 カカ ショ ウケ ン ヲ キメ マッ スカ "BUSUB1600s 1TF ま ="N"THEN 

C1=O: GHTH1BOELSE ビ 1=1 

170 LUCATEZ。 24: GHSUB2340s INPUT "KLTNBHNB=" 』KLGs LHCRTE7 。 24: GBHSUB2 さ 40s INPUT "YEARS=" 
5 YEARs LHCATEZ。 24 s GHSUB2 さ 40= INPUT "BASES="' 』 MB 

1 ヨ 0_RANDUMIZETIME-INT (TIME/2B ヨ OO) *2BB0O 

190_ FORX=OT0U7: FURY=OT07s QD(X。Y) =OsQ(X。Y) =Os QS(X。Y) =OiS ま (X』Y)="・"aNEXTY。X 

2O00 GUSUB251O 

210 BUSUB226O』 TFC1=1THEN2S さ O 
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BASIC プ ログ ラム ・ リ スト 








220 YEAR=RND* 1 日 +1 日 :KLGB=RND* さ 1+10: TFABB (YEAR-KLB) >15THEN21OELSE MB=RND*2+1 

230 YR=YEAR: ド し =KLG 

240 BOBUB2 さ 60: LCATE14。15:FRINT" USBB"』F ま (O) "リー の 2"。" 

250 LUCATE14。16:PRINTYERR』 "ネン イナ イニ 、"sKLG ェ "セキ ノ "3 じ 和 (9) :" ラ リハ カイ セヨ 。" 

260 LUCATE14。17:PRTNT" ミカ タラ ノ キテ カ ""sMBi" キ アル 。 "= TFC1= ニ 1THENGBHSUB2 さ 10: BHTD29O 

270 LUCATE14。1 昌 :PRINT" = バ ョ ウケ ン リロ k カカ で "=:BHSUB160O 

2BO 1FA$="N"THEN21O 

290 BUSUB2 さ 40: LHCATE14。19:FRINT" ケン トウ ラ イノ ルル se "FDRT=OTU ミ 000: NEXT 

3O0 BUSUB2260 

310 C1=O 

さ 20 BUSUB2 さ OO IFD(X』Y) >9THENS2OELSE ロ (X』Y) =10:C1= ビ 1+1 : TFC1 く >MB THEN32OELSE C1=KL 
B 

ささ O GUSUB2 さ OO0』 TF ロ (X。Y) >99THEN さ さ OELSE 2=TNT (RND*X5)+1 = FC1 >C2 THEN ロ (X。Y) = ロ (X。Y)+ ビ 
2*100:C1= じ 1C2 BTU3 さ O ELSE ロ (X』Y)=R(X。Y)+C1*10O 

さ 40 FURX=OT ロ 7 FURY=OT ロ 7:C1=INT (RND*6)+1: ロ (X』Y) = ロ (X。Y)+C1: ロ D(X。Y) = ロ (X。Y) :NEXTY。X 

さ 50 GOSUB2 さ OO: QRXE=X : YE=Y : GUSUB2300: SXE=X : BYE=Y: CE (O) =4:ENG ! =4000: PT=10: MC=O:PTC 
=0』 PHC=0i BC=O : DE=O: MB=O:FHR エ =1TU10: CE (1 ) =ー1:NEXTT 

360 GOSUB1620 

さ 7O FURX=OTD7:FURY=OT ロ 7 8$(X』Y) ="・"sNEXTY。X:FUR エ =1TD5K(T)=O:KE! (1)=O』NEXTI 

3BO QE=Q(DXE。QYE ) : SK=RE\100: BB= (DE-SK*100) \10: BB=QE-SKX100-SB*X1O 

390 8$(BXE。 BYE) ="E" 

400 1FSK=OTHENGBHTD420ELSEC1=1 

410 GUSUB2 さ O0』 IFB$(X。Y) く >"・"THEN410ELSEB$(X。Y)="KVEK(C1)=XX10+Y+11:KE! (1 ) =400: エ 
FC1 く >SK THENC1=C1+1:GBHT ロ 41O 

420 IFBB=OTHEN440 

430 BUSUB23O0』 IFB$(X』Y) く >"・"THEN4 さ OELSEB$ (XY) ="B" 

440 IFSS=OTHEN460ELBEC1 =5S > 

450 GOSUB2 さ OOz TFB$(X。Y) く >"・"THEN45OELSEB(X』Y) ="K"EC1= ビ 1-1: TFC1 く >OTHEN45O 

460 BUSUB1750: TFCE (0 ) =5THENBSUB2260: LUCATE14。 14: BUSUB257O: PRITNTC*(4) 』 じ (日) " ニ キ コ 
ウ シマ シグ 。 "BUHSUB2 さ 10 

470 BUSUB177O 

4B0 GUSUB1960: BUBUB2 さ 2O 

490 1FCE ( さ ) く =OTHENRD (DXE, YE ) = ( ロ XE。 BYE) ELSE5 さ O 

OO FURY=QYE-1TURYE+1 :FHRX=QXE-1THDXE+1: IFX く OURX >7 ロ RY く OURY>7THEN2OELSETFX=QXE Aa 
NDY=QYE THENCL=CE (O ) : ELSECL= ア 

510 QBS(X。Y) =1: GDBUB1690:』 BHSUB1700:』 IFCE (7) >OTHENQB (X。Y) =0 

520 NEXTX』Y 

53 さ O IFCE(2) >0THEN57OELSE X=QXE: Y= ロ YE: ロ D(X。Y) = ロ (X。Y) : SB(X。Y) =1: ビ L=CE (O) : GDBUB1690 
: BODSUB1700: TFCE(7) >0THENDS(X。 Y) =O 

540 IFSC=1THEN57O 

5O _BDSUB16BO:FURY=OTD7:FHRX=OT07: IFB$(X。Y) ="K"THENCL=2ELSETFS$(X。Y) ="E"THENCL=6 
ELSEIFS$(X。Y) ="B"THENCL=5ELSEIFS$(X。Y) ="%"THENCL=7ELBECL= さ 

oO AsmB(X。Y) :BHSUB2110:NEXTX。Y 

570 SC=1:C1=OsFUR ユ =1T ロ 5:C1=C1+ に (1T) : NEXTT : FC1=OTHENBUSUB2260 GBDT ロ 73O 

5BO BUSUB2260:LUCATE15。 14: GDBUB23BO: GBDSUB2540: PRINTC(1 ) : E ! =O 

590 FURI=1T05: GUSUB2120: IFK(T ) =OTHEN6OOELSE E!=KE!(1)*(RND+。) /4:KE! (1) =KE! (1)-E 
EE!=E!XFNL! (X1。Y1。X2。Y2) : AE! =AE!+E!:LHCATE14。 CBRL TN: CHLUR2: GUSUB2 さ 40』 PRTNTUSTNG 
『 手持 ノ KLITNBDN ヨリ 昔 基 。 韻 基 UNITSB ノ コウ ケ " キ 。" ュ X2+1 。Y2+1。E! = CDLUR7 

600 NEXTI: TFCE (0O) =5THEN LUCATE14。CBRL IN: GDBUB2 さ 40: FR INT" テ * モ キチ カ " マモ ゅ テ ウレ マ シダ 。"s BOD 
TD7 さ OELSEBDSUB2 さ 2O 

610 ENG!=ENG! AE ! : TFCE (日 ) >OTHEN ENB ! =ENG!ーE ! % 

620 BUSUB1B5O: IFDM=10THEN720 

630 IFAE !<6O ロ R (AE ! く 100!QNDCE (日 ) て =0) THEN72O 

640 IFAE !>=150! ANDCE (日 ) >OTHEN GUSUB1940: BDSUB2 さ 10: BJSUB1 ヨ 7O: BUTD72O0 

65O IFAE!>=100! ANDCE (日 ) >O0THEN GUSUB1940: BUSUB2 さ 10: GUTU7OO 

660 1FAE! く 100THEN710 

670 IFAE !< く さ OOANDDM く 6THEN71O 

6B0 IFAE! く 400QNDDM く < さ THEN7OO 

690 IFAE! >=400THENZ700ELSE72O 

700 IFRND . 7THENBDSUB1B7O: BHTU7SOELSE720 

710 IFRND く .5THENBDSUB1 昌 7O 

720 BDSUB177O 

73Q BOTQ76O 

740 GSUB2 さ 10 

750 GOSUB226O 

760 C1=O 

770 1r=O 

7BO BOBUB2 さ 40 

790 LUCATE7 。24:PRINT "CUMMAND (1-6) つゆ 』:FHRT=OTU220: NEXTT:LDCATEZ。 24: PRINTBPC(14) 
: 人 $=INKEY ま も: TFA$ く > 0THENB10 

BOO 1= エ +1: TFT=5O AND C1=OTHENB さ SOELSETF エ =10O0THENB5OELSE79O 

B10 C2=VAL (人 Q ま ) : IFC2 く 1 ロ R C2>6THENB2OELSE UN C2 GOTO B60。135O。 1440』 11 さ O, 1240。147O 

B2O BUSUB2260: LUCATE14。 14: GUSUB2540: FRTNTC ま (1 ) 』 "コマ フト" JA イカ ノ ト オ リ テ " ス 。 "= LHCATE21 。 1 


Ss PRTNT リオ ワ ス レ テ " ス カ や セフン チョウ ?"sLUCATE14。17:PRINT" 1: "isF ま (1) 5" 2 "リョ F も (9) :LUCATE14 
ュ 18:FRTNT " さ ミ ダメ ー ジ ド ・ レ ホー ト 4: リョ F 和 ま (4) sLUCATE14。19sFRINT "GE " ョ F$() ョ " 6: ョ F 生 (10 
) : GUT076Q 


30 BODSUB2260: LHCATE14。14: GUSUB2SGSO』 PRTNTC ま (2) : LHCEATE14.15gFRTNT "カー2。 アマ リ カン カ " エ 
ヌキ "ルト セイ シフ エ イセ イニ 7 ル イツ" 。 "sg LHCEATE14 16:PRTNT "カン ラー シンジ" ルル コト モ グイ セリ タダ 。 "BUSUB2 さ 10 

40 LUCATE14。 1 昌 : GHSUB2540』 PR INTC$(1 ) = LHCATE14 。19s PRITNT "トト "フタ ー ラ シ イ イケ フン テ " ス ネ 。 テ " モ ワ 
ダシ バル 、 "LHCATE14。20: PRTNT "ヨプ カン カ " エ テ ロン リ テ キ ニ コウ ト " ウ スパ "キタ" ト オモ イマ ス 。"' = BHTH7BO 

5O_BUSUB2260s LHCATE14。 14: TF ヒ 1=OTHENGBUSUB240』 PRINTC ま (1) sLHCATE14。15s PRTNT "ワタシ カ 
~ ミニ テモ 、 チョ ッ ト カン カ ^ エス キ ^ テ ^ スネ ェ 。 "= ビ 1=1 : BUTH77OELSEGHSUB2 さ BOO: BUSUB2540: PRINT じ (1 ) 』 リセ ンチ 
ョ ウ ! オキ テ イマ スカ ! ?" ョ BHTU77O 

60 J=1』 BHSUB2260: LHCATE14。14:BHSUB256Os PR INTC ま ( さ ) : IFMC>4THENBHSUB2 さ 9O』 GBHSUB2400 
: BHTU73OELSE IFCE( 1 ) >OTHENGUSUB2420: LHCATE14。16:PRINT" セ イセ" イ MARPO。 さ マテ " シカ トペ "マセ ッ ン 
ssLUCRTE14。17:BHSUE2 さ SO BHSUB2 さ 40』 FRTNT "ヨロ シイ テス カー ニー? リュ BUSUB1600』 TFQ 和 も = リ "NTHENGHT ロ 7 
5o 
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BASIC プ ログ ラム ・ リ スト 











70 Y=15: BDSUE2290: GUBUB24 さ 0: BHSBUB2440 

BBO GUSUB2 さ SO LOCATE14。 17: BDSUB2340:PRTNT"JN ヤ サラ シレ イ ジテ ウタ "サイ 。 "=LDEATE7 。 24: TFCE (1 
) >OHR K=1THEN900 

90 INPUT"MARP(O.1ー12) "』 人 =ML!=VAL (人 あ ) : BHSUB2 さ 40= TFML ! >12THENLUCATE14。 17sFRTNT"M 

ARP "3 ML ! リナ ッ テ ムリ テ * メ ヨ 。 "= BUTD910 ELSE92O 

900 INFUT"MaRP (O。 1 一 0. さ ) "人 負 :ML! =VAL (人 ま ) : BDSUB2 さ 40 ェ TFML ! >、 さ THENLUCATE14。17:PRTNT" 

コシ ョ ウチ テ ュ ウ ト イグ 5 ト ャ ナイ テ * ス カカ ! "LHCEATE14。1B=PRITNT "MARPO. さ マテ * テス ヨ 。" ELSE920 

910 BUBUB2 さ 10: Y=17: GDBUB22BO BHTBBO 

920 1FML! く 。1THENLUCEATE14, 17:PRTNT" ト フ " り モリ カ " アル フ デ "スカ で "リュ BUSUB16O0』 TFA$="N"THEN75O 

ELSEG ロ TOgBO 

93O E!=ENB!-146-ML ! で さ /2: TFE ! く =100THENL ロ CATE14』17:FRINT" モ シ トッ タラ エネ ルキ ドー カ " "ELOCaT 

E14。1B:PRINTE! 』 "ニナ リマ ス ヨ 。 "LDPATE14。19 ょ PRINT" イ イン テ * スカ や "BOBUB1600: TFA*="N"THEN910E 

LSE Y=17:GDBUB22BO 

940 LUCATE14。17:PRINT"MARP" ML !:" リョ ウ カ イ ジマ シグ 。 "= BUSUB2 さ 10: LHCATE14。 1 BUSUB2340:P 

RINTF ま (1) 』" シト "ウリ kBDBUB2 さ 1O 

950 BDBUB2260: MC=MC+1 : PTC=O:FHC=O: YEAR=YEAR-1 : SD=SD+1 :FURI=1TD10:CE(1) =CE(1)-1:N 

EXTT:ENG! =E! : MBX=SXE: MSY=SYE 

960 BUSUB2O70: X=BXQXE+SXE: Y=BXQYE+SYE: X ニ X+ 昌 XML ! DX! Y=Y+BXML ! *DY ! : QX2=X\ 日 : QY2=Y\ 

日 : SX2=X MDDB:SY2=Y MDDB:GDSUB2O0BO 

970 BUSUB2090: IFX2<OURX2>7DRY2 く OURY2>7THEN1O4O 

9BO IFS$(X2,Y2) く >"X"THEN1OOOELSEJ=7:GDSUB24BO: BHSUB2540: PRINTC$(1 ) 』" セ バン ホウ フチ ュ ウ イ 
ト IJN ヒロ ソリ テキ ナ コウ トウ "LEATE21 18 PRTNT" テ "スネ 。 "ルカ フジ ドン ニ こ リ リカ イ テ " キ マセ フ 。 "TFCE(2) >=OT 

HENLDCATE21 。 19:PRINTF$(2) 』" 力 " コジ ョ ウチ ュ ウ ナノ テ *" 、"sLUCATE21 。 20: PR INT "ムリ モ アリ マセ ンカ " 

990 BOBUB2 さ 10: BSUB46O 

1000 1FS$(X2。Y2) ="B"THENJ=B: BDBUB24BO BUBUB2540sPRTNTC$(1 ) 』 "中 コウ ノ シュ タダ" ント シテ) ヤヤ 

カケ "キテ" スネ 。 "BUSUB2 さ 10: BTD46O 

1010 1FS$(X2。Y2) ="K"THENJ=9: BDSUB24BO BUBUB2540 ェ PRTNTC*(1 ) 』 "カミ カセ " ト ) ハ ヒロ ン ソリ テ キ ナ コウ イ 
テス ネ 。 " : BHSUB2 さ 10: DTD46O 

102O SQ*="E":C1=6: GDBUB2150』 BUSUB217O 

103O BXE=X2i BYE=Y2r IF (SXE=SX2 AND BYE=BY2 AND QXE=QX2 AND QYE=GY2) ロ R SQR((MSX-X2 
) *X (MBX-X2) +(MBY-Y2) * (MSY-Y2) ) >B*ML! THEN46OELSE97O 

104O BOBUB2150: GDBSUB2 く 10 

105O IFQX2<O ロ RQX2>7DRRY2 く ODRRY2>7 ロ RSX2 く OHRSY2 く OTHENLUCATE14。 14』 BUBUB2570: PRINTC$ 
(4) 3 "キキ ドン カト ケイ ノ ソト ニ テ " テ シマ ウ トコ ロ テ " シ タ 。" ょ LDPATE21 , 15 ょ PRTNT" テ * モ 、 コン ヒ * ュ ー ワ ノ オカ ケ " テ * タス カリ 
マシ タ 。 " : LDPATE21 。 16: PRINT" シ カシ 、 ヨ テ イカ トイ ノ QUADRANT ニ リキ マシ グ 。 "ELSE107O 

1060 BUSUB2 さ OO: QRX2=X: DOY2=Y: BUSUB2 さ 00: BSX2=X: SY2=Y 

107O IFCE(6) く OANDCE (7) く OTHENPL=7: X= ロ XE : Y=QYE: GBDBUB17O00』 BHTO110O 

1OBO FURY=QDYE-1TUOYE+1:FHRX=DXEー1TUQXE+1: FX く OURX >7DRY く OURY >7THEN1090ELSEGDSUB16 

go 

1090 NEXTX。Y 

1100 QXE=QX2: RYE=HY2: GXE=BX2: SYE=SY2: BC=O 

1110 IF(ML!>1.5QND RND>.B5) DR (ML ! >4.5QND RND>.75) THENGSUB2 さ 10: BDSUB2260: LDPATE1 

4。14: BHSUB2 さ BO』 GHBUB25BO: PRTNTC$ (5) 』" ウ チュ ウ アラ シ JW9 セ f!!"EBHBUB2 さ 10』 BHSUB17O 

1120 BOTQS7O 

113O J=4: GOSUB2260:LDCATE14 14: BHSUB25BO: PRINTC*$ (5 ロ ) : IFCEE (4) >OTHENGBHSUB2420』 BHTDZ7 
4OELSE IFPHC> さ THENGDSUB2 さ 90: GDSUB2410: GBDTD7 さ O 

1140 BHSUB24 さ Os LUCATE14。16= BHSUB2 さ 20: GUSUB2 さ 40: FRTNT "エネ ルキ ドー ヲ シレ イ シテ ウタ" サイ 。 "=LUCA 

TE7, 24: INPUT "ENERGY" 』 人 Q$sE!=VQL (人 $) =LHCATE14。 16: BUSUB2 さ 4O 

115O IFE!>ENB!THENPRTNT "エネ ルキ *ー 力 " ヲリ マセ フ 。 ": BDSUB2 さ 10: BHTO1 1 40 

1160 IFE!<=OTHENFRTNT "Ng シ ャ トリ ヤメ テ * ス カ の ": BSUB1600: IFA$="N"THEN1 140ELSE75O 
117O IFENG!-E!< く =5OAND KLG-BK>OAND SB=OAND PT<5THENLDCATE14。 1 日 : BUSUB2540: PRINTC$( 
1 ) :LDCATE14, 19:PRTNT "ソー ナ ニ エネ ルキ ドー ヲ カウ ト アト テ " コマ リマ ス 。" ょ LDPATE14』20sPRTNT" ロ ソリ テキ ニ カフ 

カエ テ パフ コウ スル "キテ "メス 。 " 』:EBHSBUB2 さ 10: BUBUB2 さ 10: Y=16』 BDSUB2290ELSE1 190 

11BO LUCATE14,16: GUSUB25BO:FRTNT "パソ コウ シマ スカ で" ょ BUBUB16O0』 TFA*="N"THENLUCATE14。 16E 

LSE1140 

119O PRINT"ENERBY"』E!』 リ リョ ウ カ イ ! " ェ F 和 (4) sw シ f! =BHSUB2 さ 10 

1200 Y=14: GUSUB2290: WC=0: PTC=O: PFHC=PHC+1 : ENB ! =ENG ! E! ょ LUCATE15。 14:FRINTC*( ロ ) : IFS 

K=OTHENLUCATE14。 15: GDSUB2 さ 60: FRTNT"KLTNBDN リ イマ セン ム グ の "ウチ テバ シグ 。 "= BHTH47OELSE E!=E! 
/SK:FDR エ =1T05: BDSUB2120: FK(T) =OTHEN123OELSE KE! (1)=KE!(T)-E!XFNL!(X1。Y1。X2。Y2) 


1210 IFKE!(1) く =OTHENGBDBUB21 さ 0: SH あ ="・" 1= さ 』 人 = リラ N カ イ ! IVELBE SQ あ = リ "KU:C1 ニ 2: 人生 リー 
メー ジリ 
1220 LUEATE14.CBRLTN: CULHR6: PRTNTUBTNGB" せ 一 革 ノ KLTNBON & &』X2+1 、Y2+1 、 人 あま BS 


UB218O0: IFCE (2) >OTHENGHSUB2 さ 40 

123O0 NEXT1sCHLUR フ 7: BUTH47Q0 

1240 J=5s GBHSUB2260s LUCATE14 。 14: GUHSUB2 つ 57Os PRINTC ま (4) = IFCE () >OTHENBHSUB2420』 BHTOZ 
4OELSE IFPTC>4THENGUSUB2 さ 90s GUSUB2410= GHT ロ 7 さ 3O 

1250 IFPT ぶ =OTHENLUCATE14。 155: PRTNTF ま も () 』 "リリ アリ マセ ン 。 "BHTH74OELSEBHSUB2430』 BHSUB2440 
sLUCATE14。17:PRINTF ま も () "Ng シャ 1 GBHSUB2 さ 10 

1260 Y=14: GUSUB2290s MC=O0』 PHC=Oi FT ビ = ニ FTC+ 1 : FT エニ FT-1 』 BHSUB2O70: GHSUBSOBO 

1270 LUCATE14。14: GHSUB2090: TFX2 く OURX2>7URY2 く OURY2>7THENBUSUB2 さ 60: PRINTC ま (4) 』 "リス 
レ マ シ グ 。 "5 GUHSUBS15O0: BHTU470ELSEBHSUBS140: じ 1 = ロロ: あー"e" ェ BHSUB21HO 

1280 ビニ Oi まま = リ リカ イー シリ ョ SR あー リリ = ビ 1= ニ うさ: IF まま (X2。Y2) く 2"K リ THEN1 さ 2OELSE エニ =9=: IFRND く 。 1 THEN 
介 ま = リグ メージ" ヲ アグ エリー"K" ョ ビ 1=2 ョ ビビ 2 フ =1 

1290 BUSUB249O 

1300 FUR エ I=1T ロ 5 IF XG= ニ に ( エ ) 半 101QND Y2=K(1)MUD1O-1THEN IFC2=OTHENBHBUBS1 さ OELSE KE!( 
1) =KE ! (T) /2 

1310_NEXTIi GSUB21 昌 Os GOT ロ 47O0 

1320 IFG ま (X2。Y2) く > リ ※!THEN1 さ 4OELSE エニ = ニア = IFRND く . さ THEN も = リジン セイ カカ" リウ セ イー シリ ュ GR 生 = リポ リョ ミ ビ 
1 = フュ: ビス =1 

1 ささ O BUSUB2490: BUHSUB21 昌 Os TFC2=1 THENGBHSUB2 さ 1O』 GUSUB25S5O』 LUCATE14。1:PRINTC ま (2) :L ロ 
CATE14,19:PRTNT "ホウ シャ ノウ ニー ヲイ リョ ウー ハッ セ イ 1" sLHCATE14。20:PRTNT "カラ タダ" ニニ ヨウ ナ イソ " ! カー の 。 "= BUT ロ 4 
70ELSE SS=S5S-1 : (BRXE』。 BYE) (RBXE。BYE) 一 1 : BHTH47O 

1340 ITFS$(X2。Y2) く > リ "BTHEN127OELSE 1= 日 : GUSUB2490 ょ GUSUB2180: LUCATE14』17:FRTNT "チキ ュ ウ 
シド フー / コウ イ リカ イニ ニー の ルミ マス 。 "5 BUSUB2 さ 10:LUCATE14。 19:GBHSUB2SGO FRTNTC ま (2S) sLHCRTE14。20 
5sPRINT "コレ AN の" フ ホ 9 ウ カイ キ " モノ タツ 。 "SB=Os ロ (DXE』。 BYE) = ロ (DXE。 BYE ) 10: MB=MB+ 1 : GDHTO47O 
135O J=9: BHSUB2S6Os LHCATE14 。14: BHSUBS540』 FRINTC$(1 ) : TFCE(9) >OTHENBHSUB2420』 BHT ロフ 
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AL DASTSTAH 3 


BASIC プ ログ ラム ・ リ スト 








40ELSESUSUB2200: LHCATE14。 15:FRITNT "セン チョ ウ 、 "』F ま (9) リフ セイ ト " ルリ アマ リ ヨウ アリ マセ ン 。 "LHCRTE14 
s16s PRINT " リ チ ュ ウイ シテ ワウ 9 サイ 。 "BSUB2 さ 310』 BUSUBS さ 10:』 Y=1 ロ : BHSUB229O 

1360 GUSUB2 さ 40: LHCATE14。 15s PRINTF も (9) "サト "ウー シマ シダ タ 。 ! 

1370 LHCATE3 さ 。 1 ビ 1= さ さ : FORX=OTH7: FURY=OT ロ 7 

13BO IFS ま (X。Y) く > リ K"UR _RND>.9THEN141O 

1390 _FHRT=1T ロ 5 BUSUB212Os TFX= ニ X2 AND Y=Y2 THEN E!=KE! (1) 

14O0_NEXT1I: BUSUB2210: GHSUB223Os GUTH1 420 

1410 IFS ま (X。Y)= リ "BUHR(G ま $(X。』。Y)="K"RNDRND く .2) THEN E!=150+RNDK170』 BUSUB221O: BHSUB22 さ 

0 

142O_NEXTY。 Xs IFCBRL IN=15RND PHS(O) =33THENLUCEATE14 。 16』 BHSUBS さ 40』 PRTNT "セイ メイ リフ ノウ バル 
アリ マセ ン 。 " 

143O_ENG! =ENG ! 5O』 BUSUB2 さ 1O GUSUB2 さ 10: BHTU47O 

1440 BUBUB2260s LUCATE14。 14: BUSUB2 さ 60』 PRTNT "コン ヒ " ュー ダ = セン ナイ シ ^ ョ ウキ ョ ウ ヲ オシ ラ セ シ マヌ 。 " s GBD 

SUB2320 

145O LHCATE40。 15: じ 1=40sFHR1T=1T ロ 10: GHSUB2210: BUSUB2 さ 40』 PRTINTUSING"& を 5" 
ョ F ま (IT) si IFCE (1) >O0THENBHSUB2240ELSEBHSUB225O 

146O_NEXTTsGHTH7 さ O 

1470 J=10』 GUSUB2260:LUCEATE14 14: GOSUB2560』 FRINTC$( さ ) : IFCE(10) >O0THENBHSUB2420』 GUT 
074OELSEIF PT=OTHENLUCATE14。 15: PRINTF$(5) 』 "カカ" アリ マセ フン 。 " ミ BHTD740ELSEGUSUB2200』 BHSUB 

243O 

14 ヨ 8O LHCATE14。 16』 GHSUB2 く 40: PRTNT "ナフコ ノノ "』F ま ( 王 ) 』" ヲ エネ ルキ ドー ニニ ハン カフ シマ スカ ? リ "sgLHEATE14 
ぅ 17sPRINT "1 コ ニニ りり キ 300 UNITB テ " ス 。":LOCATE7。 24: INPUT "HOM MANY "3 人 ま : ビ 1=VQL (人 $) 

1490 LHCATE14。 1 日 : BHSUB2 さ 40: Y=1 日 : IF FT く ビ 1 THENPRTNTF$ (5) : "カカ "タリ マセ ン 。 " s BHSUB2 さ 10』 B ロ 
SUB2290』 GUTH1 4 ヨ O 

15O0O IFC1 く <=OTHENPRTNT "トリ ヤメ テ " ス カ ? リ "BUSUB1600』 IFA ま = リ "NTHENBHBUB2290』 BHT ロ 14BOELSE7 
5O 

1510_ PRINTC1』 "コニー リョ ウ カ イ 。 "BSUB2 さ 10』 BDSUB2 さ 40』 PRITNT" パン カー カン リョ ウー シマ シダ タ 。 "』ENGB ! =ENGB ! + 
さ O0% じ 1: PT=PT- ビ 1 : GUT ロ 47O 

152O BBUB2260』 LHCATE14。 14: GUHSUB2540』 PRTINTC*(1) すま sLHCATE つ 1 。 15: PRTNT "ワレ ワレ ニノ マテ " 
スズ "』 BHSUB2 さ 10:LUCATE14。17: BUSUB2S5O: PRINTC* も (2) 』 "2 ヨ 2 ヨ スズ ルナ 。 カー ク 。!"』 SHSUB2 さ 10』 GBDSUB2 
510 

153O BUBUB2S20s PRINT "シッ リッ イ ワカ "ホウ ニ タタ "イナ ソン ガ " イ ヲ モタ ラ シ タ 。 "sg LHCATE14』16』PRINT "ヨッ テ 
キミ ニ チ シ ジョ ウ キン ム ヲ メイ ス " ル 。 マ ァ シカ ジ 、" ュ BHTH159O 

1540 BUSUB226O0』 LUCATE14。 14: BUSBUB2540』 PRINTC$(1) 5C ま (9) 』 0) セ " フ メリ シマ シグ 。 "BUDBUB2 さ 10* 
LOCATE14。』16: GUSUB25SOs PRTNT ビ (2) 』 "ヨコ フ ヤ ゅ タ ソ " ! カー の! "5 BSUB2 く 10』 GHSUB2 さ 1 0 BDSUB251O 
15SO_ GUSUB252Og PRTNT "カリ ヤ フ ニニ ウイ シテ 、 ヒョウ カカ ヲ アタ エル 。"』BHSUB2320』 YR=YR-YEAR: LHCEATE15。 17 
: BHSUB2340』 PRINTKL "セキ ノー リョ C(9) "ラリ 3 YR』 "ネン テ " カイ 。 "gsLOCATE15。 1 日: IFDE=OTHEN156OE 

LSEGHSUB2 さ 40g PRINTDE』 "メイ セン シ 。 疾 

1560 IFMB=OTHENPRINTs BHT0157OELSEGDSUB2 さ 40: PRINTMB』 "コノ キチ ヲ j カ イ 。" 


1570_ C1=5OO* (1+KL/YR-MB-DE/5) : IFC1>1OOOTHEN 人 Q*$="A"ELSETIFC1 >75OTHEN ="BVELSEIFC 
1>5OOTHEN 人 Q$="CVELSEA$="D" 


15BO LUCATE1。 CSRL IN: BUBUB2 さ 403 PRINT" SCUREI "CE15" FLASBi "』 の $* 

159O BC=0:LDCATE14。CBRLTN+ 1 : BDSUB2340: PRTNT" モ ウ 1 カイ 和 ヤル カネ ⑦" ュ BUSUB1600: TFA$="N"THE 
NBUSUB2260: LUCATE14。 14』 GBDSUB2SBO: PRTNT "BUD BYE!!":GBUSBUB2 さ 10: CONBHLEO, 25: STOP : GO 
TO120ELSEBUSUB1640: BHBUB16BO: GUT ロ 15O 

1600 GUSUB2 さ 20: GBHSUB2 さ 40 

1610 LUCATE7。24:PRTNT "ANSMER (Y/N) ?" ュ FURT=OT ロ 200』 NEXTT: LUCATE7。 24: PRINTBPC (13) 』 
: 全 =TNKEY$= TF 人 も = リ Y" ロ RA も ="N"THENRETURNELSETFA*="y"THEN ="Y"sRETURNELSETFA$ あ ="n"T 
HEN Q*="N"s RETURNELSE1610 

1620 FDRY=OT ロ 7Z:FHRX=OT ロ 7 ェ TFQB(X』Y) =OTHEN SQ$=" ボ XX"ELSEBDSUB165O 

163O SYMBUL (FNMX (X。Y) 。FNSY (Y) ) 。" 三 還 " 。 1 1 Os BYMBHL (FNMX (X。Y) 。FNBY (Y) ) 。 SQ$。 1。 1。7IN 
EXTX: NEXTY: RETURN 

1640 FURY=OT ロ 7』FURX=OTO7: SYMBOL (FNMX (X。Y) 。FNSY(Y) ) 。 " 還 還 時 " 。 1 。 1 0 NEXTX。Y:RETURN 
165O IFQB(X。』Y) =OTHEN SQ も ="X ホ ※ り sRETURN 

166O IFQD(X。Y) >99THEN GBD*=RTGHT$(BTR$( ロ D(X。Y) ) , さ ) ELBETFRD (X。Y) >9THEN SQ$="O"+RTGB 
HT$ (STR$(BD (X。Y) ) , 2)ELSE SD$="O0"+RIGHT$ も (STR* ま (RD(X。 Y) ) 。 1) 

167O RETURN 

16BO FURY=OT ロ 7 FRX=OT ロ 7: SYMBDL (FNBX (X。Y) 。FNBY (Y) ) 。" 還 "。 1。1。O:NEXTX。 Ys RETURN 

169O_ SYMBOL (FNMX(X。』Y) 。FNSY(Y) ) 。" 還 還 還 " 。 1 1.O:RETURN 

170O GOSUB1650: SYMBOL (FNMX (X。Y) ,FNSY(Y) ) 。 SR あ 。 1 。 1,。CLERETURN 

1710 FURX=SXEー1TUBXE+1 : FDRY=SYE-1TUSYE+1 : IFX く ODRX >7 ロ RY く OHRY >7THEN1740ELBE IF$(X。』 
Y) ="B"THENCE (O) = ENG ! =4000: FT=10: WC=Oi PTC=Os PHC=OELSE1740 

1720 FORI=1T ロ 10: TFCE(1 ) >0THENCE (1 ) =O 

1730 NEXTI 

1740 NEXTY。X:RETURN 

175O LUCATE26 2: PRINTSD: LHCATE2 日 弓 : PRINTYEAR: SYMB ロ L (16, 95) 。" 屋 " 2。 1。Og SYMBDL ( さ 9。 9 
4) 』" 還 "1。1。O:GYMBOL (59 さ 。 94) 。" 園 "。1。1。0: SYMBL (60 日 。 9) 。" 司 "。2。 1 。O』 SYMBDL(16。 95) 。 RIG 
HT$ (STR$ (DXE+1 ) 。 1 ) 。 2。 1 。 7: SYMBUL ( さ 9。94 ) 。 RIGBHT$ (BTR$ (RYE+1) 。 1 ) 。 1。1。 プ 

176O SYMBOL (59 さ 。94) 。RIBHT$ (BTR$ (BXE+1) 。 1) 。 1。1。7: BYMBOL (608B。 95) 。 RGHT$(BTR (BYE+1 
) 02 5 の 

177O CE(O) =4: BDSUB1710 

17BO TFCE(O) =5THEN182O 

179O GOSUB1 コ 5O 

1BOO IFSK>2 ロ RDM>4 ロ R (CE (日 ) >OANDSK>0) RYEAR く 2 ロ RENB ! く < ヨ BOTHENCE (O) =2』 BUTD182O 

181O IFSK>ODRDM>2 ロ RCE (日 ) >O ロ RYEAR く 4URENB ! くさ OOTHENCE (O ) =6 

1820 LUCATE1 日 。 12: PRINT USTNG" 基 苦 間 。 電電 "ENG!sLHCATE さ 9。 12:PRTINT UBTNB" 間 昔 "PTsLUCATE 
2。 12=FRINT U ヨ INGB" 折 苦 "sKLGB 

13O LUCATE66。 12: TFCE (O) =5THENCULUR: PRINT "DX "ELSECOLDR CE(O) :PRINT' 還 還 " 

1B40 CULURZ: 1FENG ! く =OTHEN 人 Q あ = (O) キリ ノ エネ ルキ ー 力 " キレ マシ タ 。 "=RETURN1520 ELSEIFYEAR く OT 
HEN 人 $= リ TITME ロ VER テ " ス 。 "RETURN1520 ELSETFKLGB=OTHENRETURN1540 ELSERETURN 

185O DM=OsFUR エ =1TD10s TFCE(T ) >OTHENDM=DM+ 1 

1B6O NEXTI:sRETURN 

187O RAND ロ MTZETIME-INT (TIME/2BBOO ) *2BBO0』 =INT (RND※10) +1: TFCE(T) >OTHEN17OELSETF 
( エ =70R1=) ANDRND く =. 2THEN187O 

18BO CE(1)=INT(RND*5)+1 

189O GUSUB2260s LUCATE14。 1 昌 : BUSUB23BOs GHSUB2540: PRTNTC ま (1) 』F 多 (T) "カタ" メー ジ " ラ ウケ マシ 
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9。 "LDPATE20 。16: PRINT "ジュ ウリ ニ " CE ( 1) 3 "ネン 力 カ リマ スズ 。 " 

1900 IFT=7THENLUCATE20。 17:PRTNT "MAP ノ テー タカ" ショ ウメ リ シマ シグ 。" 

1910 IFI=BTHENLUCATE20。 17:PRTNT "ウリ ンコ トン ノ コウ ケリ" キ ニ ワイ シテ ム ホ * ウ ヒビ" テ * ス 。 

1920 IF1=2THENG ロ SUB16BOELBETFT=6THENBDSUB1640ELBEITFT=7THENBDBUB1640』 FURX=OT ロ ZiFD 
RY=OT ロ 7 QB (X,Y) =O:NEXTY。 X 

193O RETURN 

1940 1=INT(RND*X11 ) - 呈 : FI く <1THENRETURNELSEGBHBUB2260s LUCATE14。 15』 GBH ヨ BUB2SBO』 GDBUB255 
Oi PRINTC*(2) 』" テ " ッ キ 力 " ヤラ レ テ 、"』T5 リ メイ シン タ "。 "=LHCATE20。 16= PRTNT" ナ ニラ ヲ ヤ ゅ テイ ルン タ *" ! カー ク 。" 
195O DE=DE+1: RETURN 

1960 EE!=1:FURI=1TO10:E!=E!*CE(T) =NEXTT = IFE ! く >OTHEN20 さ O 

197O BUSUB226 の ょ LUCATE14。 14: BHSUB2540s PRTNTC*(1 ) 

19BO じ 1=ー1:FURI=1TD10: TFCE (1 ) =OTHENC1=(C1+1 )MDDZELSE200O 

1990 LUCATE14。 15+ ビ 1 : GJBUB2 さ 40= PRTNTF$(T) 』" ノ シュ ウリ カン リョ ウ シマ シタ 。"』 TFCSRL IN=22THENBDS 
UB2 さ 10: Y=15: BUSUB229O 

2000 NEXTI: GOSUB205O 

201O F ロ RI=1TD10: IFCE( 1 ) =OTHENCE (T ) =ー1 

2O2O NEXTI:RETURN 

203O エ =TNT(RNDX10)+1 : TFCEE(T) >OAND RND>。6THENBDSUB2 さ 10』 BUSUB226O』 LUCATE14。 14s BUSU 
B2540:PRINTC$(1 ) 』 "アタ ラ シ イ テ ワ ニク ヲ リカ ウ テ 、"sLDCATE21 , 15: PRTNTF$(T) 』 リラ シュ ウリ シマ ジグ 。 " ョ CE( 
1 ) =O: BUSUB205O: CE ( エ ) =ー1 

2040 RETURN 

2O5O ITF(CE(6) =OANDCE(7) <=O) DR (CE (6) <=OANDCE (7) =0) THENBSUB162O 

206O TFCE(2) =OTHEN SC=O: RETURNELSERETURN 

207O CB!=CB!ー1: DX !=CDS (CS ! *.7B5 さ 9 日 ) : DY ! =ーBTN (CB! *.7B5 さ 9 日 ) s RETURN 

2080 X1=BXE:Y1=BYE: X2=BXE: Y2=SYE: X さ ! =SXE: Y3! =SYE: RETURN 

209O X さ 3!=X さ !+DX !:Y さ != ニ Y さ ! +DY! : X1=X2 ェ Y1=Y2: X2=X さ ! : Y2=Y さ ! = RETURN 

2100 SYMBUL (FNSX(X。Y) 。FNSY(Y) ) 。" 較 "1。1.0 

2110 SYMBOL (FNSX(X。Y) 。FNSY (Y) ) 。 Q$。 1。 1 。CLsRETURN 

2120 X1=SXE:Y1=SYE: X2=K(T)\101: Y2=K(T) MHD10-1 : RETURN 

っ 213O K(1)=0: SK=SK-1 :KLG=KLGBー1 : 5$(X2。Y2) ="・"s ロ (RBXE。 RYE) = (RXE。 QRYE) 100 RETURN 
2140 IFS$(X1。Y1) ="E"THENRETURN 

2150 8$(X1,Y1)= リ ・": TFCE(2) く OTHEN X=X1:Y=Y1:CL= さ : 人 $="・" = BUSUB2100 

216O RETURN 

2170 9B$(X2。Y2) =SO$ 

218O IFCE(2) く OTHEN X=X2:Y=Y2:CL= ビ 1 : も =BD: BUSBUB2100: GDBUB2340 

2190 RETURN 

2200 MC=OiPHC=OsPTC=Os RETURN 

2210 IFPDB(O) く <C1 THENLUCATEC1 , CSRLIN ELSELUCATE14,CSRL TN+1 

2220 RETURN 

22 さ O GOUBUB2 さ 40:PRTNTUS TNGB" 章 一 革 』 音 特 培 。 攻 昔 UNTTB" ョ X+1。Y+1。E! 3 =RETURN 

224O PRINTUSTNB" ダ "メージ ( 共 ネ ン ) "CE(T) jiRETURN 

2 っ 25O PRINT"Ok"』:RETURN 

2260 LINE(112,112) 一 (527, 175) 。PSET。 0, BF : RETURN 

227O LINE(FX1。FY1) 一 (FX2,FY2) ,PSET 。 0。BF : RETURN 

22BO0 LINE(112。BXY) 一 ( さ 19, 175 ロ ) 。PSET。 0,BF : RETURN 

229O LINE(112、BXY) (415 ロ , 175) ,。PSET, OBF : RETURN 

2300 X=INT (RNDXB) : Y=INT (RNDX 日 ) : RETURN 

2 さ 1O FORT=OTH7OO NEXTT: RETURN 

232O FDRT=OTD15O: NEXTT:RETURN 

2 ささ O FORT=OTO5Os NEXTT: RETURN 

2 っ 34O IFD=1THENBEEP 1 : FDRT=OTD5: NEXTT: BEEFO 

235O RETURN 

っ 36O IFD=1THENBEEP 1 : FDRT=OTH5O: NEXTT : BEEPO 

2 さ 70 RETURN 

23BO FDRK=1TU2: BHSUB2 さ 60: BUSUB2 さ さ O : NEXTK: RETURN 

2390 LUCATE14。15: PRINT "セン チョ ウ 、 "』F あ (J) "7 オー リボ ドーロ ー ト " テ " ス 。 "=RETURN 

240O IFCE(4) >OANDCE (5) >0ANDCE (9) >OANDCE(10) >OTHENGDSUB2320: GDBUB2340:LUCATE14。16 
ょ PRINT" テ " モ ホカ ノ コマ ント" 力 " ミンナ コショウ ジテ イル ノ テ " 、"sLHCATE14。 17=FRTNT" ウ コ " カシ マシ ジョウ 。 ダウ" 
MARFO. さ マテ" テ * ス 。 " ェ K=1 : BUSUB2 さ 10: GUSUB2 さ 10: RETURNB7OELSE K=O 

2410 LUCATE14。16:PRINT" イ チト "ペリ ウノ コマ ント " ラ シレ イ シテ の が サイ 。 "sLUCATE14。 17:PRINT" (コマ ント * 
クッ メージ レポ リート リリ ノバ ク ) "5RETURN 

2420 LOCATE14,15:PRINT" セ フチ ョ ウ 、 !"』F あ (J) "VN コショウ シテ イマ ス 。 "= RETURN 

24 さ O LUCATE14。1 ロ :FRINTF$() 』 "シド ュ ン ヒ " カフ リョ ウ 。 "=RETURN 

2440 し INE( さ 2B。 156) (ささ , 156) , PSET。7: し LINE (356。 144) (356。 167) , PSET 。 7: じ IRCLE (56。 15 
6) 。20。 さ 。 。 4: CIRCELE ( さ 56。 156) 。 12。 6。 . 4: LHCATE4B。 19:PRINT" 1":LUCATE44。17:PRTNT"3"=L ロ C 
ATE40。 19:PRINT"5":LHCATE44。21:PRINT"7" 

2450 LHCATE14。16:GDSUB2S40: FRTNT "コース ラ ジレ イ シテ ワ 2* サイ 。 "LOCATE7。 24: TNPUT"CHURSE (1 
。9) "5 人 も: TFQ$ も = リ O"THEN CS!=.1ELSECB ! =VQL (人 $) 

2460 LHCATE14,16: BDSUB2 さ 40: TFCS ! =OTHENPRTNT "コマ ント "トリ シー テ デ " スカ で "BUBUB1600』 TF 負 = 
N"THEN245OELSERETURN75O 

247O IFCB!<1 ロ RCS! > 日 . ウ THENPR TNT "1 日 .9 ノ リン イ テ " ス ヨ 。 ":BHSUB2310』 BDTU245OELSEPRTNT" ビ 
ロ URSE"』 CS! "リョ ウ カ イ シマ ジグ 。 "RETURN 

24 ヨ O SBXE=X1: BYE=Y1 : GDBUB2570: LCATE14。 14:PRTNTC*(4) "キン キュ ウ テイ ジ !! "ELHCATE21 。 1 コ : PR 
INT" セ ドン ホッ ウー ニニ "』 じ ま () :" カ "アリ マス 。 " : BHSUB2 さ 10: LUCATE14。17:RETURN 

2490 BOBUB2540: PRTNTC ま (1) :LDCATE14。 15: PRINTC ま (T) :" ニ メイ チュ ウ 。 "LHCATE14。16:PRTNT$』 
リマ シグ 。 "= TFC2=OTHEN B$(X2」Y2) = リ "<" 

25OO RETURN 

251O BDSUB2260: BHSUB2590: LCATE14 。 14:PRTNTC$ (6) : "ウチ ュ ウ レン ホッ ウ ヨリ ニュ ウデ " ン 。 "LHCATE21 
, 15:PRINT "チャン ネル オー フ 5 ン シマ スズ 。 " : BHSUB2 さ 10: RETURN 

252O BUSUB226O+ BDSUBS さ 60: LDPATE1 ロ , 14:FRTNT "カー フ セン チョ ウー ニ 92 ト 。"gLHCATE14。15:PRTNT" コ 
ンカ イー ノ キミ ノ "skRETURN 

25 さ O AD1=S&H6F: AD2=SzH9 昌 : CL=6: BDSUB 2592: RETURN 

2540 AD1=&H71: AD2=SHFO ェ C し = ロ : GBDSUB 2592:RETURN 

255O AD1=&H74: QD2=&zH4B: ビ L= ロ : BUSUB 2592: RETURN 

2560 AD1=&H76: AD2=&zHQO : CL=2 = BHSUB 2592:RETURN 

257O AD1=&H7B: AD2=SzHFB: C し =6: BDSUB 2592: RETURN 
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25BO AD1=&H7B: AD2=&H5O ェ ビ L=2: BUSUB 2592 ょ RETURN 

259O AD1=&HZD: AD2=S&HAB: し =2: BUSUB 2592:RETURN 

2592 PUKE&H6FB6。 AD 1 : PUKE &H6FB7。QD2: PUKE &H6FBD。 (VARPTR (FA(O) ) 壮 256) :FDKE &H6F 
E。 (VARPTR(FA(O) ) MOD 256) 

2594 EXEC &H6Fz BHSUB2 さ 60』 BUSUB227O: PUT9 (FX1。FY1) 一 (FX2。FY2) 。FA。FSET 。 CL : RETURN 
2600 CLBiLINE(O。O) (6 さ 9。 199) 。 PSET。 7 。 BF 

261O FUR エ =-1T01TEF2 

2620 CHNNECT (FNX ( さ 20。 1 ) 。0) (FNX (251 。 1 ) 7) -( さ 20。 日 7) 。O: CHNNECT (FNX (320。 1 ) 。 15) 一 (FN 
X (251 。 1 ) 。 92) (FNX (251 。 T ) 。 90) (320。90) 。 0: CHNNECT (FNX (251 。 1 ) 。 B7) (FNX (251 。 1 ) 。 104) 
(FNX (256。  ) 111) (FNX (2B6, 1) 。 13) (FNX ( さ 19。 1 ) 。 140) 。O 

2630 CUNNECT (FNX (286。 1 ) 。 135) 一 (FNX (21 。 1 ) 。 172) (FNX (251 。 1 ) 。 182) 。 0: CHNNECT (FNX (25B 
。1) 。110) 一 (FNX (319。1) 。116) 。O 

2640 CHNNECT (FNX (251 。 1 ) 。 172) (FNX (27 さ 。 エ ) 。 180) 。 0: ENNECT (FNX(1 。 エ ) 。 187) (FNX (296。 エ 
) 、 187) -(FNX ( さ O4。 1 ) , 18B) (FNX ( さ 20。 1 ) 。 192) 。 1 : CHNNECT (FNX (1 。 1 ) 。 182) (FNX (3OO,  ) 。 182 
) -(FNX ( さ 10。 1 ) 。 1 日 3) -(FNX (20。 1 ) 。 15) 。O 

2650 CIRCLE(FNX (3O4。  ) 。 160) 。 16。2。1:EIRCLE(FNX (296。 1 ) 。 160) 。 16。0。1 3 FATNT (FNX ( さ QO。 1 
) , 140) ,。O:CIRCLE (FNX (296。 1 ) 。 160) 。 20。0。 1 : PAINT (FNX (279。 1 ) 。 160) 。 2。 OsFATNT (FNX (285 
、1) ,160) 。1、0。2:PAINT (FNX(296。 1) 。160) 。0。2 

2660 CUNNECT (FNX (294。 1 ) 。 15 さ ) 一 (FNX (29 日 。 1 ) 。 150) 一 (FNX ( さ O4。 1 ) , 172) 6: CDNNECT (FNX (307 
。 1) 。155) (FNX (294。 1 ) 。 163) 。2 

267O CUNNECT (FNX ( さ 06。 1 ) 。 1 4 日) (FNX (3O1 。 1 ) 。 155) (FNX (299。 1 ) 。 162) (FNX (297。 1 ) 。 169) 一 
(FNX (297。 1 ) , 174) 』 7: EDNNECT (FNX (307,。 1 ) 。 164) -(FNX (299。 1 ) 。162) (FNX(291 。 1) , 160) 7 
268O CHNNECT (FNX ( さ 04。 1 ) 1 ) -(FNX (297。 1 ) 。51 ) (FNX (26 日 。 1 ) 。B ヨ 7) -(FNX (265。 1) 9 さ ) (FNX 
(265, 1 ) , 102) 一 (FNX (269,  ) , 105) (FNX (297。 1 ) 。 107) (FNX ( さ O4。 1 ) 。 105) (FNX ( さ 04。 1 ) 。 1 ) 。 
0: CHNNECT (FNX (304。 1 ) 。53) (FNX (274。 1 ) 。 ヨ 7) (FNX (271 。 1 ) ,93) (FNX(271 。 1) 。 102) (FNX (2 
76。 1 ) 105) 。O 

269O CUNNECT (FNX (30 1 ) 。 49) (FNX(294。 1 ) 。49) 一 (FNX (265。 1 ) 5) -(FNX (261 。 1 ) 。9 さ ) (FNX 
(261 。T) ,102) 一 (FNX (266, 1 ) , 107) (FNX ( さ O0。 1 ) , 109) (FNX ( さ QB。 1 ) 。 107) (FNX (3OB, 1 ) 。 49) 。 
0: CHNNECT (FNX (304。 1 ) 5 さ ) (FNX (274。 1 ) 日 7) (FNX (271 。 1 ) 。9 さ ) (FNX (271 。 1 ) 。 102) 一 (FNX (2 
76。1) 。 105) ,O 

270O CUNNECT (FNX ( さ 20。 1 ) , 26) (FNX ( さ 15。 1 ) 。 さ 1 ) -(FNX ( さ 1 さ 。 1 ) 。 さ ) (FNX ( さ 1 さ 。 T ) 。 105) (FN 
X (31。 1 ) , 107) (FNX (320。 1 ) 。 109) , O: CNNECT (FNX ( さ 20, 1 ) 。 2B ) (FNX ( さ 18, 1 ) 。 さ さ ) (FNX ( さ 17 
・ 1) 35) (FNX ( さ 17。 1 ) 。 105) (FNX (1。 1 ) , 105) (FNX (320。 1 ) 。 107) 。O 

2710 PAINT(FNX (267, 1 ) 。 7) , 2。 0:PATNT (FNX (2 日 さ 。 r ) 。 107) 。 2。 0: FATNT (FNX ( さ 16, 1 ) 。 7O) 。2。0 
: PAINT(FNX (271 。 1 ) 。B7) 。 1 。O:PATNT (FNX (299。 1 ) 。 67) 。O: FATNT (FNX (320。 1 ) 。 7O) 。 1 0 

2720 CUNNECT (FNX ( さ 20。 1 ) 。 121 ) (FNX (27 さ 。 1 ) 。 115) (FNX(291 , 1 ) 。 1 さ 1) 一 (FNX ( さ 20。, 1 ) 。 1③5) , 
OiLINE (FNX (2B さ 。 T ) 。 12 さ 3) (FNX ( さ 20。 1 ) 。 12 日 ) 。PSET。 Os し INE (FNX (29 さ 。 1 ) 。 117) 一 (FNX( さ 04。 1 ) 。 
132) 。PSET OsLINE (FNX ( さ 10。  ) 。 119) (FNX ( さ 19。 1 ) 。 135) 。PSET,O 

273O_ FATINT (FNX (2 1 ) , 1 19) 。RNDX5+1 。O:PATNT (FNX (292。 1 ) , 127) 。 RND*+1 。O:PATNT (FNX (3 
06, 1 ) 。 123) , RNDX5+1 , OxPATNT (FNX (309。 1 ) , 1 さ O) , RND*5+1 0:PAINT (FNX (1, 1 ) , 125) 。 RND*5 
+1 OFATNT (FNX (20, 1 ) 。 1 さ 1 ) 。RNDX5+1 、O 

274O CHNNECET (FNX (1 。 1) 111) 一 (FNX (21。T) 。 111) (FNX(220。 1 ) 。 119) 一 (FNX (220, 1 ) 。 167) -(F 
NX (21 さ , 1 ) 。 176) 一 (FNX (1 。 1 ) , 176) 。 0: CDNNECT (FNX (1 , 1 ) , 108) (FNX (214, 1 ) , 10B) (FNX (225,。 
1) 119) 一 (FNX (225。 エ ) 。 167) (FNX (214。 1 ) 179) 一 (FNX (1 1) 。 179) 。O 

2750 LINE(FNX (256, 1 ) , 142) (FNX (2 ささ 。 1 ) , 1 45) , PSET 0。 BF: し INE (FNX (252。 [ ) 。 150) (FNX (2 
ささ 1 ) 。 15 さ ) 。 PSET。O。BF:LTNE (FNX (252。 1 ) 。 1 1 日 ) -(FNX (2 ささ 。 1 ) 。 121 ) 。PSET , O。BF:LINE (FNX (25 
ら 。 1) , 126) 一 (FNX (2 ささ 。 1 ) 。 129) , PSET。 O。 BF ょ LINE (FNX (260, 1 ) , 1 さ 4) (FNX (2 ささ 。 1 ) , 1 さ 7 ) , PSET。 
0,。 BF 

2760 LINE(FNX (2BB。 1 ) 。 9B) -(FNX (2B4。  ) 。 9B) 。 PSET 。 7 

277O NEXTI 

27BO CHNNECT(24。 フ ) 一 (149。7) (155。 11) 一 (1 日 3。 76) 一 (1 さ 。 プ 9) (77。79) 一 (73。 76) 一 (24。11) 一 (2 
4 7) Os CDNNECT (32 日) (2。75) (182。75) 。 Os CDNNECT (19,4) 一 (155。 4) 一 (159,9) (187。 78) -( 
187,B1) (74。 晶 1) (70。7B) (19。9) (19。4) 。 OsPAINT (67。61 ) ,,OsPATNT (94。BO) 。 さ 。O 

2790 CDNNECT(291 。7) (61 日 7) (61 昌 。 11) 一 (565。 76) 一 (561 , 79) (29。 79) (29 さ 。 76) (2BB。 1 1 
) (291 。7) 。O CHNNECT (294 。 日 ) -(297。 7) (55。 75) (40 日 。 日 ) 。 0: CONNECET (2B7 。 4) (62 さ 。 4) 一 (6 
23」9) (56 日 。 7) -(564。1) (291 。 昌 1 ) (2B9。7 昌 ) (2B4,9) (2B7。 4) , 0:PATNT ( さ 30。77) 5。 Or PA 
INT (320,BO) 。 さ 。O 

2BO0 CUNNECT(B2,75) (77。79) 。0: CHNNECT (297。 7 王 ) (29 呈 。 79) 。 0: CUNNECT (5 。 7) (561 。 79 
) 。O 

2B10 CUNNECT (174』7) 一 (27O。7) (272。25) 一 (179。25) 一 (174。7) 。0: CUNNECT (16 日 。4) (27。4) -( 
277,27) 一 (176。27) (16 日 。4) , 0: CHNNECT (1 る , さ 1 ) (271 , さ 1 ) (27 さ 。 4 日 ) (18。 4 日 ) (1 さ 。31 ) 。O 
: EDNNECT(17B, 29) 一 (276。29) 一 (27 日 、5O) 一 (15。50) (17 日 。 29) 。 OsPATNT (200。6) 。6。 Os PATNT (20 
0.3O) 。 6。O 

2B2O CIRCLE (235。 64) 。 さ 1 日 。 。 さ : ビ TIRELE (235。 67) 。 さ 1 、0。 . さ : FATNT ( さ 20。2) 10: じ IRCLE (23。 ら 
7) , さ 9』0。. さ :FAINT(241 76) 。 さ 。 0 PAINT (226。74) 。 呈 。 0。2: PATNT (235。 6 王 ) 。 0。 呈 CHNNECT (247。6 
O) (225。70) 。 4: ENNECT (216。 67) (216。6 さ ) 一 (25。67 ) (2 。 63) 。 ら 6 

2B3O PAINT ( さ 20, 94) ,5, OFATNT ( さ 20。110) 。2。 0 BUSUB2260:FATNT(110。116) 。 OsPATNT (53O。 1 
16) 。 OkFAINT(100。9) 。0:FATNT (400。9) Os PAINT (200。 日 ) 。0: PATNT (200。32) 。 OFAINT (320。 1 
05 店 

2B40 LINE(B4』94) (203。 105) 。PSET。6,BF:LTNE (210。94) 一 (ささ 1 。10) 。PSET。 6。BF LINE ( さ 40。9 
4) 一 (435。 105) 。PSET, 6。BF: LINE (444。94) 一 (555。 10) 。 PSET 。6、BF 

2B5O LINE(B7。9 ロ ) (200。 104) 。PSET。O。BF : LTNE (21 昌 。 95) (32 日 。 104) 。PSET 。O。BFi LTNE ( さ 4 さ 。9 
) (4 さ 2, 104) 。PSET 0。BF:LINE (447。95) (552。 104) 。PSET。O。 BF 

2B60 SYMBOL (24。B0) 。"B"。2。1。7: SYMBOL (600。0) 。"B"。2。1 7 LCATE2 さ 。 1 iPRINT "BTAR DATE 
"iL ロ CATE24。4:PRINT"YEARS LEFT":LUCATE1 1 , 12:PRINT "ENERBY:":LUCATE27。 12:FRTNT "PHOT 
UN TOR. :":LUCATE4 さ 。 12:PRTNT "ELINBUNS:": LHCATE56。 12: FRTNT"TNDTCATOR" 

2B70 RETURN 

2BBO _CLS:FUR エ =1 TO 300: X=RNDX63 日 : Y=RND*19 日 : ヒヒ =TNT (RND* フ +1 ) : PSET (X。Y。CL ) : PBET (X+ 
1。Y.CL) : NEXT 

289O CIRCLE ( さ 20。90) 。 96。 1 。 . 21 。 。 42。 . さ 5: CIRCLE ( さ 20。 93) 。 日 。 1 。 . 19。 、 42。 . さら : CIRCLE ( さ 20。 
98) 。 12。1,.21: じ IRCELE ( さ 20。96) 』 40。。 . 19: CDNNECT (220。 1 1 さ ) (240。 10 さ ) (237。 100) 一 (2B4。9 
9) (251 。111) 。1 

290O CHNNECT (27 日 , 114) 一 (274。114) 一 (264。111) 一 (16。11) 。 1 :CHNNECT (15。 1 1 ロ ) (13O。116) 
ー(124。12O) 一 (139。 122) 一 (145。 124) 一 (146。125) 一 (264。125 コ ) (274』122) 一 (27。 122) , 1 : CUNNECT 
(27。 117) (2B7』117) 。 1 : CHNNECET (137。 9 日 ) (157。11B) 一 (169。1 1 日 )-(15O。98) 。 1 

2910 CONNECT (191 。90) (45』96) 一 (65』 101) 一 (191 96) 。 1 : CUNNECT (221 。99) 一 (154。102) 。 1:CON 
NECT(142。 102) 一 (1 10。10 さ ) 一 (1 さ O。 10 日 ) (146』107) 。 1 : CHNNEET (159。 107 ) 一 (1 日 1 , 107) 。 1 : CHNNE 
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! 
JALUL DAST SLMH 棚 3K 
MI DE つの 』.r. 』 rj」 づ 、 
BASIC プ ログ ラム ・ リ スト 
CT(190。106) 一 (221 。105) 。 1 : CUNNECT (176。114) 一 (182。 105) 一 (192。105) 一 (186。114) 。1 
2920 CIRCLE (27 日 。118) 。 4。1 1:CIRELE(274。1 1 日) 。4。1。1。 .25。 。 75: CTRELE (264。 11 昌 ) 。 フ 。1。1。。 
25。 . 75g CIRCLE (1B さ 。93) 。 さ 。 1 。 1 。 。 25。 。 75s CIRCLE (191 。9 る ) 。 さ 。 1 。 1 。 。 25。 。 75: CIRCLE(191 。93) 。 
6。 1 。 . 呈 。 . 7。 . 25: じ IRCLE (21 さ 。 102) 。 さ 。 1 。 1 。 .25。 . 75s IRCLE (221 、 102) 。 さ 。 1 。 1 。 。25。 . 7 ヨ 
2930 CIRCLE(221 。 102) 。 6。 1 。 .。 . 75。 . 25 
2940 PAINT (246。 2) 。 呈 。 1 :PQTNT (249。8B9) 。 7。 1 PATNT (292。96) 。7。 1 5: PRINT ( さ 20。 9 日 ) 。 旦 。 1 
sPAINT (251 。 106) 。7。 1:PQAINT (251 。 11 る ) 。 プ 。 1:PRTNT (264。 116) 。O。 1:PAINT (272。 1 1 日 ) 。 7。 1 s PQI 
NT(137。95) 。7。1:PATNT(136。 105) 。7。1 PAINT (169。104) 。7。1gFPAENT (149。104) 。7。1 
295O PAINT(1 ヨ 4。 109) 。 フ 。 1: PQINT(19 さ 。 9 る) 。2。 1 =: PATNT (22 さ 。 102) 。2。1 FATINT (266。 1 1) 。 さ 。 1 * 
PATNT(27。11 昌 ) 。 さ 。1:PaTNT (215。 102) 。6。1:PRTNT (16。9 さ ) 。 6。 1 s CHNNECT (24。 1 16) 一 (12。11 
9) 一 (245。 120) 。 2: CTRCLE (245。 1 1 日 ) 。 4。 2。 .。 . 75。 . 25: PATNT (2 さ 2。 1 1 日 ) 。 2。2 
2960 X1=20: Y1= 日 =: じ 1= ニ 4:FHR エ =OT ロ 6: し ニス: = し LEFT 生 ( 和 ま (T エ ) 。6) g GHSUBSO20』FX1=90XTsFY1=13 日 
: FX2=FX1+95: FY2=1 ヨ 7 DNI+1BUSUB25 さ 0O , 2540。 2550 。 2560.。 270。 250。 2590』 GUSUB2 さ 20』 し =0* 
BUSUB3O20s NEXTT : BHSUB2320 
2970 X1=112:Y1=1 ロ : じ 1= さ : し = ブ フェ 』 人 まま =" ェ ロリ ェ BHGUB さ O20:』 GHSUB2 さ 20』 BHSUB2 さ 20』 ビ し =Og BHSUB さ O20 
*s X1=20: Y1 = 日 = ビ 1 =5= じ し = つ =: 人 Q ま = "GTAR TREK" = GBDSUB さ O2O ェ = X1=105:Y1=4 日 s じ 1= ニ 2s じ し =6s も ="THE CO 
MPUTER BaME" 』 BHSUB さ O2O 
298O CUNNECT (46。 15) 一 (31 。 2 く ) 一 (0 日 。 さ 7 ) 一 (491 。5O) 一 (479。63) 一 (499。55) (514。1 ) (525。 
49) 一 (536。 4 ヨ ) (53。 4 日 ) (54 50) (552.55) (560。62) 一 ( 呈 60。 4 日 ) - (557, さ 2) 一 (552。 22) 一 (54 
。15) (546。 15) , 1:PQTNT (54。 20) ,5。 1 
2990 CUNNECT (42 。 24) 一 (36。 さく ) 一 (52 さ 。 さ 2 ) (30。 さ 6) 一 (24 。 41 ) -( さ 4。 3 日) -(54 さ 。 46) 一 (41 。 
36) - (554, さ 4 ) (542。 さ 4) 一 (542。24) 。 1 : PAINT (535。 さ 4 ) 。6。 1 
さ 3000 LUCATE2。24:PRINT "Copyright ( ビ ) 19 ロ 1 by M.Kasuya" ョ 
3010 RETURN 
3020 SYMBUL(X1。Y1) 。 人 も 。 1 。C1。CL: RETURN 
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18 人 4 














麻雀 の 疎 力 は , テン バイ が 近く な っ て きた と き の つ き ぎの 
ツー モ 有 牌 へ の 期待 ,。 テン パイ し て か ら 和 了 了 する まで の , あ 
の 何と も 言え な い ス リル で は な いで し ょ うか . 

この 醍醐 味 は , いま ま て 発表 され た BS, PC, L 3, 
MZ-80B な どの 4 人 麻雀 ゲー ム て 充分 満 害 で きる の で す が , 
ちょ っ と も の 足り な いよ う で す . や は り , 色とりどり の レ 
イア ウト が 麻雀 を 一 層 , 楽し くし て いま す . 

その 名 は FM-8, 640X200 ド ッ ト の グラ フィ ッ ク 機 能 , 
各 ド ッ ト に 色 指 定 可 能 . これ を フル に 使っ て パイ の 色 と デ 
ザイ ン を 実戦 の も の と まっ た くく 同じ に レイ アウ ト し た , FM 
-8 グ ラフ ィ ッ ク 麻 雀 を 完成 し た の で て 発表 し ます . 緑 一 色 も 
可能 で す . ぜひ 挑戦 し て みて くだ さい . 


ゲー ム の 特徴 


TK-80BS 4 人 麻雀 (1/O 54 年 12 月 ) の アル ゴリ ズム を 使 
っ た 麻雀 ゲー ム は , 何 度 か 本 誌 に 紹介 され て いま す が , バ 
ッ ク ・ ナ ン バ パー が 必要 の な いよ うに , ここ に , 特徴 と 遊び 
方 を 一 度 整 理 し ます . 

0 ト 上 家 , 対面 。 下 家 の 3 人 を マイ コン が 担当 し , この 3 
を 相手 に 勝負 を 進め ます . 4 人 が お 互い に , 『 振 り 込 

や 『 ッ ツモ ロン 」』 を し て , 実戦 と まっ た く 同 じ で す . 

も ちろ ん , マイ コン 内 部 の RAM に ある 3 人 は 独立 し て 

お り , イカ サマ な どす る こと は 絶対 に あり ませ ん . 

@ 麗 3 家 も 『 テ ン バ パイ 』」 す る と 適当 な と き に 『 リ ー チ 』 

を か け て きま す が ,『 ヤ ミ テ ン 」 も じ て い ます .-『 チ ー」, 

『 ポ ン 』 も で きま す が , 敵 3 家 は 面前 だ け で す . 
⑯ サイ フリ も マイ コン が 行ない , あな た の 風 も マイ コン 

が 指示 し て くれ ます . 
⑳ 和 了 する と 和 了 本 牌 が ディ スプ レイ され ,『 ド ラ 』 と 「『 ウ 

ラド ラ 』 も 出力 され ます . 基礎 点 (得点 ) と 何 番 か を 入 





カカ する と , マイ コン が 計算 し , 2 


⑥ 18※ し て 和 了 が な いと き は 流 局 に な り ま す . た だ 実戦 
と 違う 所 は カン が あり ませ ん . プロ グラ ム が 長く な る の 
で 割愛 ( ゆ だ 3 79 


攻 び 方 











⑥⑧@⑨ | @@@ 
⑯@@⑨ | @@⑤ 
⑯@@ | @@@ 





RUN する と , まず ピン ズ 有 の デモ が あり ます . つき に 画 
面 が 変わ り ,『 牌 を よく か き 混 ぜ る た め に , 5 一 10 秒 の 後に 
[| スペース ] キー を 押し て くだ さい 』 と 出る の で [スペ ー ス | 
キー を 押し て くだ さい . する と 相手 の 強 き を どの 程度 に し 
た ら よ いか を 聞い て きま す . 











プロ が お 相手 し ます …… 1 
- 般 アマ チュ ア 程 度 ……・ 2 
初心 者 が お 相手 ………… 3 


最高 クラ ス 
平均 クラ ス 
人 人 門 み ラス 








[2]. [3 ほ ] の いずれ か を 入力 し て くだ さい . 

洗 牌 (パイ の か き 混 ぜ ), 城壁 糧 (チョ ン ピ ー バ パイ , 有 牌 を 
井 ゲ タ 型 に 並べ る ), お よび 向 子 (シャ イツ ) が ふら れ て 配 
牌 する の に 約 30 秒 か か る の で 待っ て くだ さい . そし て 画面 

- 転 。 い よい よ ゲ ー ム 開始 で す . 局 数 , 門 風 (あな た の 風 ), 
の SA の 表示 の 後 , 美しい 緑 の 卓 子 ( ト オ ズ , テー ブル ) 

こ あ な た の 配 牌 が きち ん と 理 了 き され て ディ スプ レイ さ 

No も ちろ ん これ は 見 えま 
せん . 打 牌 (ター パイ , 捨て 牌 ) だ CU800E NH 

手 牌 (ショ ー パ バイ, 自分 の 牌 ) の 下 に aーn が 出る の で , 
捨て 牌 や チー, ポン の と き は この アル ファ ベッ ト を 入力 し 
し で ぐだ さい . 

他 3 家 は 自動 的 に ツー モ , ツモ ロン の チェ ッ ク , リー チ 
の 宣言 。 捨て 牌 , 他 家 へ の フリ コミ , 流れ の チェ ッ ク を 
時 で 行ない , 下 家 へ バト ン ・ タ ッ チ し ます . 

ト 家 , 対面 , 上 家 と スピ ー デ ィ に つぎ つぎ と パイ が 打 た 
れ , この 間 。 ツモ ロン や フリ コミ が あれ ば , 『 何 家 の フ リコ 
ミュ 『 何 家 の ロ ン 』 と 表示 され , 和 了 し た 家 の パ イ が ディ 
スプ レイ され ます . 

他 家 の 捨て 牌 で チー, ポン , また は ロン する と き は まず 
キー を 押す と 『 シ ョ チ ? 』 と 聞い て きま す . 

『 チ イ 』『 ポ ン 』 の と き は [Cc| また は [P| を 入 カ し , あな 
た の 食う 牌 を 聞い て くる の で , 1 枚 ず つ aーn の アル ファ ベ 
ッ ト を 入力 し ます . つぎ に 打 牌 する の は 実戦 と 同じ で , ハ 
グン キ に な る まで チイ 。 ボン で きま す . 

ロン の と き は [R| を 入力 すれ ば , 和 了 有 牌 と ドラ , ウラ ド 
ラ 牌 が 出力 され ます . 基礎 点 ( あ が り 点 十 副 底 20 符 , 得点 ) 
お よび 何 翻 か を 入力 すれ ば マイ コン が 計算 し ます . 

面前 で テン パイ し て リー チ の 場合 は 『 リ ー チ 』」 と 入力 し , 
マー る m マ I と もそ 六 20 じ 59 待ち 牌 は 2 枚 ま 

で 入力 で きま す . 『 マ チ ハ イ ー 1 ? 』『 マ チ ハ イ ー2 ? 』 と 半 
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1 中 ら 2 

選 妨 王 9 交 

1 索 一 9 索 

東南 西北 

妹 発 。 紅 中 , 白板 


幅 9 
上 NH9 
21= ニ 29 
31 ユ 一 34 
35 一 37 











リー チ を か けれ ば , マイ コン が すべ て ロン の チェ ッ ク を 


し て くれ ます . 


遊び 方 を まとめ て 図 1 に 示し ます . 文 を 読む と 面倒 の よ 
う で す が , や っ て みる と 意外 と 簡単 で す . 27,000 京 配点 の 


30,000 点 返し , 満員 は 親 12.000, 
が 終る と また 東 の 1 局 に な り ま す . 
1 


ディ スプ レイ の 出力 | 






アク ショ ン | 





列 さ の 入力 | サイ コウ クラ ス 1 
ヘイ キン クラ ス 2 
ご ニュウ モン クラ ス 、3 





Space Key ラ オシ テク ダサ イ | スペ ー ス ・ キ ー を 押す 






了 8.000 で す . 東 の 4 局 


遊び 方 


入 カ 





1 , 2 , また は 3 を 入力 











捨て 牌 | ステ ハイ ? 


a…n の いずれ か を 入力 










ショ チ ? 
クイ ハイ ー1 2 
クイ ハイ ー 2 ? 


ステ ハイ ? 





スペ ー ス ・ キ ー を 押す 
チー ニテ C, ポン ニ ロ を 入力 
チー, ボン の 第 1 牌 an を 入力 
同上 第 2 牌 an を 入力 

a ご n の いずれ か を 入力 








Space Key を 押す 
ロン ニーr を 押す 





ステ ハイ ? 





マチ ー1 ? 





の た ーー の 7 
点数 計算 半 放 交 





ナン ハン デス カ 





「 リ ー チ 」 を 入力 
a…n の いずれ か を 入力 
待ち 牌 パイ コー ド て 入力 





ビ ピンズ 1 一 9 
マン ズ 11 一 19 
ソー ズ 21 一 29 
東南 西北 31,32,33,34 
発 中 白 35, 36, 37 


同上 
基礎 符 の 入力 
客 数 の 入力 





グラ フィ ッ ク 麻 潮 の 改良 








点 と プロ グラ ム ・ リ スト を 掲載 





1/O, "81 年 12 月 号 に 発表 され た 『 グ ラフ ィ ッ ク 麻 
雀 」』 の 改良 版 が 送ら れ て きま し た . 以下 , 改良 され た 


し ます . 





編集 部 





レジ ジア I 及 2 | 


いて くる の で , つぎ の 1 一 37 の パイ ・ コ ー ド で 入力 し て くだ さい . 


写真 2 


M6 杖 共 








1/O に 発表 され た 峰岸 氏 の プロ グラ ム を キー ボー ド 入 
カカ し て か ら 日 を 置い て ぽ ぼ つ り ぼ ぽつり と プロ グラ ム の 中 味 


を いじ っ て きま し た . 


思い 切っ た 改造 も や っ て み ま し た . その 結果 , 


いろ いろ な 視点 か ら 見 直し て は 多少 
も と の プロ 


グラ ム と の 対応 が は っ きり と は つけ られ な く な っ て し まい 
まし た . そこ て 改造 に つい て は , 介 ど の よう な 方 針 で 改造 


し た か . @ 操 作 上 変わ っ た 所 は どこ か . 赦 表 示 上 変わ っ た 
所 は どこ か を 示し ます . 


尋 理 速度 


ゲー ム ・ プ ログ ラム は 処理 速度 を 速く し て 対戦 者 の 気 が 
それ る こと を 防 が な く て は な り ま せん . その 第 一 は プロ グ 
ラム の アル ゴリ ズム を 充分 に 解析 し て , 同一 処理 結果 を 得 
る の で あれ ば より 処理 時 間 の 短い プロ グラ ム に 改造 する こ 
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シル レン 多 勿 4 











と . 第 二 は 対戦 者 が 画面 か ら 情報 を 読み 取る な ど 対 戦 者 の キー 入力 の 心 要 性 を 少し で も 少な くし て , 入力 ミス の 救 

つ ご う で 画面 を 固定 し て いる 時 間 を 利用 し て 裏 で 適当 な 量 済 措置 を し ます . 

の 処理 を や っ て し まう こと . @⑯ RUN 直後 の [SPACE| キー 入力 は 省略 し , 乱数 初期 値 
第 一 の 方 法 に より 配 店 や 点数 計算 プロ グラ ム の 改造 を し 設定 は TIME を 使い まし た . 

ま :M 江 @ 捨て 牌 。 食い 牌 を 指定 する た め の aーn の 入力 ミス を 
第 二 の 方 法 に より , メモ リ ・ ク リア や E(L) 切 り プ ログ 防ぐ た め に , 大 女 字 ・ 小 娘 字 いずれ の 入力 も 可能 と し 
ラム を 二 つ の 画面 の 間 に は さん で 心理 的 に 気 に を なら な く し まし た . また,a 一 nm の うち チー・ ポ ン な ど で 和 欠落 し た 
まじ だ 。 部 分 . もしくは 全然 関係 な い キ ー を 入力 し た 場合 に は 
キー 入力 の うち , ワン ・ キ ー 入 力 で 済む も の は 極 カ リタ ビー プ 音 を 鳴ら し た 後に 再 入力 待ち に な る よう に し ま 
ー ン ・ キ ー な し で 行 な を る よう に し まし た . FM-8 が 入 し た . 

力 待ち で ある こと を 示す た め , 黄色 い カ ー ソ ル ・ ポ イン ト これ は 通常 の 捨て 牌 。 チー・ ポ ン の 食い 牌 の いずれ に 

が 点 減 する よう に し て あり ます . これ は イン プッ ト 入 力 な も 適用 で きる よう に し まし た . リー チ の 待ち 牌 コー ド 

の で , 早 目 の キー 入力 も ある 程度 は 受け 付け ます . た と え を の ミス は 救済 し て いま せん . 

ば RUN 直 後に [1], [2] また は [3] の 数 字 を キー 入力 する 

と , 表紙 デモ , ゲー ム の 説明 の 後 す ぐに 入力 強 さ 処理 を 済 

ませ て 溢 の 処理 に 進み ます . | ぞ の ) 作 | 
他 家 の パイ 出力 の あと を キー 入力 する と 直ちに 2 

ー4 秒 の 時 間 待 ち を 中 止 し て 次 の 家 に 処理 を 進め ます . 単純 変数 は すべ て RUN 直 後に 定義 し て , その 後に 配列 





変数 を 定義 し まし た . この よう に する と 実行 速度 が わずか 
で す が 速 く な り ま す . 
人 @ 変数 を 整理 し て 少な くし まし た . 実行 速度 が わずか に 














画面 表示 上 で う る さく 見 える 部 分 を な くし , 必要 な 部 分 本 ea 了 y 
を 電 0 や しま わ ⑯ マル チ ナ 文 を 用 いま し た . 実行 速度 が わずか に 速く な り 
⑱ テモ 表示 の マン ズ の 表示 が も た つい て いる の は サー ク 3 販 AR ee 
ル 命 令 を 多用 し て いる た め な の で , GET, PUT 命 令 ⑯ サブ ルー チン を 減ら し まし た . 実行 速度 が わずか に 速 
を 併用 する こと に より 処理 速度 を 速め まし た . ソー ズ く な り ま す 
の 表示 も 一 部 改造 し まし た @ FOR 一 NEXT 文 を 追加 し た り , 減ら し た り し まし た . 
@ 自家 の 牌 を ツモ ・ キ リ な どの た びに 全面 的 に 書き 直し 実行 速度 が わずか に 速く な り ま す -. 
て いる の は 時 間 の 無駄 が 多い の で , 必要 最少 限 の 書き ⑱ ブログ ラム の 多 機 能 化 に より メモ リ の 残 量 が 少な く な 
直し に と ど め ます . に 1 ゴ シダ を まさ も に 
@ リー チ の 際 に は 捨て 牌 を 赤 枠 で 半 ん で は っ きり させ ま トー スッ ドー て ス 9 導 MG084529 ブロ 
す . 自家 リー チ の 際 に は 待ち 牌 コー ド を 調べ る た め に , ッ ゼ ー デ ィ ス クー ペー ズ で 者 SS ば オモ リー 
画面 に 牌 コー ド 表 を 出し ます . オー バー フロ ー の お それ が 出 て きた の で , プロ グラ ム の 
END 表 示 が な か っ た の で 追加 し まし た . 刈り 込み を し まし た . その 方 法 は , の ⑦ 他 家 の ロ ン ・ チ 
@⑯ チー, ポン され た バイ を 完全 に 消す と 食い ハイ の 選択 ェ ッ ク で ロン 成立 の 判断 か ら ロ ン 処理 プロ グラ ム へ の 
に 不便 な の で , パイ の 色 を 目立た な い 色 に 変更 する に ジャ ンプ を RETURN メ メメ と いう 形 で 行ない , 多 所 か 
と ど め まし た . IF Q1 THEN メ メメ を 消 減 き せま し た . の ⑦` カ ミチ ャ リ , 
@ 親 に な っ た 家 の 名 を 紫色 に し まし た バシ チチ ャ "な ど を S$(4) の 配列 文字 変数 に 入れ る こと 
@⑯ チー, ボン し た 後 の 捨 て パイ が それ 以前 の 捨て パイ の で プル ジミ と ロン の の 窒 示 が 2) 取 きま 
上 に 重なる 場合 が あっ た の で , 完全 に 重 な ら な いよ う し た . 同様 に H 3 を 2 一 12 だ っ た の を 1 一 4 に する こ 
に し まし た (これ は 変色 パイ 保存 の た め ). と で ON GO TO 廊 な ど を 縮小 し まし た . ② サ ブル ー チ 
⑯ 自家 (人 人間 ) が ロン し た 場合 は せっ か く 並 ん で いる バイ oN 人 0 
を 消し て 再 出 力 す る の は も っ た いな い の で GET, PUT @ 変数 名 を いく つか 統廃合 し まし た . 
娘 で あがり パイ の 表示 へ 移動 する こと に し まし た . ⑯ プロ グラ ム の 内 容 が か な り 変 わっ た の で , ライ ン ナ ン 
@ 占 数 計算 は あがり パイ の 表示 画面 を 残し た まま で 行 な バー の 整理 を 行ない まし た (RENUN に よる ). 
う よ う に し まし た 。 @ 占 数 計算 の ロジ ッ ク ・ ア ル ゴ リ ズム は も っ と 複雑 な は 
ず で す が , よく 解ら な い の で , その まま に し て お きま 
し た . な お , 変数 N 3 は ゲー ム 続 行 中 に ゼロ 復帰 し な 
尊 作 性 いよ うに し て お いた の で 何 か 役 に 立つ か も 知れ ませ ん . 
グラ フィ ッ ク 麻 雀 プ ログ ラム ・ リ スト に いっ や で こそ で で ら ご と ニン ーッ | 








BUTD4100: "XX FM- 日 の "ラフ ィ ゅ 2 4 マー ミド ャ コン  ※%※*※ 7 年 月 17 日 ヤナ キ "./ マサ フミ  *※※※ 

**※ 6 年 10 月 12 日 ミネ キ " ジ シー ミ パ コン ジ " ※※ 水 フラ ミキ マイ コン フワ ラフ" キマ コッ ワ ラフ * FORESTGHT 
PUTSA(X+1 、Y+4) 一 (X+ さ 1 。Y+16) 。Z 1 。FSET: RETURN 
FUTSA(X+4 。Y+2) 一 (X+2 日 。、Y+1 日 ) 。 ZG。FPSET : RETURN 
PUTA(X。Y) 一 (X+ さ 1 。Y+1 昌 ) 。 Z さ 。FSET: RETURN 
FUTSA(X。Y+ さ ) 一 (X+ さ 1 。Y+17) 。Z4。FSET : RETURN 
PUT3A(X。Y) 一 (X+ さ 1 。Y+1) 。 Z 王 。PSET: RETURN 
FUTDA(X。Y) 一 (X+ さ 1 。Y+1 日 ) 。Z6。FSET: RETURN 
FUTA(X。Y) 一 (X メ + さ 1 。Y+1 昌 ) 。Z7。FSET: RETURN 


ら 


SQ ひひ 口 や ロビ 
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グラ フィ ッ ク 麻 


プロ グラ ム ・ リ スト 


B PUT32A(X。Y) 一 (X+ さ 1 。Y+1 日 ) 。 日 。PSET: RETURN 

9 PUT2A(X』Y) 一 (X+ さ 2。Y+1 日 ) 。 79。PSETs RETURN 

11 CHNNEET(X+6。Y+4) 一 (X+2 コ 。Y+4) 。 0: BHTO2O 

12 CDNNECT (X+9。Y+ さ ) 一 (X+22。Y+ さ ) 。 0 CDNNECT (X+6。Y+ フ ) 一 (X+25 コ 。Y+ ア ) 。 0 BHTU2O 

1 さ CONNECT (X+B。Y+2) 一 (X+2S。Y+2) 、 0: CEHNNECT (X+10。Y+5) -(X+20。Y+ コ ) 。 0: CHNNEET (X+6。Y+ 昌 ) 

ー(X+25。 Y+) 。 0: GBDTO2O 

14 LINE39(X+6』Y+2) 一 (X+2 ロ 。Y+ フ ) 。PSET 。 0。 昌 : CHNNECT (X+12。Y+ キ さ ) 一 (X+ キ 12』Y+ コ ) 一 (X+6』Y+6) 。0 ビ 

DNNECT (X+1 昌 。Y+ さ ) -(X+1 日 。Y+ キ 5) -(X+24。Y+) , 0: BHT ロ 2O 

15 CDNNEET (X+1 さ 。Y+2) 一 (X+6。Y+ キ 6) 。0g CDNNEET (X+10。Y+4) 一 (X+10。Y+ 晶 ) 。 0Q: CHNNECT (X+14。Y+2 

)-(X+2 さ 。Y+2) 。O: CUNNECT (X+19。Y+ さ ) 一 (X+16。Y+) 。O: CHNNECT (X+14。Y+) -(X+24。Y+5) 一 (X+22 

。Y+) 。 0g CHNNECT (X+12,Y+ 日 ) -(X+25。Y+ 日 ) 。 0: BHTU2O 

16 CDNNECT (X+15。Y+2) 一 (X+15。Y+ キ ミ ) 。 Os CHNNECT (X+ ア 。Y+4) 一 (X+24。Y+4) 。 O: CHNNECT (X+1 1 。Y+6 

) -(X+B。Y+B) 。 0Q: CUNNECT (X+20。Y+6) 一 (X+22。Y+ 日 ) 。O: GHT ロ 2O 

17 CONNECT (X+6。Y+4) 一 (X+25。Y+4) 。0: CDNNECT (X+1 さ 。Y+2) 一 (X+1 さ 。Y+ 日 ) -(X+22。Y+ 日 ) -(X+22。Y 

+7) 。0: BTU2O 

1 CNNECT (X+12』Y+ さ ) 一 (X+6。Y+ 日 ) , 0: CUNNECT(X+17。Y+2) 一 (X+19。Y+2) 一 (X+20。Y+) -(X+25。Y 

+B) , 0: GTD2O 

19 CHNNECT (X+1 コ 。Y+1) 一 (X+1 昌 。Y+4) 一 (X キ 1 さ 。Y+6) 一 (X+9。 Y+ 日 ) 。 0: CHNNECT (X+9。Y+ さ ) 一 (X+21 。Y+ 

さ ) (X+19。Y+7) 一 (X+20,Y+B) -(X+26。Y+ 日 ) -(X+26。Y+ フ ) 。O 

20 CONNECT(X+6。Y+11) 一 (X+2 コ 。Y+1 1 ) 。 2 CHNNECT (X メ +14。Y+11) 一 (X+11 。Y+16) 一 (X+ 日 。Y+17) 。 2: ビ 

NNECT (X+1 さ 。Y+14) 一 (X+22。Y+14) 一 (X+2O。Y+1 日 )-(X+15。Y+1 日 ) 。2: RETURN 

21 IF Z21(1) THEN PUTSA(X』。Y) 一 (X+ さ 2。Y+19) 。Z21 。PSET : RETURN ELBSE100 

22 X1=X+14:LINES(X1。Y+2) 一 (X1+4。Y+ 日 ) 。FSET。4。BF:LTNES(X1。Y+11) 一 (X1+4』Y+17) 。、PSET。 4 。 

BF: RETURN 

2 さ ビ L=4: X1=X+14:Y1= ニ Y+2: X つ =4: Y2= ニ 6: GHSUB さ OX1= ニ X+ ブ ェ Y1=Y+123 BUBUBSO: X1=X+21 : BHTHSO 

24 CL=4: X2=4: ェ Y2= ニ 6 X1= ニ X+ ブ フェ Y1=Y+2: BUSUB さ O: Y1=Y+12: BHSUB さ OX1=X+21 : BHSUB さ O』Y1=Y+2:G 

TOSQO 

25 CL=4: X2 ニ 4: Y2= ニ 6= X1= ニ X+ ら = Y1= ニ Y+2: BHSUB さ 0: Y1=Y+12: GSUB さ Oz X1=X+22: BHSUB さ 0: Y1=Y+2:G 

DSUB さ O: ビ L=2: X1=X+14:Y1=Y+ フ : GUTD さ O 

26 CL=4: X2=4: Y1=Y+2: Y2=16:FUR X1=X+6 TO X+22 STEP 日 :BDSUB さ O:NEXT:LINE9(X+6』Y+9) 

ー(X+26。』Y+11) 。PSET。7。BF : RETURN 

27 CL=4: X2=4:Y2ー10:Y1=Y+BzFOR X1=X+7 TO X+2 さ STEP 日 :BHSUB さ SO』 NEXT:LINES (X+7』Y+1 さ ) 

ー(X+27。Y+1 さ ) ,PSET 。 7 ェ ビ L= ニ 2 ュ X1=X+15: Y1=Y+2: Y2=4: BDTO さ O 

2B CL=4: X2= さ : Yo=5: X1= 計る 3 Y1=Y+12: GUSUB さ 0 Y1=Y+ さ : BHSUBS0: X1=X+26:G 

BDSUB さ O』 CUNNECT(X+B。Y+7) -(X+16。Y+4) 一 (X+2 さ 。 Y+ 日 ) 一 (X+24。Y+ フ ) ー(X+17。Y+4) 一 (X+9。 YrB) ,4 

: CONNECT (X+ 昌 。Y1 ) -(X+16。Y+16) 一 (X+24。Y1) 一 (X+24。Y1+1) 一 (X+17。Y+16)-(X+9。Y1 ) 。4:RETURN 

29 IF Z29(1) THEN PUT3A(X+4。Y+2) -(X+2B。Y+1B) 。 Z29。PSET: RETURN ELSE12O 

き 0 LINE3(X1。Y1) 一 (X1+X2。Y1+Y2) 。PSET 。CL 。 BF : RETURN 

さ 1 CHNNECT(X+6。Y+6) 一 (X+26。』Y+6) 。 0: CHNNECT (X+15。Y キ 2) 一 (X+1 昌 。Y+17) 一 (X+16。Y+17) 一 (X+16 

ュ Y+2) 。 OsLINE3(X+ 日 。Y+B) -(X+24。Y+12) 、FSET。 0。H: CDNNECT (X+9。Y+10) 一 (X+24』Y+10) 。 0g CUNN 

ECT (X+。Y+17) 一 (X+1 1 。Y+16) 一 (X+15。Y+11) 一 (X+21 。Y+16) 一 (X+26。Y+17) 。O: RETURN 

32 CUNNECT(X+6。Y+ コ ) -(X+25。Y+5) 。 0: CHNNECT (X+1 コ 。Y+ さ ) 一 (X+1 コ 。Y+ 日 ) 。 0: CHNNECT (X+6。Y+17 

) -(X+ ら 6,Y+ 日 ) -(X+25。Y+ 日 ) 一 (X+25,Y+17) 一 (X+22』Y+17) , Os CUNNECT (X+1 1 。 Y+ ヨ ) -(X+15。Y+1 ミ ) 一 ( 

X+21 。Y+) 0: CDNNECT (X+10。Y+12) 一 (X+22。Y+12) 。0: BHTD1SO 

ささ CUNNECT(X+6。Y+5) -(X+2。Y+) 。 0: LINED (X+6。 Y+9) 一 (X+2 コ 。Y+17) 。PSET。O』 Bs CUNNECT (X+1 

ミ ,Y+ 旨 ) -(X+1 さ 。Y+1 さ ) 一 (X+6。Y+14) 。0:CHNNECT (X+1 日 。Y+) (X+1 日 。Y+1 さ ) 一 (X+25。Y+14) 。0gRETU 

RN 

さ 4 CHNNECT (X+12。Y+4) 一 (X+12。Y+1 曲 ) 。0: CUNNECT(X+6。Y+10) 一 (X+10。Y+10) 。 03 CDNNECT(X+4。Y 

+17) 一 (X+12。Y+16) , 0: CHNNECT (X+19,Y+4) 一 (X+19。Y+17) 一 (X+27。Y+17 フ ) 一 (X+27。Y+1 ロ ) 。 0: CHNNE 

CT (X+19。Y+11) 一 (X+26。Y+9) 。 Oi RETURN 

35 CONNECT(X+11 。Y+4) -(X+1 昌 。Y+4) 一 (X+4。Y+12) 。4: CHNNECT (X+ 日 。Y+6) 一 (X+12。Y+ 日 ) 。 4: CHNNE 

ET (X+15。Y+6) 一 (X+25。Y+12) 一 (X+2B。Y+12) 。 4: CDNNECT (X+22。Y+6) -(X+19。Y+ 日 ) , 4: EDNNECT (X+ 

24。Y+B) -(X+21。Y+10) 。4: BHTD140 

6 LINES(X+6。Y+ ア ) 一 (X+255。Y+12) 。PSET 。2。Bz CUNNECT (X+ 呈 。 マキ 7 ) 一 (X+。Y+1 さ ) 2: CHNNECT (X+2 

6。Y+ フ ) 一 (X+26』Y キ 13) 。 2: CDNNECT (X+15。Y+ ミ ) 一 (X+15。Y+1B) 一 (X+16。Y+1 昌 ) 一 (X+16。Y+ ミ ) 2 RETU 

RN 

37 RETURN 

100 X1=X+16:Y1=Y+10: X2=X+1:FHR Y2=Y+6 TU Y+1 昌 BTEF 2:CHNNECT(X1。Y1)-(X2』Y2) 。4: CO 

NNECT(X1。Y1 ) 一 (X+ さ 1 。Y2) 。 4: NEXT Y2: X1=X+4:Y1=Y+4: X2=X+19:FDR Y2=Y+ さ TO Y+B: CONNECT 

(X1.Y1) 一 (X2。Y2) 。2sNEXT YS 

110 CUNNEET(X+12。Y+14) 一 (X+12。Y+19) 一 (X+ 日 。Y+19) 。0。AND: CNNECT (X+19。Y+14) 一 (X+19』Y+1 

9) 一 (X+17。Y+19) 。O:CTRCLE9 (X+16。Y+14) 5。4。。。。F:PSET(X+14。Y+ ロ 。7) :FSET (X+1 コ 。 Y+5。7) し 

INED (X+12。Y+1) 一 (X+20。Y+ さ ) 。、FSET 。 さ 。 BF : GET9A(X。Y) 一 (X+ さ 2 。Y+19) 。Z21。B:RETURN 

120 X2=4:Y1=Y+2: Yo= ニ 16:CL ニ 2: X1=X+1: BHSUB さ O: ビ L=4: X1=X+ キ 2 ミミ BHSUB さ O: X1=X メ キア: BBUB さ Os し 

TNE9 (X。Y+7) 一 (X+ さ 2 。Y+1 さ ) 。、PSET 。7。B GETDA(X+4。Y+2) 一 (X+2 日 。Y+1 日 ) 。 29。 BsRETURN 

1 さ O CONNECT (X+10。Y+1 ロ ) 一 (X+22』Y+15) 。 Os CDNNECT (X+15。Y+12) 一 (X+1。Y+17) 。 ORETURN 

140 CHNNEET (X+ 日 。Y+11) 一 (X+21 。Y+11) 。4: CNNECT (X+ ア 。Y+14) 一 (X+22。Y+14) 。4: CHNNECET (X+12 

。Y+11) 一 (X+12。Y+15) 一 (X+10。Y+17) -(X+4。Y+18) 。 4 EDNNECT (X+17』Y+11) 一 (X+17。Y+1B) 一 (X+24 

> Y+1 昌 )(X+24』Y+16) 。 4: RETURN 

150 "イノ CRT ジュ リリ ョ ワ 

160 し LINE2(X。Y) 一 (X+ さ 2。Y+20) 。 PSET。7。 BF 

17O ON E BT 1』2。 さ ,4。5。 ら 。7。 日 。9。0。11 。12。1 さ 。14。15。 16。17。 1 日 。19。0』21 。22。2 つ さ 。 24 。25。26 

ッ 27 。 2 日 。 29。 0。 さ 1 。 さ 2。 ささ , さ 4 。 さら 。 さら 。 さ 7 

18O ” 

190 X=INT(L/4) ※ さ 6+24= Y= ゴ 1 ※ さ 2ー ら 6: し = し +1 EE=E(L) : エ F P(J1)=O THEN 25O 

200 1F L<Q(J1) THEN 25O 

210 IF Q(J1)=O THEN 23O 

220 ロ (J1)=OgLINE3(Xー1 。Yー1 ) 一 (X+ さ さ 。Y+21 ) 。 PSET 。2。B:LHCATE さ 。』2+J1※4sPRTNT"※※ 氷 リーチ 
メル ネネ リョ 

23O BEEP 1』FUR 1=1 T ロ 1OOiNEXT: BEEP OB ロ TH 26O 
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240 
250 
260 
270 
2B0 
290 
3QO 
さ 10 
さき 20 
さ 30 
さ 40 
さ 50 
さ 60 
さ 70 
さ 80 
さ 90 
400 
410 
420 
430 
440 


ァ ロ ン ナカ " レ チェ リク 

IF L<RND(1 ) *65+ 昌 THEN 28QO 

IF (E=C (J1 。 15) ) +(E= ビ (1 。16) ) THEN490 

スズ テ チル n2 / 7 スウ ルイ 

BUSUB160』 IF P6=4 THEN さ 5O 

TIME ま =TIME ま 』 G ロ =TTME+N7 

F 和 =INKEY ま 』TF F 和 まま = "THEN さ 20 

IF TIME>GB THEN さ 5SO_ ELSE 3QOO 

LCATE 2.18sPRINT "ショ チリ " ョ BUHSUB2170 

IF (F ま ="C")+(F ま = ビリ)+(F ま = リ "ロリ")+(F ま ="P") THEN 1990 
LUCATE2。 18:PFRINT SPC(5) 』: IF (F ま =" リ FU)+(F ま ="R") THEN J さ =4: BHTUSOO 
IF L>67 THEN 63O 

IF J1=1 THEN 65O 

IF J1=2 THEN 690 

BOT ロ 730 

? ダナ f ノ ロフ チェ リウ ワ 

H=15 ロ %※N フ アー ロロ : IF L く RND(1 ) ※(7 さ ミーH) +H THEN RETURN: " 語り ヨ サ 
IF (E=C (J る 。 15) ) + (ビビ = ビ (J さ 。 16) ) THEN RETURNS5OO 
RETURN 

7 シイ ー ブ フー シュ リリ ョ ワウ 

X=T 1 % さ 4+6: X1= ニ 4 日 2ーN5* さ 人 4: LINES9(X。 154) 一 (X+ さ 2。 174) 。FRESET 。 0。BF : BETSA(X+ さ 4 。 154) 一 ( 


X1+ さ 4。174) 。Z。B: BDSUB2150』 PUTSA(X, 154) -(X1 。174) 。ZA。PSET: RETURN 


450 


580 


の ら 二 NE 導 7 

LINE32 (568, 154) 一 (600。174) 。 PSET 。 4。BF : RETURN 

アガ がり メ ョ ナガ) ジョ リ 

X=4 昌 2ーN5* さ 4 3 BETSA(40,154) 一 (X。174) 。 Z。G 

GUSUB4 さ BO』 CELSgFRINT SB ま (J1)』" ノリ モ ロフ "sgP1=J1: GOTO 540 

IF J さ =4 THEN X=4 ヨ 2ーN5% さ 4』 BETDA(40。154) 一 (X。174) 。Z。 昌 
GUSUB4 さ BO: CLS:FRINT 8 も (J1) 』" ./ フリ コミ リョ P さ = ゴ 1 

FRINT 8 も (J さ ) 』 "ノー ロリ" ョ ェ ゴ 1= ニ さ 』 P2= ニ J さ 

の GWS ペッ ルー 5 

BEEF 1sFUR 1=1 TH 400:NEXT: BEEF QiLINES(O。20) 一 (6 さ 9。76) 。FSET , 4。BF 
Y=2 昌 Hs IF J1=4 THEN PUTQA(40。Y) 一 (X。Y+20) 。 Zn。PSET s BHT0570 

N5=Q』 X=40』B=E:FHR 11=1 TO 13:E=C (1 。 1 1 ) : BHSUB 1 60』 X ニ X+ さ 4』 NEXT:E=BH 
IF P1-4 THEN X=56Q0 

BUSUB160g LHCATE 2。11:FRINT "リト "ラリ ハ 7 イリ 0 ュ ェ ビニ E (2) : X= ニ 1 日: Y=B さ : BHSUB160: LHCATE 15。11 


sFRINT "ウラ ト " ラリ " ョ ェ E=E (BB さ ) : X= さ さ Os BHSUB160: IF N5S THEN Y=48: BUSUB21 さ O 


590 
600 
610 
620 


LHCATE 9』14:FRINT "テー スウ ケイ サン = ニ O0』 サイ フリ =1 " 』 ョ BUSUB2170 
IF F$="O" THEN 1840 

IF F ま ="10 THEN 110Q0 

GT0 590 

CLSgFRINT "ナカ レ テ " ス "リョ:FHR 1 エ =O TH 999:NEXTsGUT ロ 11O00 
J1=1』GHTO 190』 " 計 / モ チャ 

J さ =2』 GUSUB40Q0 

りさ = さ 3: GUSUE4Q0Q0 

J さ =4: GHSUB410 

1=2: GHTOU 190: | 計 ト イメ ン 

ゴ さ = さ 』 BUSUB400 

J さ =4 s GHSUE410 

J さ =1 : GHSUB400 

J1= さ s BHT 190: "= カミ チャ 

J さ =4 : BHSUB410 

J さ =1 : GHSUE4QQO 

りさ =2』 GHSUB400 

L=L+1 1=4:E ビ =E (L ) : X=56 日 : Y=154: GHSUB160』 GET (6 日 。 154) (600。174) 。ZB。Bg "リモ N イ ニノ 


テ ^ ィ イス フ ? レー 


770 


50 


IF PF6-4 THEN B2O 

ES ue 回 E 用 還 が 

IF (E=C(4。 1 昌 ) )+(E= ビ (4。 16) ) THEN48Q 

りあ 0EXZD0922052 デイ スプルー 
GOSUE460』X=INT((Lー1 ) / 4 ) ※ さ 6+24:FUTDA(X。 122) 一 (X+ さ 2 。 142) 。ZB。FSET: GUTU1Q0QQ 

FOR 11=1 さ -N5 TO 1 STEF -1 

(4。11+1 ) = じ ビ (4。11 ) s ITF E>= ビ (4。11) THEN C(4。 エ 1+1)=EsT1=11+1:GUTOU BBQO 
NEXTs エ 1=1:C(4。1 ) =E 

BUSUE460: X ニ 1 1 ※ さ 4+6』 X1= ニ 4 日 コーN5* さ 4: GETDR(X。154) 一 (X1。174) , Zn. BHSUB2150sFUTSA(X 


。 154) 一 (X+ さ 2。 174) 。ZB。PSET: PUTSA(X+34。 154) 一 (X1+ さ 4。174) 。 Zna。FSET: GUTHB7O 


B60 


930 


BEEF 1』FUR エ =1 TO 4Q00:NEXT:BEEF Q 

LUCATE 2。1 ヨ : INFUT "ステ リハ 7 イリ ュ F ま = TF (F 和 も = リ "FU)+(F ま ="R") THEN E= ビ (4。14-N5) : BUTU480 
IF F ま = リ "リー チリ! THEN F6=4: GUTOB7Q0 

FOR 11=1 TO 2B: IF F ま =R ま (11) THEN 910 

NEXT: BHTHB6Q 

IF Ti1>14 THEN T1=I1-14 

IF 11:14ーN5 THEN B6O 

LOCATES。18sFRINT SFC(10) : ヒ =ー ビ (4 。 1 1 ) : X ニ エ 1※ さ 4+6』 GETSD(X。 154 ) 一 (X+ さ で 。 174) 。ZB。 ロ iL1 


NES(X』154) 一 (X+ さ 2。174) 。 PRESET』 O。EBF : B=ITNT((Lー1 ) /4) ※ さ 6+24: FUTD(B。122) 一 (B+ さ 2。 142) 。Z 
B,FSETiFUR =I1 TO 13:C(4。J) = じ (4。+1 ) sgNEXT ミ "ステ リタ ロイ ラー リ メ ル 


940 
950 
960 
970 


BUSUB440 

IF Pe6-4 THEN 1O1Q 

リー チ ノ マチ INPUT ト リー チ セン 7 トン 

LINE3 (20O。 144) (6 さ 4 。151 ) 。FRESET , Q 〇 。BF : SYMBUL (202。 145) 。" ヒ "フス 1ー9。 マン ス " 11 一 19 
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シル ルル ア 多 ルン) 


プロ グラ ム ・ リ スト 
ソー ヌス "21-29。 トン ー さ 1- さ 4 リリー さ 5ー ミ さ 7" 。 1 。1。4 
9BO LUCATE 2。1 日 : INFUT "マチ ー1 "(4。1 昌 ) =LHCATE 2。1 日 : INFUT "マキ テー2" ュ (4。16) :LTNED (17,144 
) -(6 さ 4 。 151 ) 。、PSET 。 4。BF :LUCATE さ 。1 日 :FRINT"X※XX※ リーチ ポポ ポポ ※ り 5 
990 LINE9(Bー1 。121) (B+ ささ 。 14 さ ) 。PSET 。 ら 。 
1000 BEEP 1:FUR =1 TU 100:NEXT:BEEF O 
1010 H=15XN フ ー5: IF L く RND(1 ) ※(7 さ ミー-H) +H THEN105O: "= リ ヨ サ 
1020 J さ =1』 BUSUB410 
10 さ O J さ =2: GBDSUE41Q 
1040 J さ = さ = GODSUB410 
105O IF L>67 THEN6 さ O 
1060 J1=1: GUTO19O 
1070 H=INT (RND(1 ) *※ さ 7) +1 : IF D(H) >=F THEN107O 
108O D(H) =D(H) +5ーF: RETURN 
1090 * メモ リー ウリ ャ ー 
1100 PP1=0:P2=OQO:P さ =O:P6=O: N5=O 
1110 FR 1=1 T ロ 4:FUR J=15 TO 16:C(1T。J)=0z NEXT: NEXT:FHR 1=1 TO さ 7:D(I)=QzNEXT 
1120 D(O)=4:D(10) =4:D(20) =4: D( さ O) =4:D( さ B) =4 
113O CLS:LUCATE1 1 。6:FRTNT "イマ "イラ ナラ ベト テー イマ スリ " ョ LHCATE12。 昌 FRINT "NT ラフ オマ チー 9 の" サイ リ 








4 

1140 「 水 ポポ JA イ タイ ポ 水 ボボ 

1150 FOR J1=1 TU さ :L=INT(RND(1) %6) : IF 4>L THEN 1180 

1160 =4』P=4』BHSUB 1070:C(T1。1 さ ) =H: C (1 。15) =H: ITF L=5 THEN148Q 

1170 GOTO 1190 

11BO 人 Q= さ 』F= さ g GHSUB 1070gC(J1。10) =HiC(J1。11) =H 

1190 B=INT(RND( 1 ) X(+1 ) ) : IF B=O THEN 1260 

1200 FOR 1=1 TO B 

121O H=INT(RND(1 ) ※ さ ) ※10+INT(RND( 1 ) * フ )+1 :G=H 

1220 IF D(G)=4. THEN121O0 

12 さ 0O ロコ = ロ + 1 : IF <=H+2 THEN1220 

1240 FUR =H TU H+2』D(B) =D(B)+1:NEXT: ロ =T※X さ : ビ (J1。 ロ ー2) =H: (1 。 ロ 1 ) = ニ H+1 : じ (J1 は ) ニ H ロ + 
sNEXT 1 

125O IF =B THEN 1270O 

1260 P=2sFUR T=B+1 TU ABUSUB 1070』B= ニ TX さ : ビ (J1。 は ー2) =H: ビ (1 ロー1 ) =H: C (1 6) =Hg NEXT 
127O_ UN L+1 GOTO 1280, 1 さ 40。』1410,145O。 1490 

128O HH=INT(RND(1 ) *※ さ ) ※10+TNT(RND( 1 ) 6+2) : IF D(H)=4 THEN 128O 

1290 IF D(H+1)=4 THEN 128O 

13O0 C(J1 。16) =H+2 

13 さ 10 C(J1 。15) =Hー1 

1 さ 20 D(H) =D(H)+1』D(H+1 ) =D(H+1)+1:C(J1。12) =HiC(J1。1 さ ) =H+1』NEXT J1iBHTO1S1O 
133O 『" 

1 さ 40 IF .5>RND(1) THEN G=s GHT ロ 1 さ 360 

13 さ 5O G ロ =1 

1360 =INT(RND( 1 ) *※ さ ) 10+ は : IF D(H)=4 THEN 1 さ 340 

1370 IF D(H+1)=4 THEN 1 さ 40 

13BO IF G=B THEN 1310 

13 さ 90 C(J1。15) =H+2』 GUTOD 1320 

1400 『" 

1410 H=INT(RND(1 ) * さ ) ※10+TNT (RND(1) * ア )+1』 IF D(H)=4 THEN 1410 

1420 IF D(H+2)=4 THEN 1410 

14 さ O_D(H) =D(H)+1』D(H+2) =D(H+2)+1:C(J1。12) =H:C(J1 。1 さ ) = ニ H+2』 (1 15) =H+1 :NEXT J1sG ロ 
TO151O 

1440 ? 

145O~F= さ : BHSUE 1070』C(J1。12) =HiC (1 。1 さ ) =HiC(J1 。15) =H: (1 。16) = ビ (1。 10) : NEXT J1 
1460 GUTU 1510 

1470 ”" 

1480 FP=3:FOHR は =1 TO 11 STEP 2:GHSUB 1070:C(J1 は) =HgC(J1。G+1) =Hz NEXT 

1490_ NEXT J1 

1500 『" 

13510 LUCATE 12。11sPRINT "コレ カラ サイ 9 フリ マス " ョ 

1520 FOR 1=1 TO 1 ミ 

15 さ O H=INT(RND (1 ) %※ さ 7)+1』 TF D(H)=4 THEN 15 さ QO 

1540 C(4。1)=HiD(H) =D(H)+1:NEXT 

15SO *D(i) ヲ E(L) ニ イレ ルル 

1560 L=QiFHR 1=1 TH さ 7』 ロ =4-D(I)sIF ロ THEN FUR H=1 TO GiL=L+1sE(L)=IsNEXT 
1570_ NEXT エ 

15BO "サイ コロ フリ 

159O_CLiH=INT(RND(1 ) %6)+1: LHCATE 12。6sFRINT" サ イー NO。 1。。。。 "日 日 =INT(RND(1 ) ※6) +1 
sLUCATE 1249:sPRINT "サイ NO。2。。。。。 "Bs 

1600 日 ミ =( (H+ ロ ー2 ) MHD4)+1 3: TF 日 ミ =1 THEN =&H4B4Cs BHTUH1640 7 mY7 

1610 ITF H さ =2 THEN =&H4QSE』 BHTO 1640』 7 詳 ル ー 

1620 IF HH さ = さ THEN =&H466E: GUHTOU 1640: "= ナン 

16 さ 3O 仙 =&H4S6CI " ト フ 

1640 LUCATE 9』12sFRINT" ア ナタ ノ Tl リリ ニー」 テ "スリ sPRINTS ( さ 76,90) 。 の 

1650 7E(L) ヲ キル 

1660.FHR 1=1 TO 15O:SMAF E(RND (1 ) *※42+。 王 ) 。E(RND(1 ) 42+4S。 呈 ) : NEXT 

GO リー チ ヤセ ジ が” デイ 

1680 FOR 1=1 TO さ sF(1T)=INT(RND (1 ) *※2) : 唱 ( エ ) =RND( 1 ) *%6G+ 日 : NEXT 

1690 CLS:FUR 1=25 TU 177 STEF さ 2:LINES(17。T) 一 (63 日 。 エ + さ 0Q) , HR, 4。BF ENEXTsLTINES(17。18 
4) 一 (63 日 。 196) 。 DR。 4 。EF 

1700 し =O: N さ =N さ + 1 : HEN さ MOD 4 
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グラ フィ ッ ク 麻 潮 


プロ グラ ム ・ リ スト 





1710 IF H=1 THEN A=&HSO6C: BHTO175O 
1720 IF H=2 THEN =&zH467 さ : BT ロ 175O 

17 さ 0 IF H= さ THEN =SHSB さ 0: BHTO175O 

174Q =&HSB4D 

1750 PRINTS(O。O) ,&H456Ci 人 ai SH さら 49』 LTNES (240。0) 一 (400。17) 。HR。2。BF:FRTNTS (256。 1 ) 。&H 
2 さ 46』 H2 さ 4D 』 &H2 さ さ 日 5 SH2 さ 7B ェ SHSB4Di &HSF4D』 SH4B6 さ 』 SHSF7D』 PRINTS(BO。O) 。&H4C67』 ェ PRTN 
T3(100.0) 。&H497 フ 7 

1760 X=15O』 Y=0: ビニ さ 5ーH さ : BUBUB 160: 日 = ロミ ※ さ 2ー 日 LTNE2(O。B) 一 (1。B+ さ 1 ) 。HR。 さ 。EF 

1770 FRINTS(O。24) , &HS2 さ Cs FRITNTS SHS24B:FRINTS &H425O:FRINT3 &H4C4C:FRINT3 &HSE65 
: FRINT2 &H324B:FRTNTSD SHSC2E:FRTNTS &H さ 24 日 』 :LUCATE さ 1。0zFPRINT" ト "ライ" ュ gE=E (BS) : X 
=60 コ : GDBSUB160: LUCATE さ 4 。 22FRTNT "9 モイ リュ 

17B0 "リー イ 

1790 X=40』 Y=154:FHR エニ 1 TU 12:E=C(4。T) :FHR コ = エ +1 TO 1 さ :TF E>C(4。J) THEN SMAF E。C 


(4。J) 
18QO_NEXT:C(4。1) =E GBDSUB160:』 X= ニ X+ さ 4』 NEXT:E= じ (4。1 さ ) : BDSUB160 
1B10 "AN ラ ディ スフレ ルー ニ ゲス 


182O_ X=14:FOUR 1 エ =1 TO 14: X=X+ さ 4sLTNES(X。176) 一 (X+15。 1 日 さ ) 。FSET。 1 。 BF : BYMEHL(X。 176) 。R 

ま (1) 2。1kNEXTiJ1= ニ H さ s IF J1=4 THEN760 

18 さ O BOTO19Q 

1849 LUCATE 9』14:FRTINT" 水 氷 ※ テン スウ ケイ サフ し 2. る 

1850 LHCATE 1 さ 。15: INPUT "キソ / テン スウ リョ as Z さ =AsEHCATE 14。163 INPUT "ナン フリン テ ド スカ ーー "saBsTF 

B THEN FHR 1=1 TO Hz: Z さ =Z さ ※ 信 sgNEXT 

1860 Z さ =INT(Z さ /100+ 995) 100』 ITF Z3>SO00 THEN Z さ =2000 

1870 IF F1 THEN 1910 

18BO IF HS-FPSE THEN 1900 

1H90 Z う =Z さ 2:F(F2) =F (PF2) +Z さ ※ さ =F(F さ ) =F (F さ ) 一 Z ミ * さ 』 BHTH195QO 

1900 F(P2) =F(F2) +Z さ * オ 4 ェ F(F さ ) = ニ F (F さ ) 一 Z さ % 人 4 : GUTU195O 

1910 IF H ミ -F1 THEN 193O 

1920 Z さ =Z さ *% で sF (1) =F (J1 ) +Z さ *4: BHTU1940 

1930 F(J1 ) =F (J1 ) +Z ミ * ロ = F (HH さ ) =F (H ミ ) 一 Z さ 

1940 FHR 1=1 TO 4sF(T)=F(I)-Z さ sNEXT 

1950_ LUCATE 10。1HsFRTNT "ポポ 氷 テン スウ ヒョウ ポ ※※ り sgLHCRTE 10。19:FRINT "29" イマ ./ アカ " リ テ ン 
リョ Z さ 』:FUR 1 エ =1 TO 4:LUCATE12。 エ +19sFRINT B ま (1) 』SPC(6) 』F(1) jsNEXT 

1960 LHCATE 日 。24:PRINT "マウ 2 サイ ラ フッ リ テ の 9” サイ 。 Yes=Y'" ss BUSUB2170:s IF (F ま = リッ y リ )+(F 和 ま ="YP 

) THEN 110Q0 

1970 CLSiLTNES(100、70) 一 (539。 119) 。HR。 1 。BF siPRINTD (2SO0。 76) 。 9522 BSOB』 9568』 97295』 9504 

』 1565 日 』 9 さ 221 9292』B4 ヨ さ :FRINTS(170。96) 。 19 ロ 6 さ 』 19520』9265』 9 さ 10』9287』9294』B4 ヨ 80』 17211s 

9261』 19506』 9 さ 22 ョ 9 ささ 0』B4B0』 9 さ 12 ョ 9269 ょ 9 さ 0 日 9 さ 2 さ ョ 9 さ 05 ェ 7271 』 日 4B さ : END 

1980 "チイ ホリ フ アウ ショ フ 

1990 LINES(X』Y) 一 (X+ さ 2。 Y+2O) 。 XUR。。BF EmY7 イ 2 co1or ラ カエ 上 ル 

2000 H=NS+1:G( 昌 ) =E (L ) : =L MOD 4: し = し +1: IF 1=1 AND B THEN し = し + タ 2 

2010 1=4: ロ =1:GBHBUE 2030』 GHSUB 2Q さ Oi NG=N ロ + 1 : Y=154』 GUSUB 2110:GHTOB7Q 

2020 BEEF 1:FUR 1=1 TO 400sNEXTiEEEF O 

2O3QO_LUCATE 2。18iFRINT "2YAf 0 ューB ロ si LHCRTEB。 18: GUSUBS170 

2040 FR 11=1 TO 2B: TF F ま =R 和 まま (IT1) THEN 206O 

2QBO_NEXTI BHTHSOSO 

2060 IF 1i1>14 THEN TI1=T1-14 

207 ひ 9 IF 1T1>1 さ ーN5 THEN SO2O 

2QB0 LUCATES。1 昌 sgFRTINT SFC(6) 』 =H=H+ 1 : ロニ ロ +1 : ゴ 1=4:G(H) = じ (4。11 ) 

2090 FUR =1I1 TO 1 さ : ビ (4。J) = ビ (4。J+1 ) :i NEXT 

2100_N5=NS+ 1 s BUTH440 

2110 FUR IT=1 TU N5-1:FUR ゴ = エ +1 TU N5s ITF 8(1I) > は (J) THEN SMAFP G(1) 日 (J) 

2120 NEXT:NEXT: X=524: BUSUBS15O 

で 1 さ O ひ X= ニ 492ーNSX さ 4:FHR エ =1 TH NG:E=G は (1 ) 』 X=X+ さ 4 GHSUB160』 NEXT: RETURN 

2140 ? 

2150O LINES(X。154) 一 (526ーN5* さ 4 。174) 。FSET 。 4。BF : RETURN 

2160 "=TNKEY 中 y 呈 1 1 つい こい に ロビ 

2170 PRINT PUakX1= ニ FHS(O) : Y1=CSRL INs CHLUR6 

2180 LHCATE X1。Y1sFRINT" 画 "ss=FHR エ =1 TH さ 310sNEXTsLUCATE X1.Y1:FRINT" !』gF ま =ーINKEY ま 

sTF F ま く >0U THEN22OO 

2190 FUHR 1I=1 TU 52OsNEXT:F ま =ーINKEY ま = TF F ま ="" THEN21BO 

220Q0_ COLOR7: RETURN 

4001 X1=X+16』Y1= ニ Y+10sR1= ニ 1 王 : ビ し =Q GHSUB40 さ OR1=12: ビ し =4: BUHSUB40 さ OR1=6:C ビ L=2 ェ BHTO402 

O 

400 X1=X+16』Y1= ニ Y+ ロ iC し =0gR1=9』 GUSUB4Q さ Oi CL=4:R1=6s BUSUB40203 BETSA(X。Y+1) 一 (X+29。Y 

+9) 。 ZB。 Bs PUTDA(X。Y+11) 一 (X+29。Y+19) 。ZB。FSET: RETURN 

400 さ 3 X1=X+ 日 ま Y1=Y+4』 ビ し = テオ:R1= ニ 4 GHSUB4020: CL= ニ QR1=7』BHSUB4Q さ Os BETSA(X』。Y+2) ー(X+14。Y+ 

B) 』ZB.BsPUTSA(X+17。Y+14) 一 (X+ さ 1 。 Y+20) 。 7Z 日 。PSET : X1=X+16:Y1=Y+10: BOBUB4O さ OL ニュ R1= オ 4 

5 BHSUR4OSO GETDR(X+9。Y+ キ 日 ) 一 (X+2 さ 。Y+1 さ ) 。Z7。Bs RETURN 

4004 FUTD 介 (X+1 』。Y+ キ さ ) 一 (X+15。Y+9) 。 ZB。FSET: PUTS(X+16。Y+ さ ) 一 (X+ さ O』 Y+9) 。 ZB。FSET: GETSA( 

X+1 。Y+ キ さ ) 一 (X+ さ 0。 Y+ キ 9) 。 79。 BiFUTD(X+1 。Y+12) 一 (X+ さ 0。Y+1 日 ) 。 79。 FPSETs RETURN 

4008 PUT 人 R(X+1』。Y+ キ 22) ー(X+ さ 0』 Y+ 日 ) 。Z9。FSET: PUT (X+1 。Y+14) 一 (X+ さ O』 Y+20) 。 Z9。 PSET』 FUTSA 

(X+ ワ 9。Y+ 日 ) 一 (X+2 さ 。 Y+1 さ ) 。 Z フ 。 PSET 』 RETURN 

4006 FUTSR(X+1 。Y+2) 一 (X+ さ Q。 Y+ 日 ) 。 Z ウ 。 PSETs PUTSA(X+2。Y+10) 一 (X+16。Y+15) 。 77。 PSET』 FUTSA 

(X+』。Y+14) 一 (X+16。Y+19) 。Z7。PSETs BETSR(X+ さ 。 100) 一 (X+16。110) 。ZB。 日: PUTSA(X+17。100) 一 (X 

+ さ 0。110) 。ZB。FSETs RETURN 

4007 FUTSR(X』Y+1) 一 (X+14。Y+ フ ) 。ZB。FSET : FUTSA(X+17。Y+) 一 (X+ さ 1 。Y+1 1 ) 。 Z 日 。FSETs R1=4 s CL 

4: X1 ニ X+16: Y1= ニ Y+ ロ : BDSUB402O ェ R1 ニ フェ ビ L= テ Os GHSUB40 さ Os PUTSA(X+ さ 。 100) 一 (X+16。110) 。ZB。PSE 

TiFUTSD(X+17。100) 一 (X+ さ O。110) 。ZB。FSET: RETURN 

400B_FHRY1=Y+2 TU Y+16 STEP 4』PUTSA(X+1。Y1 ) 一 (X+ さ O。Y1+6) 。 Z9。FSET : NEXT: RETURN 
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グラ フィ ッ ク 了 麻雀 


プロ グラ ム ・ リス ト 


4009 X1=X+ ら = Y1=Y+4:R1= ニ 6: ビ L=0: BHSUB40 さ OR1= さ : ビ し =4: BHSUB4020』 Y1=Y+16:』 GBHSUB402O0sR1= 
6: CL=0: BHSUB40 さ O:Y1=Y+10: GBSUB40 さ OsR1= ニ 4: CL=2: GUSUB4020』 GETSA(X+1.90) 一 (X+12。110) 。 
ZB。BsPUTDA(X+1 1 。90) 一 (X+22。 110) ,ZB。 PSETs PUTSA(X+21 。90) 一 (X+ さ 2。 1 10) 。ZB。FSETs RETURN 

4020 CIRELES(X1。Y1) 。R1。CL:PATNT(X1。Y1) 。CL,CL RETURN 

4030 CIRCLES(X1。Y1) 。R1。CL:RETURN 

4100 DEFINT 人 Qー-E。 ロ ーZ: Q=O』 B ニ O:.CL=O ニーO : 上 ま =" "= ロニ O HO 日 さ =0』 エ = ニ Os T1=0: ゴ =0gH1=Osd さ =0g し 
=0 : N さ =O : N5=0 : N7=O: P=O:P1=O ェ P2= ニ 0 P さ =O ュ =P6= ニ OR1 ニ Os X=Os X1=0: X2=0』 Y=O0: Y1=O0: Y2=O0s Z さ =0* 
KEY 1。 り "sgKEY 2。 "リー チリ +CHR も (1 く ) 

| 4110 DIM C(4。16) 。D( さ BB) ,E(4) 。F(4) 。B(1 さ ) 。P(4) 。 避 (4) 』R ま (2 日 ) 。 生 (4) ,Z1 (77) 。Z2( 日 1) 。 Z21 


(127) , Z29 (1 ) 。 Z さ (114) 。Z4(90) , Z5(114) 。Z6(114) 。Z7(114) ,Z 昌 (114) 。Z9(119) 。ZR(1744) 。ZB 
(131 ) 


4120 CHLOR7。OEMTDTH 40。25:LINE3(1 1 日 。47) (524 。 162) DR。4。BF 

41 さ 0 LINES9(240。551 ) -(400。68) 。 XR , 6。BF :FRINT3 (256。 52) 9030』90 さ 7』9016』90 昌 さ 』 151 昌 1』16 
20 ロ 19299』 1625 さ 

4140 X=1 さ 4:Y=90:FUR 1 エ =1 TU 9:X=X+ さ 4:LINE3(X。90) 一 (X+ さ 2。110) 。 DR,7,BF 

4150 UN 1 BUSUB 4001 ,4002。400 さ 。 4004 。 4005。 4006。 4007。 400B, 4009 

4160 NEXT 1 

4170 X=16 日 : Y=125: GBDSUB4 さ 70:FHR X1=X+47 TU X+71 STEF 日 FUR Y1=Y+2 TO Y+4 STEP 2: し 
INE3(X1。Y1) 一 (X1+4。Y1) 。PSET。O。B:NEXT: NEXT 

41BO Y=135: BUSUB4 さ 70』 X1=X+60: Y1=Y+ さ :CIRCLES(X1。Y1) 。4。2:PATNT(X1。Y1) 。2,2: Y=145: B ロ 
SUB4 さ 70: X1=X+60:Y1=Y+ さ : CTRCLES(X1。Y1) 。4。2EPAINT(X1。Y1) ,2。2 

4190 FUR X1=X+5QO TU X+70 STEP 20:FHR Y1=Y+2 TU Y+4 STEF 2:CIRCLES(X1。Y1) 。 さ 。2。 。。。 
F:NEXT: NEXT:LINE3 (400。135) (4 さ 0。147) 。PSET ,7。BF:CTRCLE9(415。 141) ,7』2sPAINT(415。14 
1 ) 。2。2 

4200 BETDA(169。94) 一 (199。106) 。Z1.Bs GETDA(206。92) 一 (230,108) 。Z2.B 

4210 GET9Q(2 さ 6。90) (267。 10B) 。 Z さ 。 Bs BETSA(270。9 さ ) -( さ O1 。 107) 。 Z4。B 

4220 BET9DA( さ O4。90) 一 (ささ 5。 10 日 ) 。 75。B: ETD ( さ 3 日 。 90) -( さ 69, 108) 補 6,G 

| 42 さ 0 BETSA( さ 72。90) (40 さ 。 108) 。Z7,G: BETSA(406。90) 一 (4 さ 7, 10B) , ZB,G 

4240 BETSA(440。90) (472。10 日 ) 。 Z9。 は 

4250 RESTURE4 さ 90:FUR エ =1 TU 2B:RED R$(1):NEXT: (1 ) = リ ジ シモ チャ リュ 8 和 (2) = リト イメ フリ ョ 8 ( さ ) = リ " 
カミ テ ャ リュ 9 ま (4) = リア ナグ ! 

4260 FUR エ =1 TO 4:F(I)=27000: NEXT 

4270 RANDOMIZE(TIME MOD さ 2767) 

42BO CLS:LHCATE B。5:PRINT"X*※※ FM 4 マー ネン ※ 氷 氷 り 

429O LUCATE1 。7:PRINT" ア ナタ ヲ コレ カラ スリ リラ シイ ファ ロ ノ マー パャ ン ノ セカ イ へ コア ナイ シマ スリ ョ | 
4 さ OO LUCATEO。 1 1 :FRINT "Fersona1 Computer FM- 日 力 " アナ ノ カミ チャ 。 トイ メソ 。 シモ チ ャ ヲ ウリ モチ マズ" 








4 さ 10 LHCATEO 。 14: PRTNT "アナ ノ ヨウ キュ ウ スル FM 日 ノ リ ヨ サ ヲ ニュ ウリ ョ フワ シテ 2" サイ リョ 
4 さ 20 LUCATE4 』17:PRINT "サイ コウ 7 ラス 。 フ " ロ 力 " オア イ テ シマ ス 。。。。1 7 

4 ささ O LHCATE4 。 1 日 FRINT "パイ キン ワウ ラス 。。 イリ ウリ" ン アマ チュ ア テイ ト " 。 。 2 リョ 

4 さ 40 LUCaTE4 。 19 ょ FRTNT "ニュ ウ モ -/ の ラス ショ ジン シャ "オア イ テ 。 。 。 さり: BUSUB2170 
435O NZ7=QSC (F ま ) 一 4: IF (NZ> さ )+(NZ く 1) THEN42BO 

4360 BOTO112O 

4370 LINE9(X。Y) 一 (X+120。Y+6) 。、FPSET。7。BF : RETURN: ” =CRT ノ co1or ヲ カエ ル 
43 さ BO FOR エ =1 TH 7:LINE3(O。O) (6 さ 9。 199) 。 XR。 1 。BF : NEXT: RETURN 

4390 DATR a』b、C。d。。f。 ロ 。h。1。)。k。1 。m。n。 人 。B。 じ 。D。E。F。 BHT。J。K。 し,M,N 
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FM-8 で は 高速 ゲー ム は で き な い 
紀 : 記 が 





ここ に 紹介 する の は まさ し くそ の 「『 高 速 ゲー 
ム 』 で す 。 し で 『 商 速 ス ペー ス ・ イ ン ペ ー ダ ニャ ゲ 
ー ム 』. 


生 細 を 紹介 で き な い の が 


リス ト の 通り ( 
ー プ に SAVE し て お いて くだ さい . 


人 
の て 3 
































ER 軸 こう マ 
Add 。 +O +B +9 + 人 
5Qo0O_ 10 17 OoC 1 
5010 04 1 フ ) 
020 F6 02 
BE OO oo 
0 さ 3 97 09 
5050 6 JO 9 は 妥 
5060 BE BD Q4 1 さ 3 
070 97 E さ Aa7 4 
50BO ES 全 1 7 9 
09O 40 42 6 E1 
0O 9 2 
5OEO 9 
5OCO_ 04 
BODO 1 
0 に 121 


dd 

紀 100 
110 
120 
1 さ Q 
1 40 
5150 
5160 
品 17Q 
18QO 
19OQ 
51aO 
紀 1BO 
1CO 





+O 
5A 
49 
27 
BD 
06 
01 
4 
97 
30 1C 
2 っ 6 04 
BZ FC 
OB OF 
BE 3o 





さ 9 
OAa 
10 
10 
1 
全 ら 
5 人 a 
C6 
FH 
ヨ D 
FO 














と 言わ れ て きま 


で す が , 


実力 の 


ある 方 は 解析 し て 他 の ゲー ム て 挑戦 し て みて くだ さい . 














番地 で す . 砲台 の 移動 は |3] キ を キー で それ ぞ れ 左 , 右 に 
動き ます . 移動 の 停止 は [ 倒 の キー で す . ビー ム の 発射 は 
キー で , 再 ゲ ー ム は [SPACE| キー で す . ゲー ム の 
内 容 は あま り に も 有名 な の で , 特に 説明 は し ませ ん が , ス 
ピー ド も 色 も まあ まあ の で き で は な いか と 思い ます . 


























参考 文献 
1) I/O, 79 年 7 月 号 , 近 藤 - 他 パス ペー ス ・ イ ン ベ ー ダ 
2) IT/O, 81 年 10 月 号 ,FALCON・S “SPACE INVADERS” 


写真 2 





今 らら ぬら 人 らら 人 


料 CNNE OVER(Push Space ke ) 料 # 





スペ ー ス ・ イ ン ベ ー ダ ー ダン プ ・ リス ト 還 還 還 間 昌 間 間 間 間 昌 還 昌 間 昌 





























+B 
BD 
1 フ 7 
06 
9F 
BE 
BE 
EF 
A フ 7 
oo 
仙 ア 
A7 














1o DS 1F Oo1 ミ 4 
OE 6 01 4 EQ 1 
Q1 1 E1 25 OB B1 

OO _ 455 CF 呈 4 0 DD 26 9 ミ OE CF Q ス skC 





DE 


04 人 プア 





2D 9E 7 人 
EF FC : さ D 
oC 8D : BB 
03 CE 

FF 97 :70 
oC Bo : 65 


さ 3D 6 
1 EO 









っ フ Q ア F6 
BB 5o : 98 
7 8 :B4 | 
0o4 5a :E6 





6 4F 
BF FC 
50 9F 
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スペ ー ス ・ イ ン ベ ー ダ ー ダン プ ・ リ スト 
谷 6 QOS 27 Q4 6 FF 97 14 a6 4 7 0O さ 6F 4 :05 5 ヨ 40 FD C2 EE O1 ささ C9 Q2 0Q FF FE FE 6 9Q BZ FC BQ seE 
9F Ba 9E QR さ Q0 QO1 9F QR 17 Q2 7 6 日 1 BZ =:3 585O 7F FD Q5 7F FD QOS 6F 4 6F 99 OO 1 35 94 96 26 :Q ヌ 
BF FC FE 7F FC FaA 7F FD 05S 7FFD OS 39 96 sz7B 5 ヨ 6Q 10 26 01 77 96 1D 26 70 96 Q4 1 F ヨ 27 Q1 39 96 iQ1 
0 さ 16 0Q0 DB 96 04 4 さ F 1 20 27 QO1 39 9E : さ 2 5870O OF 1 QB 25 F9 17 F ヨ 72 O FD 25 F2 17F ヨ 6BR 4 :C9 
BB BO 27 5 ミ 4 EQO 1 EO 10 27 0oO 7a a6 BB :9 さ 588O Q1 日 1 O1 27 QaQ BE 0 3E CE さ Q SE 6 FF 20 07 ロ F :BZ 
22 27 6C 4 aQO 日 1 Q0 27 27 OF 16 6F 9F 20 szCC 5890 BE BO QO CE さ 0 00 6 C4 26 D4 a6 41 26 DO 6 42 s35 
8 BO 17 Q2 さ D a6 4 HB7 FC FC 6 84 17 02 :35 5 ヨ BAO_ 26 CC 6 4 さ 26 CB 6 44 26 C4 6 45 26 CO _QQ 1D 55 
FC FE 6 FF HZ FC FD 6 QO1 B7 FC ヨ Q 7F FD :F9 58BO _D7 1E 9F 1F DF 9F 17 FD 4H BF FC FE F7 FC FA 6 BC 
17 O2 1F 6 H7 FC Oo 9E 17 BF FE 7F saC BCO 05 BZ FC 0 96 21 BZ FB 7F FD 05 QS 21 ジジ 5 
ミタ 1 


55810 
5520 


95930 
5540 
555Q 
5560 
5870 
SS58BO 
5590 
S5AaO 
55BO 
55CO 
5S5DO 














19K1 
09 
C7 
01 
FC 
QQ 
D さ 
EQ 


575Q0 
5760 
577Q 
5780 
790 
57AQ 
7BO 
57CO 
7DO 
57EQ 
7FQO 


Sums 


add 

BOO 
581Q 
5B2Q 
5B30 


と 】 
35 
AF 
GO 







aO 


QO 














5B4O 20 45 20 52 20 2 20 50 275 273 68 20 5 70 ga1 63 si86 
BS5O 6 20 6B 65 79 20 29 2 2 2 00 35 10 BE 20 14 i9C 
5B6O 6F ヨ 0 BC 20 85 26 F9 OF D QF BE QF QD 6 37 97 giEB 
EZO _QF 9E 92 BC さ Q FO 26 14 さ 0O 9 00_ aO 9F 92 9F 90 siDE 
5BBO 9E 12 さ O 9 05 00 9F 12 9F 10 20 16 BC 3 ささ CO 27 gaa 
5B9O 1 さ さ O BB 50 9F 92 9F 90 9E 12 さ 0 ヨ 9 02 0 9F 12 s17 
5EBAO 9F 10 20 OE BE 日 7 0 9F 10 9F 12 BE 3 さ 0 FO 9F 90 gaF 
5EEO 9F 92 BE BC QO 9F QQ BE さ 7 BQO 9F Ba BE さ Q 0O 6F siEF 
5BCO_B0O BC 40 00 26 F9 17 Fa QA 16 F4 41 6 1 4 27 :EO 
5BDO_ 55 さ 4 0O2 BD 04 さ 5 02 20 F5 3S ヨ D QO 3 BE QQO OF siFB 
5EEO 27 15 E6 CO 27 11 4F 1F O2 1F 10 6 40 8BD 1A 30 si56 
5BFO 1F 27 EA BD QOS 20 E6 39 1F 2Q0 6 41 D QB 1F 20 iDC 
Sums 7F A2 EC 72 5 41 09 AS 49 19 EB D6 QB 96 aA1 99 sBF 
Add 

5COQ 

5C1O 

SC2O 

5C3Q 

5C4O 

5C5Q 

5C6O 

5C7O 

5CBO 

5C9O 

5CAO 

ョ CBQ 

CCO 

5CDO 

CEO 

5CFO 

Sum: 09 63 EB 9F FC B4 26 02 EB さ Z 05 A2 5O さ QO DS 5 i3C 
dd  +O 1 +2 + さ 4 + +6 +7 + 日 9 +a +H + ビ +D +E +F Bum 
5DOO 2C 9 さ SE 日 1 90 CE CO QQO 7F D ミ Q 7F DS 0 7F DS :98 
5D10 ヨ O 7F DS BQ B6 D4 QQ BE6 D さ BQ 27 FB 1 Q1 27 QD iC4 





19 人 4 








6000 
601O 
6020 
6030 
6040 
605O 
6060 
607Q 
60BQ0 
609O 
608O 
60BO 


スペ ー ス ・ イ インベーダー ダン プ ・ リ スト 





ロロ 
1 こと ロ いい ビ ロロ O ロ OO 




















ら さ 3Q 
6340 
6 さ 50 
6 さら 60 
6 さ 70 
63 ヨ 0 
6 さ 90 
6 さ AO 
63BO 
6 さ CO 
6 さ DO 
63EO 
6 さ FO 


Sums 


dd 

6400 
6410 
ら 6420 
643Q 
6440 
6450 
6460 
6470 
6480 
6490 
ら 4AO 
64EO 


dd 

6500 
6510 
6520 
653Q 
6540 
6550 
656Q 
6570 
658Q 
659O 
65AQ 


900 
OO 

























| Aaa Oh キワ ャ 4 よら て キキ 7 日 キタ) まま BI すけ Sum 
ら 6200 BZ D さ FC BE D さ FE さ Q 8B9 CO QQ さき BD QS SE :4D 
6210 BD 1E ヨ D 44 EE D さ FE さ Q 9 CO QO ささ BD 0 さ y/ 
6220 OH ヨ D QQ BD さ ミ 7 D ミ FC 26 D9 16 FE Q4 6 了 
623O0 9 CO OO 6F B9 40 QQO 7 BQ A6 CO 6F 89 CO 
6240 9 40 QQO a7 BQ a6 CO 6F 9 CO _ QQO 6F 9 40 
6250 ヨ 4 さ O BB 4E 5QA 26 D6 39 BE 5O QOO 3 さ Q 1F 26 FC 39 sa 
ら 6260 CE D さ 1 BE さ Q 30 AF C1 aF C1 AF C1 6F C4 FC DS s@6 
627O FC CE D3 1 BE 27 1O ヨ D 16 BE Q さ E ヨ BD 11 BE 00 is2 
628O 64 BD QOC BE QOQO QA BD 07 C ミ QO さ O E7 C4 20 10 BF sBH 
629O D さ 3 FA 6C C4 B さ D さ FQ 24 F9 6 CO F さ D さ 39 BE 』 フ 


mm ロ ジ や ロロ ひ ロ ロビ ロロ 
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* 高 級 言語 で 高速 ゲー ム を 作る 例 と し て , K コ ン パ イラ 
で パッ クマ ン を 作っ て み ま し た . フル ・ カ ラー, 高速 (本 
物 よ り は ちょ っ と 遅い ?) の パッ クマ ン を 楽し ん で くだ さ 
MS 。 





0 グ CO の K い で 


田 COMPAC S | 


9 
ゲー ム の スタ ー ト 番地 は $5000 で す . 


ら . プロ グラ ム の 
作り 方 














有名 な ゲー ム な の で 簡単 に 説明 し ます . パッ クマ ン が エ 
サ を パク パク と 食べ , 4 匹 ( 頭 ?) の モン スタ ー が それ を 
じゃ ま を し ます . 4 匹 の モン スタ ー は それ ぞ れ 性 格 が 違っ 
て いて ,。 し つこ く 追 いか ける も の , 待ち ぶせ する も の , 
まぐ れ で 追い か けた り 待 ち ぶ せ す る も の , まっ た く 気 まぐ 
れ の も の と あり ます . それ ぞ れ アカ ベー, ピン キー, アオ 
スケ , グズ タ と 愛称 が つけ られ て いま す . 

モン スタ ー は 真中 の 部 屋 か ら 次 々 と 
を 食べ よう と し ます . パッ クマ ン は , テ 
[ll に より 左右 上 下 に 動き ,、 モン スタ ー を 避け な が ら ., 
エサ を 食べ ます . 


ad 


ユ 





パッ クマ ン が パパ ワー エサ を 食べ る 


[9 


- 定 の 時 間 だ け 


ンス ター を 食べ る こと が で きま す . モン スタ ー は 連続 し て 





食べ て いく と 得点 が 200, 400、 800,1000 と 増え ます . 
と きど き 中 央 の 通路 に フル ー ツ が 表示 され ます . これ を 
食べ る と ボー ナス 得点 が も ら え ます . エサ は 食べ る と 10 点 , 


パパ ワー エサ は 50 点 に な り ま す . 
パッ クマ ン は 3 人 いて モンスター に 食べ られ る と 死に 


ます . 得点 が 10、000 点 を 越え る と パッ クマ ン が 1 人 増え ま 





BASIC の コメ ント 文 (・) の 形式 で リス ト 1 を 全部 打 込 
み ま す . それ を ファ イル に ASCII セ モー プ し ます . 

ファ イル 版 K ド コンパ イラ で コン パイ ル し ます . コン パイ 
ルレ ・ エ ラー が な く な る よう デパ バッグ し て くだ さい . 

次 に , MON コマ ンド で モニ タ ・ モ ー ド に し て , M コ マ 
ンド で リス ト 2 の デー タ を 打ち 込み ます . 必ず チェ ッ ク ・ 
サム を 確認 し て お いて くだ さい . 

全部 で きた ら , SAVEM コ マン ド で , $4D00 か ら $6 
F5F ま で を , スタ ー ト 番地 $5000 に し て SAVE し ます . 
これ で , LOADM “ファ イル 名 ",,R [RETURN| で 実行 し 


= ラー 
ー- 和志 


o SN 1 上 朋 
3。 ブロ グラ フラ ム の 説 
プロ グラ ム は すべ て K コ ン パ イラ で 書か れ て いま す . K 
コン パイ ラ の 引数 付 ブ プル ー チ ング 関数 コー ル は な か な か か 


強力 な の で , 各 処 理 は 極力 サ プ ブルー チ ンジ 関数 化し て メモ 
リ を 節約 し て いま す . ラベ ル は それ ぞ れ 意味 を 持た せ て い 
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シル ン 人 ムイ 


る の で , 解読 の と き コ メン ト 代 わり に な り ま す . 表 1. デー タ ・ エ リア (先頭 5 6 A80) 


グラ フィ ッ ク お よび コン ソー ル 制 御 は サブ プシ ステ ム に っ コ 
マン ド を 送っ て 実行 きせ て いま す . キー 入力 ルー チン だ け 








は サ プ シ ステ ム 内 の アド レス を 直接 参照 し て いま す . これ いり 迷路 デー タ O 
内 NOS 。 6 300 バ 
は サ プ シ ステ ム の コマ ンド を 使う と , キー 入力 時 に 一 定 の 2 の 
待ち 時 間 が で き , ゲー ム と し て は 操作 性 が よく な いた めで 3 6 4 く 
この た だ ため,。 サ プシ ジ システ だ ・ テ デス ド ・ コ マン ド を 使っ て 396 め 
いま 本 0 
フ ド 
K3 参 考 文献 4 2C モン スタ ー 
1) ル リタ テハ : “PUCKMAN" , 1/O, "81 年 12 月 号 4 5 ピ いじ け モ ンス ター 
490 フル ー ツ 
4C2 エサ 
4C4 パワー エサ 
4C8 音 1 
4 CA 音 2 
4CD 一 4D1 音 3 














02GBGGK2SS お KERSSY35982ZERSENGSNSEasrsizasasssos aa 





100 ” CUNST DATA=*6QBOj』MURK=$4000』 CODE ま 1Q。 ま 40 (* INHIBTT INTERRUPTIN *) CDDE *1 
0,$CE。 まさ F。 ま FF』(* SET STACK PODINTER \) 

110 GA=DATA』P=GQ+ ア 6 日 』 M=P+5O*6』F=M+5OX2』 DT=F+5O』PMD=DT+2』 1=PMD+45 2=S1+2』B さ =B2+ 
き 

120 "BB=MWURK』R=GB+ フ 6 日 MY=R+ 日 NX=MY+B』 DD=MX+ 日 : U=DD+ 日 : V=U+B』 MC=V+ 日 KCP=MC+ 日 3 PP=K ビ +8 
: MKQ=PP+ 昌 3 MKEND=MKA+64 

1 さ O "PP(O) =P+50』FUR 1=1 TO さ 』PP(T)=PP( エ ー1 )+5O』NEXTM1=M+5OQ 

140 "KC(O) =23KC(1) = さ 』KC(2) =6』 KC ( さ ) = 

150 ”T=16』 は = 日 : SP= さ 』 D=1 :PM=2』FR=4 

160 "HSC=OiMB=162 

170 "CHNE ]』LINEFO。O。 さ さ *T-1 。 25XBー1 。 0。] 

1BO "FUR 1I=O TU さ 1:FUR J=O TO 23』Q=GAs エ +JK さ 2) sTF D THEN BUX1LI。J]sFTsNEXT』NEXT 
190 ”CL=7』LOCE さ さ 。 1]』 "SCORE"』LUCE さ さ 。6]』 2"HTBH" 』 FX= さ 5 PY=1 1 :DPEPP(1 ) 。O]』 LUCE[ さ さ 。16 
]』 ?"Bi start"』LUCL さ さ 。 17]j』 "Esend"』LUCE さ さ 。 20]』 "Fruit"sFRTE さ 5。 21 。O] 

200 ” TNIT』 SCP=O』PK= さ 』 FU=ー10j』 PF=O 

210 ”CL=7』 LUC[ さ さ 。 さ ]』 7 SC LUCL さ 6。 1 さ ]j』 PPFK 

220 ? INIT1』NC=21 日 =ー1 :FT=ー1 』FRT[ 1 日 12。 1 ]: DFR=ー1 』 KFR=ー1 

23O "FOR J=O TO 2 さ 』FUR 1T=O TO さ 1jK=T+JX32』 B=BArK) : BB:K) =Bi TF B=1 THEN DOTLI,J。O] 
ELSE IF B=2 THEN FOMEI。J。O]iFTgF1iiNEXTiNEXT 

240 ” MB=WS-2』 MS4=MB/4』FU=FU+2O 

250 INIT2sFHR 1T=O TU さ 』MC(T)=(T+1) *5i NEXT 

260 "PX=24』PY=123FDR エ =O TO さ j』MX(T)=14:MY(T)=12』U(T)=OiV(1) =Oi DD(I) =O』NEXTi CK=O 
FEAT=O』 SCC=O 

270 "LU ロ P』K=CK-CK/4X44: TF MC(K) >0 THEN MDQANCE ]:ELSE MMVEF]』FI 

2BO "IF PEAT THEN BUTO EATED:FT』PMOVEF[ ] 

290 'TF SCC く >0 THEN SBC=SC+SCC』 BCC=O』CL= ア し UEE さ さ 。 さ ] ェ 7 音 4。 SC。"O"』TF SC>1000 aND PF= 
O THEN PK=PK+1 PF=1 :CL= ら 6』LUCL さ 6, 1 さ ]j』 PPK』FUR エ =O TO 10』SNDLS さ ]』 NEXTiFTjFI 

さ 0O "IF NC<=O THEN DPEP。1]:FUR K=O TU さ 』BOXEMX(K) 。MY (K) ]: NEXT: BUTU INIT1:F1 

310 "IF FT>O THEN FT=FT-1』ELSE IF FT=O THEN FRTL1B。12。 1]:SET[18, 12。SP]:FT=ー1』F1i 
FI 

さ 320 ITF M>O THEN M=M-1』ELSE IF M=O THEN FUR K=O TU さ 』IF DD(K) >0 THEN DMEM1。1]』DD 
(K) =OjFT』NEXT:M=ー1 FT テ FI 

ささ O "1TF FEAT=O THEN CK=CK+1 』BDTH LOP』FI 

340 "EATED』 DPLP』Q]j』 MAIT[11』FUR T=O TO さ 』DPFPP(T) ,2]:』 BNDLS さ ]: NEXT』 DPLF。 1 1』 SNDLS さ ] 
3 P4=PF( さ ) +5O』DPEP4。0]』 MATTL2]1』BNDFS1]』DPLP4』1]sFHR K=O TO さ 』X=MX(K) 』Y=MY (K) 』 BOX[ 
X』Y]j DD (K) =0』MPLTEX。Y]』 NEXT 

さ 5O ” PK=P ド 1 』CL= フ LUC[ さ 6。 1 さ ]』?PK』TF PFK=O THEN IF SC>HBC』HSBC=SCiCL= フ 3LDCE[ さ さ 。 日 コマ 
4。HBC」"0"』FTsLUCEE12。16]』 2"BAME DVER" 

360 "START』 =KEYE]』TF =7B7 OR 人 =" 呈 7 THEN LHCL12。16]』 の " "BOTU TNIT』FIi1 
F =?E? UR ='e' THEN CUDE $1C,$40』END FI:BDTD START:ELSE GOTU INIT2iFI 

さ 70 "FMVE』 CKK=CK-CK/4※4』 TF CKK=O THEN DPEP,O]』RETURN:FT』 IF CKK=2 THEN BUTU PMDV 
E1』ELSE RETURNiFr 

さ BO ”PMVE1 : N=KEY[ コー まさ O 

390 "DX=O』DY=O』TF N=6 THEN PT=1』DX=1:ELSE TF N=B THEN PT=O』DY=-1』ELSE IF N=4 THE 
N P1=2』DX=ー1』ELSE IF N=2 THEN PI= さ 』DY=1:ELSE RETURN:FTjFIiFIiFI 

400 ?DPEP。1 コ 

410 "ITF DY=-1 THEN IF PY=O THEN PFY=24』FT:ELSE TF DY=1 THEN IF PY=23 THEN PY=OiFr 
か FTiFI 

420 "J=SCRFPX+DX 。FY+DY] 

43O "ITF J=O THEN DPLFF(PT) 。O]:RETURNsFr 

440 *PX=PX+DX』PY=PY+DY』DPEFF (PT ) 。0]』 SETLPX。PY。SP] 

450 "FOR K=O TO さ 』IF PX=MX(K) AND PY=MY(K) THEN BTU PENT1jF1iNEXT 

460 ?TF J=D THEN SCC=1』SNDES1]:』 BHTD PENDsFI 

470 *TF J=PM THEN SCC=5』 ST=20』 BND[S21』 =MB』 CCP=1 : FDR K=O TU さ 』ITF MC(K)=O THEN BOX 
FMX(K) MY(K) ]』 DD (K) =1 』 DMFM1 』O]』U(K) =ーU(K) 』V(K) =ーV(K) 』FTiNEXT: BHTD PENDzFr 

4BO "ITF J=FR THEN SNDLS さ ]』NDS[ 1 日 。 12。FU] : RETURN:FI 

490 RETURN 
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ーー デー 


EsaFsazSePRgsass5 本 スト 2 


OO "FENT1』 IF J=D ロ R J=PM THEN PEND[]』F1i1IF DD(K)=QO THEN PEAT=1』RETURNjFI 

510 "PENT』SNDLS21:』NDSLPX,PY』。S1]』MX( ド )=14』MY(K)=11』DD(K) =O』 MC(K)=15』S1=STK2:RETUR 
N 

520 "PEND 』 NE=N ビ ー1 』 TF NEC=70 _ ロ R NE=140 THEN FRTE1 昌 12』O]』SETE1B。12。FR]』FT=MS』FTiRE 


TURN 

5 さ O "MDANC』 CC=KC(K) 』TF MC(K) >1 THEN MC(K) =MC(K) 一 1』DMEM。1]』 MX(K) =14+RND(2) 』MY(K) = 
11+RND(2) 』 DMEM。OQ1i RETURN 

540 "ELSE MC(K) =Q』iDMEM。 1 コ 1 MX(K)=11sMY(K)=11』U(K) =0』V(K)=ー1』 DMEM。0]sRETURN』F エ 

SS5O "MMUVE』 ITF DD(K) >0 THEN IF CK-CK/16*16=K+12 THEN MAITF11』RETURNiF エ FI 

56O0 ' DM=DD(K) 』 DX=U(K) 』 DY=V(K) 

570 "MI=Mi IF DM>O THEN MI=M1』FI 

5BO "DMEMTI 。 1]』X=MX (K) 』 Y=MY(K) 』 MPLTEX。Y]』 IF K=KFR THEN IF DFR>O THEN DFR=QELSE エ 
F DFR=OQO THEN FRTEL1B。 12。0]』 DFR=ー1 』KFR=ー1 』FTsF1TiFI 

590 "HK=(SCREXー1 。Y]=OQ) + (SCRE X+1 。Y] コ =O0) +(SCRE X 。Yー1 ]=O) +(SCRE X 。Y+1 ]=0) 

600 " TF HK>1 THEN GT HOKHiF1iIF K=O THEN AKAE]』ELSE IF K=1 THEN PINE]iELSE 1F 

K=2 THEN BUZE]』ELSE ME]sF1giFTgFT_。 

610 "HOKOi X=MX (K) +DX 』Y=MY(K) +DY 

620 7 ITF DY=ー1 THEN IF Y=ー1 THEN Y=2 さ 』ELSE IF DY=1 THEN IF Y=24 THEN Y=OsFIiF1TsFI 
Fi 

630 7J=SCR[ X 。 Y] 

640 ” 1TF J=O _ THEN IF DY=Q THEN DX=O』DY=SBN(FY-MY (K) ) * (1 一 DMX2) s IF DY=O THEN DY=1jF 
Is IF SCREMX(K) 。MY(K) +TDY] コ =O THEN DY=-DYiF1IiELSE DY=O』 DX=SGN (PXーMX (KK) ) *(1 一 DMX2) 』TF 
DX=O THEN DX=1』FIi1IF SCREMX(K) +DX。MY(K) ]=O THEN DX=-DX』FTiFISUTH HOK ロ iFT 

65O IF J=FR THEN DFR=13 KFR=K』F エ 

660 "ITF X=PX AND Y=PY THEN IF DM>O THEN BUTD PENT』ELSE PEAT=1』F1s Fr 

670 ” CC=KC(K) 』TF DM THEN IF WM>MS4 THEN CC=1』ELSE TF M>O THEN CC= 7 ド さ PTEFT 

68O rMX(K) =X』MY(K) =Y:DMLMT 。O1』U(K) =DX3V(K) =DYRETURN 

690 "KA DX=SGN (PXーX ) : DY=O』 IF DX=O THEN DY=SBN(PY-Y) 』F1』 BHT MRET 

700 ? PIN』 DY=SGN (PYーY ) : DX=O』 IF DY=-ーV(K) THEN DY=V(K) 』 BHTH MRET』F1I』 IF DY=O THEN DX 
=SBN (FX 一 X) 3 FT』 MRET』 IF DM>O THEN DX=-DX』DY=-DYsFTIs RETURN 

710 "BUZs IF RND (②) THEN DX=RND(2) * つ ー1 s DY=O: ELSE DX=O DY=RND (2) *2ー1』F1s RETURN 

720 AMDiQ= =RND (3③) 』 IF Q=O THEN GOTO AKA FTg エ F ロ =1 THEN GOTU PINsFIs BDTQ BUZ 

730 > MAITiFOR =O TO XX1』FOR QG=O TO 1500』 NEXT』NEXTiRETURN 

740 7 SCR』 DMY=GB: ん 1+ ん 2* さ 2) 』RETURN 

750 * SET』 BB ん 1+ ん コ * さ 2 ) = ニル さ 』 RETURN 

760 * MPLT』iB=SCREX1 , 2]』 TF B=D THEN DTEX1.X2。O]』iELBE TF B=PM THEN PUMEX1.%2。0]jE 

LSE 1IF B=FR THEN FRTEX1。X2。0]sFTjFT』iF1IjiRETURN 

6 "FRT』 BHX[1 。 ん 2]』 XX ニル 1※ 本 +Ts YY=X2*B+G』 PUT[ XXー14。YYー6。XX+14。YY+6。F。50。 さ 。 さ ]』RET 
RN 

7B0 ? DP』 XX=PX※ 丁 +Ti YY=PY※B+GBsPUTEXXー14。YYー6。 XX+14。 YY+6。 1 。50。6。 2]』RETURN 

790 ” DMi XX=MX (K) ※T+Ti YY=MY(K) *B+Bs PUTE XXー14, YYー5。 XX+14。 YY+6。 ん 1 。50。CC。 ん 2]』 RETURN 

B00 "FUMi XX ニル 1 Xs YY= ニ 2※ ロ + は PUT[ XXー2。 YYー1 。 XX+2。 YY+2。PMD。 さ 。 6。 錠 さ ]』 RETURN 

B10 ” DOTi XX=X1※ 丁 +T』 YY=Z2KB+G ョ PUTE XXー1 。YY。XX+1 。YY+1 。DT。2。4。 ん さ ]』RETURN 

B20 * BNDiMK=X1』 ロ =O』MHILE MK:GQ) く >0』SN=MKQ) iFOUR Z1=1 TO sgFUR Z=O TU SN』iPUKE ま FDO 

ML Z=O0 TU SNiPUKE ま FDO さ 。 ま B0jNEXT: PUKE ま FDOS,。 $ ま BONEXT』 Q=Q+ 1 』 MEND 』 RETU 

B30 ?NDSiBHX[X1 。 2]』XZ= ル 1 ポー ZZ ニル 1 一 1 :Y ア = ニル 2*G+G』 BETEXZ。YZ。XZ+6 さ 。YZ+ フ 。 MKA。 64。5] 

840 "CL=7』LHCEZZ。 ん 2+1 ]』 幕 さ 。 多 さ "0" SCC=Z さ 』 FOR ロ =O TO 5』SNDLS2]』NEXT LUCLZZ, ん 2+1]』 

Pa "sFUTEXZ。YZ。XZ+6 さ 。YZ+ ブ 。 MKA。 64。5。0]sFHR ロ =ZZ TO ZZ7+ さ 』MPLTEO。%2]1』 NEXT』RETURN 

BSO "BOX1』 XX=X1%XTi YY=X2KGsLTNE[ XX。 YY。 XX+T イ +T-1 。 YY+G+Gー1 。O,O]』 RETURN 

B60 ? BHX』 XX ニル 1 水生 +2 ュ YY= ニ 2 は G+2sLTNEFXX。 YY。 XX+T+- さ 。 YY+B+Bー さ 。 O。O] iRETURN 

B70 ? (* BRAPHIC SUBRHUTINEGS *) 

BBO *FUTiQE=X6ー1 3 HLT[ ]』 QDDR= 和 ま FCB2』 CPUKE ADDR, ま 1 ビュ ん 1 間 。 錠 2 拉 。 さ 昔 。 4 柱 。 ブ 日 。 ん 6 DTD=% ロ 


・sFUR MK1=O TO QE』 ADDR: KT ) =DTDs MKT ) 』 NEXT』 SUB[ ]』 RETURN 


B9O ?GET』QE=X6-1 3 HLT[ ]』 ADDR=FCB2 ェ CPUKE ADDR。 ま 1B」 錠 1 昔 。 2 埋 。 さ 間 。 久信 。1。 5SUBE ]: CODE 
生日 6 。 名 1 日 ま 4 全 。 も 26。 ま FDsHLT[ ] 3 DTD=X5』 ADDR= 和 ま FCB4: FDR MKI=O TO GE:DTD:MKI)=ADDRi MKI) j 

NEXT』 CUDE $F6。$FCBO 共 CABO 革 アフ 。* ま F ビ BO 昔 3 BUBF ] : RETURN 

900 ?LTNE』HLT[ ]』 DDR= ま FCB2』 CPUKE ADDR。 ま も 15, 錠 6。 5 ん 1 導 。 久間 。 久間 。4 昔 5 BUB[ ]: RETURN 

910 ”LUC』HLT[F ]』 ADDR=**FCB2 CPUKE ADDR, さ , まあ 12。 1 。 2。 ま 11。 ビ し + ま 日 03 SUB[ ] 3 RETURN 

920 CHN』 HLT[ ]: ADDR=$FCB2』 CPUKE ADDR, 1 。 0。 40。 25, 0 25。O。 1 。 0 SUB[ ]』 RETURN 

930 KEY』HLTLE ]』 ADDR=$FCB2』 CPUKE ADDR。 まさ F。 7Y テ 7。 MA 2 ュ テッ ュー ロク 。7 エッ も りさ 。 介 D さ 

BF 本 あ ワ 0 。 ま B6 。 ま D401 六 。 生 B7 。 和 あ D さ 日 2 共生 B6 。 生 D40A 音 。 生 さ 9』 SUB[ ]』 HLT[ ]3 KY=PEEK($FCB2) 』 SUBL ] 3 D 

Y=KY』 RETURN 

940 ?HLT』CODE $B6,* ま FD。 も OS。 2B。 まま FB』PUKE $FDO5。 OiCOUDE *B6。 ま FD。 和 も 05, ま 20。 ま FB』RETURN 

950 SUB:PUKE *FDO5, Oi RETURN 

















! 二 こく 家 197 
dd  +Q +1 +2 + さ +4 +5 +6 + プ 7 +8 +19 + +B +C +D +E +F GSum 6BOO O1 OO OO QO Q1 QO QQO Q1 QO 0QQO QQO_QQ_O0 0S QO.gO6_ 
6ABO OO QO OO QO QO QO OO OO OO QO OO OO OO OO 0 0O =:0 ミ さ 6B1O QO OO OO QO OO O1 9 QQo 9r 9 OO _O1 OO OO O1 OO *OS 
6A0 _QQO_QQOmQO 00 QQO QO QQ QQO OO Q0QO _QO QQ QQ QO QO QO =sQO 6B2O OO O1 O1 O1 01 Q1 O1 0O1 O1 Q1 O1 O1 O1 :OF 
6AAO OO O1 O1 O2 0Q1 Q1 O1 O1 O1 OO OO QO OO 00 0 ミ OO =:OC 6B3O O1 O1 O1 O1 O1 O1 91 01 o1 03 oO1 Oo1 OO 00 01 00 szOD 
6ABO _QO_QQ QQ QQ QO Q1 O1 02 Q1 QQO QO Q1 QO1 QO1 0Q1 00Q :O9 6B4O OO O1 QO QO QO Qt QQO OO QQO QO 0O OO 00 0QO0 0S 0O soOS' 
6ACO QO O1 QO OO OO O1 OO Oo ot oo oo oo oo oo 0 Oo 06 6B5O OO OO QO QO QO O1 QO OO O1 OO OO 00 00 00 01 00 :03= 
6ADQO_QO_OQO_QOQ QQO QQO _O1 QQ QO O1 0Q1 0O1 O1 OO QO 01 QO =:Q6 6B6O OO O1 QO QO Q0Q0 O1 QQ QO QQ QQ0 QQ QQ QQ 00 03 QO gOS 
6AEO OO O1 OO QO 00 O1 OO 0O Oi OO OO OO OO OO 0O さ OO :06 ら 6B7O OO OO OO QO OO O1 OOQ OO O1 OO _ 00 0OO0 00 00 0O1 00 si0 さ 
6AFO _QQ _QQO QQO QQ 0Q Q1 QQ QQ QOQ QQ QO Q1 QO QO 0Q1 QO :0 さ 6BBO_ OO Q1 QQO _QQ QQO_Q1 Q1 Q1 O1 OO QQO 03 0Q3 03 03 QOS gi14 
デニ ニン ーー ニニ ニー ニー ニニ ーーm eg ここ ここ つこ て rme こ こ に ー 6B9O O さ 0O3 0Q3 0 さ Q さ O1 OO OO Q1 O1 O1 O1 00 00 0O1 00 15 
Sum: QO 0Q さ Q1 Q2 01 Q6 02 Q さ Q5 Q1 01 Q さ Q1 Q1 OF 00 =:2D 6BAO OO _O1 OO QO OO Q1 QO QO Q1 0Q 00 03 QOQ 00 QO _QO giO6 


6BBO OO OO 0 さ OO OO O1 OO QO O1 OO OO O1 OO 0O O1 CO :o7. 
6BCO QQ O1 Q1 Q1 QO1 Q1 QO OO0 Q1 Q③ 0Q さ 0 さ OO OO0 Q0_ 00 s 
+O +1 +2 + さ +4 +5 +6 +Z +BB 419 +A +B +C +D +E +F Sum 6BDO OO QO 0 さ OO OO O1 O1 Q1 Q1 OO OO O1 O1 O1 O1 OO = 
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6BEO QO OO QO OO QQ Q1 QO QQ OO QO O0 OS QO QQ0 03 03 
6BFO OO OO OS さ OO OO OO QO OO Q さ OO OO QO 00 OO 01 00 
1 あー るー ンー ーー デーーー ニ ーー ニー いく 9 あこ 

06 06 OF 04 04 OE Q6 06 12 05 05 1 0Z 


Add  +O +1 +2 + さ +4 +55 +6 + フ + 日 +9 +a +B +C +D +E +F Bum 
6COO OO 00 OO OO QO O1 OO OO QO OO Q0 0 さ OO OO 0 OS :OA 
6C1O GO QO GO OO Q③ GO Go QO OO Go Q1 oO 
6C20 OO_O1 O1 O1 01 O1 0O OO QO1 03 0 さ 0 さ OO 0O OO OO soOF 
6CSO OO OO 0 さ QO OO Q1 O1 O1 Qi1 OO OO Q1 Qi O1 O1 GO :OB 
6C40 OO O1 OO OO QO O1 0O Oo O1 OO QO OS OO 0O CO OO :O6 
6C5O QO QO OS OO QO O1 OO QO O1 OO OO O1 OO QO Qi1 OO sO7 
6C60 OO 0O1 OO OO OO O1 01 Q1 O1 OO OO OS 03 0 さ OS OS =14 
6C7O で さ 0 さ OS OS OS Q1 GO QO O1 Q1 Oi 1 QO OO O1 00 15 
6CBO OO 0O1 OO OO OO O1 oO oo OO OO oo oo oo OO 0 さ OO =:oO5 
6C9O で GO OO OO GO GO Q1 OO OO O1 OO OO OO OO OO O1 OO =:0 さ 
6CAQ OO _Q1 OO OO OO O1 OO Oo QO oo 0QO OO oO 00 03 OO :O5 
6CBO OO OO QO OO OO Q1 QO GO Oi QO OO CO OO OO Q1 OO zOS 
6CCO OO_O1 O1 O1 O1 O1 01 O1 O1 O1 O1 O1 O1 0O1 O1 O1 :OF 
6CDO Q1 01 Q1 O1 Q1 O1 Q1 Oi1 O1 O1 Qi Gi QO OO Q1 OO :oD 
6CEO OO O1 OO OO OO O1 0O 0O O1 OO Oo CO OO 00 03 OO s06 
6CFO OO 0Q QO OO QO Q1 OO OO Qo oo oo 0Q1 oo OO Q1 OO GS 


















Sum: Q4 OB OF O6 06 OF 04 Q4 OE Q6 06 12 Q5 OS 18 07 :96 


Add  +O +1 +2 + さ +4 +5 +6 +7 + 日 +9 +a +B +C +D +E+F Gum 
6DOO OO oO1 Oo QO OO O1 OO OO O1 oo Qo 0o Qo 00 0 Q0 so06 
6D10 OO OO OO OO OO O1 OO OO OO OO OO O1 OO OO 01 OO =:0S 
6D2O Oo oO1 Oo oo oo Q1 oo oo ot1 Qo oO oo oo oo 03 oO oe 
6D さ O co 1 O1 O1 oO1 OO OO O1 OO zo6 
6D40 OO 0O1 O1 0O2 O1 Q1 Q1 Q1 Oo1 oO Oo Co Oo O0 0 さ OO 0C 
6D5O OO OO OO OO OO O1 O1 02 O1 OO oO O1 O1 O1 O1 00 :09 
O_ OO QO QO_QO_ 0o Oo oo oo oo oo oo oo os oo :0S 
6D7O OO oo oo oo oo oo oo Co oo oo oo oo oo oo oo oo soo 
6DBO 0O SF EO OO 1F FF FO 07 FF FF FO FF FF FF E7 FF :Q5 
6D90 FF FF 7F FF FF FF FF FF FF FF FF FF FF 7F_FF FF_:FO 
6DAO 下さ FF FF FF B7 FF FF FO 0O7 FF FC OO 0 さ FE QOO さ F :aZ 
6DBO OO QO OO QO OO QO OO QO OO O4 OO OO 10 FB 0O 0S :OF 
6DCO EZ EO OO SF 7F Ci さ 

FB_FF F さ FF FF FF B7 FF FF FO O7 FF FC QO OS FE :5F 














Add 


6EOO _OO_7F FE OO_0O さ FF _FF OO_O7 FF_FF OO OZ FF FC OO :B5 


6E1O 
6E2O 
6E さ O 
6E4O 
6ESO 





FC_OO_0O さ FE OO さ F OO OO_QOO さ F_EO_OO 1F FF FO 0Z sz70 


OO 07 OO OO 40 3B Q4 1F CZ F1 FD FF FFFFF7F1 : さ C 
FC 7F Q4 41 Q4 40 1F C1 FC 0O ミ FF BFFB 0Q7FO 7F :OF 
GO Q4 10 40 OO 07 FO OO OOFF EOOOO1FCOOSF: 





OO さ F QOQO QOQ0 QQ さ F EQ QO 1F FF FO 07 FF FF QO FF sz70 
FF CO O7 FF EO QO 7F FB OO 0 さ FE OO OO 1F FE OO = さ 34 


DO 1E 59 3D 04 O1 DD EF 27 F4 60 06 OB a2 F5 BC =:34 


+O +1 +2 + さ +4 +55+6 +7 + 日 19 +A +BH +C +D +E +F Gum 


03 さ FE QO SF OO OO 0O さ F EQ OO 1F FF FO QQ 7F FF :EB 
FO_OO 7F FF EO_QOO さ F_FF_OO_QOO さ F FC OO OO さ F EQ :E6 
OO OF FF OO QOS FF FO O1 FF FF BO 7F FF FO 07 FF :F さ 


FF FF FO FF FF FF E7 FF BF FF 7F FB さ F FF FF QO =:1 さ 
フ F_FF_FO_O1 FF 7E OO O さ F さ EO OO OF B4 OO OO 10 s65 
QO OO OO OO OO OO OO SF QO QO OO OO oO Qo QO 20 :SF 
OO_OO_O1 OO_OO_1C OB OE OO さ B 41 CO OO 72 3B OO =:16 
OO QO QO OF FB OS FE QO QO QQ OO 07 1 さ BO 0O E0 :B2 
7 OO _1C O4 OE OO OO 20 00 さ F OO OO OO SF EO 00 : さ さく 
1F FF FO 0S 8S EQO EF 79 04 :59 


41 さ F EO OB 0O3 FF BO _EO さ F FE OF B ミ FF FF FF FF :95 
FF FF FF FE OE QE OE OO 20 20 20 1F OO OO OO さ F :E さ 
EO_OO_1F FF FO_ 03 FF FF EO 7C 9F 27 CZ7F1 FC 7F 44 
6EFO フ F 27 C9 FF FF FF FF FF CZ 1C 7F FC 92 49FF CE :7O 


B2 EE ささ 56 6D CB 7 Q7 5C 44 91 CC F2 46 3B 4 gzEO 


+O +1 +2 + さ +4 +5 ロ +6 +7 + 日 19 +a +B +C +D +E +F Bum 
3B_E7 FF FF FF FE OE OE QE OO 20 20 20 1F 00 00 CS 


oO Q4 10 40 00 0 
OO QO FF CO FF FF FO 0O 1Q QQ ヨ Q 20 0Q0 BO 
40 OO OO0 QO OO OO 00 OO QO 0O 0QO 00 00 0O 





7 フ 4 71 12 40 42 7C 11 EE E1 F ミ 3 7C FE 18 1 
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MZ-80B の 「『 花 札 」 を FM- 8 に 移植 し , 同時 に ドッ ト 


単位 に 色 も つけ まし た -. 


640X200 の 分 解 能 と 1 ドッ ト 単 位 


で 色 を 付け られ る FM-8 な ら で は の プロ グラ ム で す . 


園 MZB 同 様 グ ラフ ィ 
札 を 皿 実 に 再現 する た め 。 


ッ ク を フル に 生か し て あり ます . 人 花 


- 枚 の 札 を 64X47 ド ッ ト の 大 き 


さ に し て いま すず 。 
画 他 は MZB と 同じ で す . 


⑨@⑳ 


面白 き のど れ を と っ て も 。 


す . 


札 は 48 枚 すべ て を 使い 、 ま ず , 親 ・ 


花札 の 図柄 デー 
め 。 CLEAR, 
MON モ ー ド 
リス ト は $34F0 一 $34F 2 が あり ます が , 
結構 で す - 
デー タ の 入力 が 終っ た ら , [STOPI ま た は 
BASIC に 戻り SAVEM “DATA"、 
H7FFF, &H34F3 [CR| で 
だ さい 。 

BASIC を 入力 し , SAVE し て で き あ が り で す . 
プロ グラ ム を LOAD す る と き は 必ず CLEAR, 
4F2 [CR| を 入力 し て くだ さい . 


タ を マシ ン 語 デー 


&H34F2 


領域 に 書き 込む た 
[cR| を 実行 し て くだ さい . 





無視 し て 
デー タ は $7FFF 番 地 ま で あり ます 

,ICTRLH|-[c] で 
&H34F3、 避 
=SAVE し て く < く 








テー プ ! 


&H3 














ご Ka ば 2 大 で や る ゲー ム で , スピ 


ー ド 感 ,。 スリ ル 。 
衣 鹿 っ 花 を し の ぐも 


の が あり ま 


了 チ ・ 場 に 各々 8 枚 ず 


つ 配 り ま す . 残り は 山 札 と し て , 場 に ふせ て 積 重ね て お き 
ます . その 後 は 馬鹿 っ 花 ( 花 合 わせ ) と 同様 に し て , 親 か 
ら 手 札 を 1 枚 場 に 出し , 場 札 と 絵 が 合え ば 取れ ます . 次 に 
山 札 を 1 枚 め くり , 場 札 と 合わ せま す . その 手順 を 親子 順 
番 に 行なっ て いく わけ で す -. 


馬鹿 っ 花 と 培う 点 は , 
札 自体 の 点数 は 勝敗 に は 関係 が る 
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得点 の 対象 に 
な いと いう 点 で す . 


な る の は 役 の み で, 


で $34F 3 番地 か ら 書 き 込 ん で 行き ます . 


る まゆ 。 





作っ た 方 が 勝ち で , 役 が で きた 時 点 で 『 勝 負 』」 ま 
いこ ごい 』 を 宣言 じ ま す . 
『 勝 負 』」 の と き は その 時 点 で 精算 し 
ます . 相手 は 0 娘 (こい こい の 点数 単位 は 文 ) で す . 『 騰 
負 』 を 宮 言 すれ ば , 間違い な 《 勝 て る わけ で す が , 応 々 に 
に で > S の 92P 半 だ 間 1 は 次 々 に 役 が で き て し ま 
う も の で す . だ か ら , 見 込み の ある と き は 少々 の 数 で 止 
め た ら 損 な の で す . 
役 が で きた 時 点 で 
WE 記 UNa を 


役 の 得点 分 が も ら え 





これ か ら も 役 が で きそう だ と 思っ た 
言 し 。 ゲー ム を 統 行 し ます と ころ が , 





『 こ いこ い 。』 を 宣言 し た 場合 . も し 自分 に 役 が で きる 前 に 
相手 に 役 が で き て 「『 勝 負 』 を 宣言 され れ ば , 自分 の 負け と 
な り ま す . ここ が , こい こい の 面白 い 要 素 で , 適切 な 判断 


を 要求 され ます . 
最後 まで , 両方 に 役 が で き な い 場合 
ら 親 に 6 廊 渡し ます . 


は 親 の 勝ち で , 子 か 


菩 下 行 が あな た の 手札 , 右 2 列 が 場 札 で す (写真 1). 
親 が コン ピュ ー タ な ら , うら の 生 ウ ーー ツ 3 語 本 わせ , 取 
札 は 最上 行 に 並べ られ ます . 親 が あな た な ら “ドレ ララ 


キリ マス カ ? "の 質問 に 数 字 で 入力 し て や っ て くだ さい . 
も し , あな た が 切っ た 札 と 同月 の 札 が 場 に 複数 枚 で て いれ 
ば (た と えば , あな た が 桜の 1 点 札 を 切り , 場 に 桜の 5 点 
札 と 20 点 札 が あっ た 場合 )、『 何 点 札 と 合わ せま すか 7? 』 と 
聞い て くる の で , 5 点 札 な ら 5, 20 点 札 な ら 20 と 入力 し て 
くだ さい . 

あと は どん どん 役 を 作っ て いけ ば いい の で す . コン ピュ 
ー タ に 役 が で きれ ば , 『 こ の 『 勝 負 』」 か を 自動 的 に 
判断 し て 宣言 し て きま す . あな た に 役 が で きれ ば , 『 勝 負 = 
0 。 NEWS 三 1 の 』 Pe る の で 0 か 1 を 入力 し て 
くだ さい (写真 2). 

サー ビス 機能 と し て , コン ピュ ー タ また は あな た が 「『 勝 
負 』 を 宮 言 すれ ば “野球 挙 '" の メロ ディ が , 「 こ いこ い 』 を 
宣言 すれ ば , "し ょ じ ょ 寺 の た ぬき 林 " の メロ ディ が 美しく 
( ? ) 流れ て きま す . な ぜ ,。 こい こい が し ょ じ ょ 寺 な の か 
ーーー は , 歌詞 を 口ずさん で も ら そ ば わか り ま す . ね ッ ? 

ゲー ム は 12 回 で 終了 と な り ま す . くれ ぐれ も . コン ピュ 


ー タ の よう みな 単純 知 脳 の 機械 に は 負け な いで くだ さい . も 
し , あな た が 負け れ ば , コン ピュ ー タ が 笑う よう に 作っ て 
あり ます (これ は 冗 談 ). 

役 は , 五 光 , 四 光 , 三光 , 赤 タ ン , 青 タ ン , 猪 鹿 蝶 の み 
登録 し て あり ます . この ほか に , 月 見 酒 , 花見 酒 , タネ , 
タン , カス な ど が ある の で す が , 地方 に よっ て は 役 に し な 
いと ころ も あり , また 月 見 酒 な ど は で きやすい の で あえ て 
採用 し ませ ん で し た . 


写真 1 





概略 の フロ ー チ ャ ー ト を 図 1 に 示し ます . 
絵 相 その 他 の プロ グラ ム は $34F3 か ら $7FFE ま で 


入っ て いま す . 絵 札 の 表示 に は PUT@A を 使っ て いま す が , 


49 枚 分 の 配列 変数 を 持つ こと は と て も で き な い の で , 表示 
する と き に 配列 人 に デー タ を 読み 込ま せ PUT@A で 表示 
させ て いま す . また だ た, カラ ー に する た め 本 来 R・G・B そ 
れ ぞ れ の デー タ を 持た せる 必要 が あり ます が , これ も で き 
る は ず が な い の で , 2 枚 分 の デー タ だ け を 持た せこ れ を “A 
ND", "OR" "XXOR" を 上 手 に 使い 三 色 の デー タ を 作り 
出し て いま す . 配列 に 読み 込み 三 色 の デー タ を 作り 出す に 
は $37E6 か ら の マシ ン 語 を 使っ て いま す . 

BASIC プ ログ ラム は 820 行 で 親 を 決め て いま す . 変数 O 
YA= テ 0 な ら 親 は コン ピュ ー タ 。 1 な ら あ な た です. 
1020 行 か ら 1300 行 まで で , 札 を 配っ て ( 札 コ ー ド を 表 2 
の 各 変 数 に 割り 当て て ) いま す 

1520 行 か ら 1730 行 まで は コン ピュ ー タ の 札 合わ せ , 1800 
行か ら 2015 行 まで は あな た の 札 合わ せ を 行なっ て いま す . 
両者 の 相違 点 は , あな た は 指定 し た 切り 札 と 場 札 が 合っ て 
いる か どう か の 判定 だ け を 行なっ て いる の に 対し , コン ピ 


ュー タ は 手札 と 場 札 の すべ て の 組み 合わ せ の 中 か ら 最 適 な 
も の を 抽出 する 必要 が ある と いう 点 で す . 

グラ フィ ッ ク の デー タ が この プロ グラ ム の “ 顔 " と する 
な ら ば , この 「『 最 適 組 み 合わ せ 抽 出 』」 は “ 脳 ミ ソ " に あ た 
る 重要 な 部 分 と 言え ます . 

改良 し て ,。 コン ピュ ー タ を より 強く し て みた いと 思わ れ 
る 人 も お られ る で し ょ うか ら , この 部 分 の アル ゴリ ズム を 
記述 し て お きま す . 

まず , 必要 な テー ブル が 2 つ あ り ま す . ひと つ は 合致 し 
た すべ て の 組み 合わ せ の デー タ を 一 時 , 貯え る 配列 変数 C 
O (jiji, j) と , あと ひと つ は 役 の デー タ を 貯え る TAG, 
)) で す . 変数 の 内 容 の 意味 は 表 3 を みて くだ さい . 

『 最 適 抽出 』 の 際 の 優先 順位 は 図 2 の フロ ー チ ャ ー ト を 見 
て も ら え そば 理解 で きる と 思い ます . 5500 行 か ら 5680 行 で , 
CO (ji, j) テー ブル を 作成 し , 何 対 の 役 の 組み が で き 
た か を CC に 入れ て リタ ー ン し ます . その 結果 を 5700 行 か 
ら 5910 行 で 判断 し , 最も いい 組み 合わ せ を 選択 し て TAG, 
j)) テー ブル に 反映 し て いま す . 

ほぼ , 人 間 が 札 合わ せ を する と き の 思 考 を 再現 し て いま 
す が , 大 局 的 な 見 地 に た っ て の 思考 は で きま せん . た と える え 
ば , 手札 の 中 の 赤 タ ン の 元 に な る カス 札 が 3 枚 そ ろ っ て い 
る か ら , 他 の カス 札 か ら 順 に 切っ て いこ う … と いう よう な 
こと は 考 褒 で きま せん . 














絵 札 を 見 て いた だ く と わか り ま すす が, さす が FM-8 と い 
う 感 じ で す . スピ ー ド は MZB に 比べ る と 劣り ます が , 色 
の 美しき さき で は どの マイ コン に も 負け な いと 思い ます . 


























CO(CC、YC) ーーCC 























0| 可能 性 フラ グ |9 





り 1 コジ ビー 涼 9|5 
役 ま で の 残 札 数 
し 2 あな た 
役 ま で の 残 札 数 





1 


F(0.j0) の j0 
値 
値 


の 
の 


F(2.j2) の j2 


Y 























」2|TA(XA.Y1) の 

Y |XA の 値 可能 性 フラ グ 1 … コ ン ビ ュー タ が 
TA(xB.Y1) の プル 2 

いる の み 
( 注 ) . プ ログ ラム 実行 前 3 … 持 ち 合い 0 

に イニ シャ ル ・ セ 。 4 コン oss の ( 側 。 

ッ ト - の 役 に 決 定 

5 


…: あ な た 側 の 役 に 
決定 
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図 1 概略 フロ ー チ ャ ー ト 


CO テー プル 作成 TA テー プル OD 
ラリ ーー の 2 作成 サブ ルー テン 


日 … 場 札 コー ド 





由 札 と 場 札 の ンコ コンビ as 多 


組み 合わ せ 。 














手札 と 場 札 
の 組み 合わ 』 
せ 抽 出 





CO(CC.0) 
CO(CC.1) 
を 登録 


TA テー ブル に 登 中 














BASIC プ ログ ラム ・ リス ト 





O CLEAR100。&HS4EO: DEF INTA-Z : DEFUBRO=&H さ 7E6: DEFUSR 1 =&&H さ 966』 DEFUSR2=&H さ 72 = MTDTHBO 
。25: CONSLE24 。 1 。 0。 Os CHLURO。 4 

100 DIM QA(564) 。TA(6。2) 。CD(10。 さ ) 。F(4。26) 、F1 (4 日 ) 。F2(2 さ ) 。F さ (1 1 ) 

110 DEFFNZ(X) =XーINT(X/12) 12 

120 FDR =OTD564: (QA) =O: NEXT: SB=O 

210 DATAO。 0。0。0。0。0。5。4。 さ 。 さ 。 さ 。 さ 。5。 4。 さ 。 さ 。 さ 。 さ 

2O RANDOMT ZE (VAL (RIGHT ま (TIME ま 。2) ) ) : YA=INT (RND (1 ) X2) 

91 ロ CLS: ST=ST+1 : SYMBUL (464。 晶 ) , STR ま (ST) 2。2 

920 COL=6: XX=20 日 : YY=O:FD=G4:FT=192』 AD=&H39EO: GDBUB10000』 XX= ニ ささ 6: FT=96』 AD=&HSAAOs 
ロ SUB10OOOi XX=400』 AD=SH さ AAO BSUB10OOO 

9 さ O COL= つ : XX= 日 : YY= 日 :FD=16: FT=96: AD=S&HSBOO GBDSUB10000: YY=7S』 AD=&HSB6O: GDBUB1000O 
940 FURI=OTD7: SYMBDL ( T*6+ 日 。 1 ヨ 4 ) 。 STR ま ( エ +1) ,2。1: NEXT 

1020 FURI=1TO48:F1 (1 ) =T NEXT 

1035 RESTDRE: FURY=OT ロ 2 

1036 FURX=1T ロ 6: READTA(X。Y) : NEXTX。Y 

105O IFOYA=OTHEN1 100 

1060 K=Oz BHSUB1S1O:K=1 : BHSUB1210: に =2: BSUB1210: GUT ロ 1 140 

110O K=1:BUSUB1210:K=0: BHSUB1210:K=2: BUSUB121O 

114O QA=OFURT=1T ロ 4 日 : IFF1 (T)=O THEN116O 

115O F2(A) =F1(1) : =Q+1 

116O NEXT 

117O FURI=OTHSO: Q=TNT (RND (1 ) *24) : B=TNT (RND (1 ) *※24 ) 

11BO SMAFF2(A) 。F2(B) : NEXT 

119O GTO1 さ OO 

1210 FORJ=OT ロ 1 1 :F さ (J) =O: NEXT 

1220 FRI=1TOB 
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2OSO 
2040 
205QO 
2060 
5010 
5O2O 
5O30 
5O40 
505O 
5O60 
SO8O 
5O90 
5510 
52O 
53O 
5540 
55SO 
5560 
5570 
5580 
560O 
5610 
62O0 
563O 


ョ 640 
565O 





BASIC プロ グラ ム ・ リ スト 





=TNT (RND (1 ) *4) +1 : IFF1 (人 Q) =OTHEN123O 
B=FNZ (人 ) :F さ (B) =F さ (B)+1 : IFF さ (B) >2THENF さ (B) =F さ (B) 1 : BHTO12 さ O 
F (K。 1 ) =A:F1 () =O 

NEXT: RETURN 

FURT=OT ロ 2: X=T : BUSUB6010: NEXT 

KAT=O: HM=B: Z=B: GUSUB7OBO : PB=: GBDSUB71 7O 

COL=2: XX=44 日 : YY=144:FD=47:PT=18: AD=&HSBCEO: BHSUB 10000 
BYMBDL ( 112, 日 ) 。 STR ま (PFO) + "モン" 。 2。2 

SYMBDL (1 12。72) 。BTR$(P1 ) +" モ ン リ 2。 つ 2 

PC=O: PM=O:HC=B: B ビ =O: SM=O 

FORK= さ T ロ 4:FURI=OT ロ 24:F(K。 1 ) =O= NEXTI ,K 

TA (O。0) =9: TA(O。1) =9: Ta(O。2) =9 

ITFYA=1THEN18OO 

KAT=KAT+1: IFHC=OTHENB110 

BUSUB5O1O: XC=XQ: XD=XB 
IFB=OTHENPB=PB+ 1 :F(2。PB) =F (O。 1 ) =F(O。 1 ) =99: BUTO157O 

F ( さ 。 PC+ 1 ) =C:F ( さ 。P ビ +2) = 日 :F ビ =PC+2』 X ニ さ = FL=PC: BUSUB6O2O 

F (2。 CD (J。 1 ) ) =99: X=2:FL=PB: GBDSUB6O20: PB=PBー1 

F (O。CO (J。O) ) =99 

X=O:FL=HC: GHSUB6O20: HC=H ビ ー1 :F= さ : Z=P ビ :F=PC : BDSUB7010』 Z=PBs BDSUB717O 
F=0: GBDSUB61 10 

TFB=O THENPE=PB+1:F(G。FB) =C: X=2:FL=FB: BHSUB602O: BDTH162O 

F ( さ 。PC+1 ) = ビ :F ( さ 。P ビ +2) =B:F ビ = ニ FE+2: X= さ ょ FL し =FC: GUSUB602O 

F (2。CD (J。 1 ) ) =99: X=2:FL=FB: BHSUB6OSO PB= ニ PBー1 

Z=PB: BDSUB7170: IFFS く >PC THENF= さ : Z ニ FC: GUSUB7010 
IFTA(XA、1 ) =OaNDTA(XA。O) く 4 THENTA(XQ。O) =4: BUTH1690 
IFTA(XB。 1 ) =OANDTA(XB。O) く 4 THENTA(XH。O) =4: BUTD1690 
IFTA(XC。1) =OANDTA(XC。O) く 4 THENTA(XC。O) =4: GUTD1690 
IFTA(XD。1 ) =OANDTA(XD。0) く 4 THENTA(XD,O) =4: BUTD1690 

BDT0180O 

IFSM=1 THENA=4: BUTO7510 

FURXT=OTQ5 

IFTA(XT、2) =1QNDTA(XT。O) =2THENA=4: BUTD7510 

NEXT 

BC=1 : =4: BDBUBBO10 

EAT=KAT+1 : TFHM=OTHEN1 10 

SYMBUL (O。192) "トト" レラ キリ マメ スカ"。2。1sLHCATE3S0。 24: INFUTS: IFS=OTHEN1BO5 
IFS>HM THEN1805 

ビ =F (1 、) : BDSUB6510: XC=XQ: XD=XBH 

F (1 .8) =99: X= ニ 1 :FL=HM: BUSUB6O2O: HM=HM-1 : GUSUB7OBO 

LUCATEO 、 2 さ : PRTNTSPC (55) : FUR エ =1TUHM: BYMBUL ( TX64-56。 1 日 4) 。 STR ま (1T) 。2、1:NEXT 
F=4:FS=FM: Z=PM: GHSUB7O10: Z=FB: GBDSUB717O 

=FS (KATー1) : XX メ =44 昌 : YY=1 44: AD=&H さ CBO+ さ 60X (ビー1 ) : BHSUB2OOOO 
BODSUB6510: Z=PB: BUSUBZ170: TFFS< >PM THEN F=4: Z=PM: GUSUBZ7O10: Z=FB: GBDSUB7170 
TFTA(XA。2) =ORNDTA(XA。O) く 4THENTA(XA。O) =5: BHTU2O2O 
IFTA(XB、2) =OANDTA(XB,O) く 4THENTA (XBH。O) =5: BUTU2O20 
IFTA(XC。2) =OANDTA(XC、O) て 4THENTA(XC、O) = 王 : BDTU202O0 
IFTA(XD。2) =OaNDTA(XD。0) 4THENTA(XD。0) =55: BDTU2O2O 

BOTQ152O 

SYMBDL (O。192) 。 "ジョ ウフ "ニー OO 。 コ イコ イ = 1"。2。1sLUCATE40。24: INPUTSN 
IFSM=OTHENA=: GUTD7510 
IFSM=1THENSC=O: 人 =: BUSUBBO10: BHT ロ 152O 

BDT ロ SO2O 

CC=O: CO(O。O) =O 

FURJO=1TDHC 

=F (0、JO) 

FURJ2=1TOPB 

昌 =F (G。J2) : IFFNZ (日 ) =FNZ (C) THENGBUSUB5510 

NEXTJ2。JO 

BUSUB5710 

RETURN 

IFB<2BDR (B* さ さ ANDB< さ 9) RE=42DRB=4 さ THEN560O 
CC=CC+1: CD (CC。2) =O: CO (EC, さ ) =O 

IFB=4BTHENA=1 : GUTD55BO 

IFB>4 さ THENA= さ : GDTD55BO 

TIFB> さ BANDB< 42THENA=6: GBDTU55BO 

IFB> さ OANDB く < さ 4THENA=5: GBDTU55BO 

IFB>2 フ 7ANDB< さ 1 THENA=4 

CO (CC。2) = 人 BHTD562O 

TFC<2 ヨ OR (> ょ ささ ANDC く さ 9) DRC=42DRC=4 さ THENCO (O。O) =JO CH(O。 1 ) =J2: RETURN 
CC=CC+ 1 : CD (CC。2) =O:CO (CC。 さ ) =O 

1F ビ =4 ヨ THENA=1 : GUTO67O 

TFC>4 さ THENA= さ : GUTD567O- 

TFC> さ BANDC く 42THENA=6: BHTU567O 

TFC* さ OANDC く さ 4THENA=5: GBDTD567O 
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5660 IFC*S7ANDCS さ 1THENQ=4: BUTD567O 
5665 BOT0568O 

670 CO(CE。 ミ ) = 

680 CO(CC。O) =JO CO (CC 、 1 ) =J2: RETURN 

710 IFCC=OTHEN590O 

71 FRI=1TUS:FHRJ=1TOCC 

73 ロ Xa=CO (J。 人 2) : XB=CU ( け 。 う ) : 1=TA(X。O) : T2=TA(XB。O) : =TA(XA。 1) : 4=TA(XH、 1 ) : =TA 
(XA。S) : T6=TA(XB。 ら ) 

7 さ O TFT さ >T ANDT4*1 THEN 745 

7 さ 1TF (Xa= さ ANDT5=2) DR ( XB= さ ANDT6=2) THEN5B25 

5740 IFT1=1QANDT2=1 THEN5B25 

745 NEXT 

575O FURJ=+TOCC 

755 XaA=CH (J。2) = XB=CH ( ゴ 。 さ ) : 1=TA(XA。O) : T2=Ta(XB。O) : T さ =TA(XA。 1 ) : T4=TA(XB。 1) : T5=Ta 
(XQ。2) : T6=TA(XB。2) 

576O IFT5>I ANDTa>1 THEN5 フ 75 

5765 1TF(XQ= さ ANDT さ =2 ) DR ( XB=SANDT4=2) THENSB25 

77O TFT1=2ANDT2=2THEN 5B25 

5775 NEXT:NEXT 

7BO FORJ=1T ロ CC 

785 XA=CO(J。2) : XB=CH(J。 さ ) : T1=TA(XQ。O) : T2=TA(XB。O) 

79O IFT1=OANDT2=OTHEN5B25 

5795 NEXT 

5BOO FORJ=1TOCC 

5B05 XQ=CO(J。2) : XB=CH(J。 さ ) : 1=TA(XQ。O) : T2=TA(XB。O) 

5B10 IFT1=O ロ RT2=OTHEN5B25 

5B15 NEXT 

SB2O =1: Xa=CD(J。2) : XB=CU (。 さ ) : T1=TA(XQ。O) : T2=TA(XB。0) 
SB25 IFXA=OTHEN5B55 

5B3O IFTA(XA。 1)<>OTHEN5B40 

5B35 XaA=2iTA(XA。1)=1:TF TA(1』1)=4 THEN Xa=1: TA(XA。1 ) =1 
5B40 TA(XA。1) =TA(XA。 1 ) -1 

5B45 IFT1=OTHENTA(XA。O) =1 

5B5O IFT1=2THENTA(XQ。O) = さ 

5855 IFXB=OTHEN5BB5 

5B6O IFTA(XB。1)<>OTHEN5B7O 

SB65 XB=2iTA(XB,1)=1: TFTA(1 1 ) =4THENXB=1: TA(XB、 1 ) =1 
5B7O TA(XB。1)=TA(XB。1 ) -1 

5B75 IFT2=OTHENTA(XB。O) =1 

BBO IFT2=2THENTA(XB。O) = さ 

5BB5 B=F(2。CO(J,1) ) :C=F (0,CD(J。O) ) 

5B9O RETURN 

5900 TFCO(O。O) =OTHENB=O: RETURN 

5910 J=O: BHT ロ 5BB5 

6010 FL= 

602O 1FFL く =1THENRETURN 

60 さ O MX=FL-1 :FL=O 

6040 FORJJ=1TOMX 

605O IFF(X。JJ) *F(X。JJ+1 ) THENSMAPF (X 。JJ) 。F(X 。JJ+1 ) : FL= ニ JJ 
606O_ NEXT 

607O GBDTO602O 

6110 C=F2 (KAT-1 ) : XX=44 日 : YY=144: D=H3CBO+(ー1 ) * さ 60』 GBDSUB2OOOO 
612O CC=OiCO(O。O) =0: JO=1 

6125 IFFB=OTHEN616O 

61 さ O FDRJ2=1TOFB 

6140 =F ( 全 。J2) : IFFNZ (B) =FNZ ( ビ ) THENBUSUB5510 

615O NEXT 

6160 BODBUB5710:』 じ =FS (ETー1 ) 

61BO XX=44 日 :YY=144:FD=47:PT=18: AD=&HSBCO: GBDSUB1000O 
6190 RETURN 

6510 CC=O:CH(O。O) =0 

6515 IFPB=OTHEN655Q 

652O FORJ2=1TOFB 

653O B=F(S。J2) : IFFNZ (B) =FNZ ( じ ) THENBUSUB10 

6540 NEXT 

655O IFCCS:OTHEN65BO 

6560 TFCO(O。O) =OTHENXQ=O: X 昌 =O ェ =F 昌 +1 :F(G。PB) = じ : メニ コ :F レ = ニ FH: GHSUB6O2O: GBDTU677O 
657O J=O:B=F (人 。 CD (J。 1 ) ) : Xa=CD (OS) : XB=CO(O。 さ ) : BHTD6740 
65BO TFCC=10RCO(1 。1) =CD (1 ) THENJ=1 : ヨ =F (2 。ED (1 。 1 ) ) = BHTDG690 
6590 SYMBDL(O、192) "ナンテン フタ トト アワ セッ マッ カリ 、G。、1sLDCATE さ SG4 ょ TNFUTA 
661O TFA=1THENMN=1 : MX=2 さ : IM= さ 晶 : BHT666O 

6620 IFA=5THENMN=24: MX= さ さ : MM=O: BHTD6660 

66 さ O 1TFA=1OTHENMN= さ 4: MX=4 さ : MM=0: BHTU6660 

6640 ITFA=SOTHENMN=44: MX=4 日 : MM=O: BHTUD6660 

ら 650 BUT ロ 659O 
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6660 FRJ=1T ロ CC 

667O =F(G。 CO ( け 。 1 ) ) : IF(B>=MN ANDB=<MX ) DRB=MM THEN6690 

66BO_NEXT: BT ロ 69O 

669O XaQA=CD(J。2) : XB=CO (。 さ ) 

66955 IFXA=OTHEN6720 

6700 IFTA(XA。2) く >OTHEN6710 

6705 XQA=2i TA(XA。2)=1: TFTA(1。2) =4THENXQ=1 : TA(Xa。2) =1 

6710 TA(XA。2) =TA(XA。 2) -1 

671 呈 IFTA(XA。O) く 2THENTA (Xa。O) =TA(XQ。O)+2 

672O IFXB=OTHEN6745 

6725 IFTA(XB。2) く >OTHEN67 さ 5 

67 さ 0 XB=2: TA(XB。2) =1: TFTA(1 2) =4THENXB=1 : TQ(XB。2) =1 

6735 TA(XB。2) =TA(XB。2) 1 

6740 TFTA(XB。O) く 2THENTA CXB。O) =TA(XB。O)+2 

6745 PM=PM+1:F(4。PM) =B: FM=PM+1:F(4。PM) = じ = X ニ 4:FL=PM: BUSUB6020 

675O F(2。CD (J。 1 ) ) =99: X ニ 2 ェ F し =FB: BUSUB6O20: PB=FBー1 

6770 XX=448: YY=144:FD=47:PT=18 日 : QD=&H さ BCO: GBDSUB1000O 

67 ヨ O RETURN 

7010 DY=64* (F- さ ) +24:LTNE (0。DY) 一 (511 ,DY+47) 。FRESET 。 。 BF 

702O IFZ=OTHENRETURN 

703O IFZ く 9THENX1= さ 2 BUTD705O 

7040 X1=215/(Z-1 ) 

7050 FURX=1TOZ: エニ F (F。X) : XX=2XX1*※(Xー1) : YY=DY: AD=&HSCBO+ さ 60*X (エー1 ) : BHSUB2OO00s NEXTs 
RETURN 

708O LINE(O。136) (447。13) 。PRESET 。 。 BF 

7100 IFHM=OTHENRETURN 

7 フ 110 IFHM=BTHENX 1=27: BDT ロ 71 さ O 

7 フ 120 X1= さ 2 

フ 130 FORX=1T ロ HMI: エ =F (1 。X) : IF エ =OTHEN715O 

フ 140 XX=2XX1*X(Xー1 ) : YY=1 さ 6: D=SHSCBO+ (エー1 ) *※ さ 60s BUSUB2OOOO 

7 フ 15O_ NEXT:RETURN 

フ 170 LINE (51G。0) 一 (6 さ 9。 199) 。FRESET 。 、 BF 

フ 1BO IFZ=OTHENRETURN 

7210 Z1=INT(Z/2) : 7B=ZーZ 1 

フ 7220 TIFZ1=OTHEN727 

7230 IFZ1=1THENY1=4 昌 : BHTH725O 

7240 Y1=144/(Z1-1) : IFY1 4BTHENY1=4 昌 

7250 FURY=1TDZ1:T=F(G。Y) : XX=512k YY=Y1X(Y-1 ) : AD=&H さ CBO+ (エー1 ) * さ 60』 BHSUBSOOOOI NEXT 
7275 IFZ2=1THENY2=4 日 : BOTO729O 

72BO_Y2=144/(Z2ー1 ) : ITFY2>4BTHENY2=4 昌 

フ 290 FURY=1TUZ2: エ =F ( つ 。Y+Z1) : XX ニ ロ 76: YY=Y2X(Yー1 ) : AD=H さ CBO+( エ ー1 ) *※ さ 60』 BHSUB2OOOO: NE 
XT: RETURN 

751O AD=&H さ 5 日 : SB8=USR2 (AD ) 

751 呈 FURT=OT ロ さ : = (4 ) 64+ 日 :LTNE (日 。B) (10 さ 。 日 +1 曲 ) 。、FRESET 。 、 HF : XX= 日 : YY=B:FD=16: FT=9 
6: AD=&HSBOO+ (4) *96: BDSUB1000O 

7540 COL= さ = BHSUB1000O 

7560 NEXT 

7570 LINE (日 1G、O) 一 (6 さ 9、 199) 。FRESET 。 。 BF 

75BO LUCATE65。 1:FRINT" X※ ト フ テン ※":DY= さ :P=O 

7610 IFTA(1 。O) = THENP=P+1 昌 :LUCATE65。DY: PRTNT" コ " コウ. 1 コモ "EDY=DY+S BUT0762 

フ 615 IFTA(G。O) =Q THENF=F+10:LUCATE65。DY:FRTNT "Ez コウ 。。10 モ "EDY=DY+S: GBDT76235 
762O IFTA( さ 。O) = THENF'=F+B: LUCATE65。DY:FRTNT "サン コウ 。 日 モ の" ェ DY=DY+2 

7625 IFTA(4。O) = THENP=P+6:LDCATE65。DY:FRTNT "アオ 。 ワッ 。.6 モ ン リ ュ DY=DY+2 

763O TFTA( 呈 。Q) = THENF=P+6:LDCATE6 ロ 。DY:FRTNT "アカ ニー ダフ 。。6 モ フリ ェ DY=DY+2 

7635 IFTA(6』O) = THENF=P+ コ : LUCATE6。DY:FRTNT "イフ シカ テ ョ ウ 。 呈 モン" ェ DY=DY+2 

フ 640 IFA=4THENFO=FO+F ELSEF 1 =F1+ ド 

7660 LINE(112。B) (GO5。24) FRESET。 。 BF : SYMBDL (1 12、 日 ) 。 STR$(FO) + リ モン フリ 人 2 

フ 7670 LINE(11G。72) 一 (20。 日 ) 。PRESET 。 。 BF : SYMBDL ( 11G。7S) 。BTR$(FP1 ) キリ モン フリ 。 で 

フ 7672 TFT=12THENLUCATEO 。 20: PRTNT "ジュ ウリ ョ ウデ" ヌ 。 " ミ ENDELSELUCATEO。 24:FRINT"Fush Any ド 
EY"m 

フ 7676 IFINKEY ま =""THEN7676 

7 フ 68O ITFA=4THENDYA=O: BUTn915 

7690 IFA=ETHENYA=1 : GUTn915 

BO10 QAD=&H ミ 4F さ : 85=USR2 (AD ) 

BOO FURT=OT ロ さ : 日 =( 全 一 4 ) ※ ら 4+ 日 :L INE (日 日 )ー(10 さ 。 B+1) 。FRESET 。 。 BF : X X= 日 : YY=B:FD=16 ょ FT= ウ 
6: AD= シ HBOO+ ( 合 一 4 ) *96: GBDSUB10000: NEXT: RETURN 

110 IFGC=1THENaA=4: GBDTH757O 

日 120 ITFSM=1THENA=5: BUTU757O 

日 13O IFUYA=OTHENF=6』FO=FO+P』 人 = BHTU7660 

日 140 F=6sF1=F1+F: 人 =4: BUTD7660 

10000 PUKE &H ミ 9D 日 。(VQRFTR(A(O) ) 羊 256) :FUEE &HS9D9。(VARFTR(A(O) ) MDD 256) :FUEE &H 
39D7。FT: BS=USR 1 (AD ) :LTNE (XX。YY) 一 (XX+16*FT/FD-1 。YY+FD-1 ) 。、PSET 、O。 BEF : FUTD (XX、YY) 一 (X 
X+16*PT/FD-1 。 YY+FD-1 ) 。 Q。PSET 。 CDL : RETURN 

2O0OOO PURE &H39DB。 (VARFTR(A(O) ) 羊 256) :FUKE &HS9D9。 (VARPTR (人 A(O) ) MD 256) : 88=USRO 
(AD) :FUT2A(XX。YY) 一 (XX+6 さ 。YY+46) 、 人 。FSET: RETURN 
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dd 401112 13141516171819181B E+tDtE 守 Sum 
34FO 30 4 00 33 33 33 40 28 28 28 28 40 22 22 28 28 :B1 


Sum: 30 34 00 33 33 33 40 28 28 28 28 40 22 22 28 28 :B1 


dd 101112 131415161718191A1B 1D E 守 BuW 
3500 28 3⑬ 33 33 40 22 22 28 28 20 2D 3⑬ 3? 2D 20 28 :D7 
3310 28 22 22 22 22 40 28 28 28 28 40 22 22 22 22 40 :98 
3⑮20 19 19 13 13 16 16 19 19 40 22 22 40 22 1E 1E 1E iF6 
3530 22 22 19 40194019FF1IE 22 28221EIE1EIEi10 
3⑮40 1B 40 1E 22 28 22 2D 20 20 20 40 28 28 28 22 28 :9B 
3550 2D 33 20 28 20 33 3D 3D 40 40 E 1E 1E 40 40 1E :07 
3560 1E 40 22 40 22401E4022401EFFIEFFIEIE:S8 
3570 00FF E 02 E2 84 8D 36 E6 84 86 03 3D E7 8D 00 :80 
3580 45 E6 80 00 41 86 84 81 40 27 08 81FF 24 01 39 :F5 
3590 86 8F B7 FD 03 5A 26 FD E6 80 00 26 86 0F B7 FD :2F 
3A0 035626FD688D001D2607300120C686FF:2D 
35B0 E7 8D 00 11 5F SE AO 8D 00 08 24F9 5A 86 11 3D iC3 
33EOE78D00013911FD7FFFFFFF7FFFFFFBFifF 
300DF7DBF7DCO03FF7FCOO5EF7F8003FD7Fi09 
3E08007FF77BBIFFF7FFEYFFFGFFFFFF37F zeD 
3FOFE00737FFEFF617BFEFF4170FEFF 4170:25 


SumiEAAF3783AAEL3⑰76828804581B15A 1357 :BD 


Ad 10 1112 3 144151617 18 19 4418 北 10 寿 半 Sug 
3600 7EFE 4370 05FE976005FEBF84005FEFF70:BD 
310 05 FE BF 78 0DFE 87 68 0BFD 87 780BFDO07C:90 
320 1B FD 01 56 3BFD 01 7FF3F9 01 7FF7 F8 87 71 78 
3630 F7 F8 7F 70 27 FO 0D 60 2F F0 01 40 2F 0 01 40 :22 
340 4FEO0140SFEOO140BFCO0140BFCO017FiCF 
3503F80017E7F00017E0001817FFC0061 7F i17 
360F800F77F800076DFC00077FFC00077Bila 
3⑯70DE003F6F7F8OFF7FFFE7FF7F700F8001i6D 
380700F8001701F8OCE1781FCO797F7FCOFFz5D 
3⑳907EFFFF875FFFFEF4FFFFE7F47FFFE 7F:24 
30 43FFF8FF67FFE4FF6E7FBEFF793F7DFFiGE 
3BO 789AFDFF 77C4FDFF77FFFDFF77FFFDFF:z2C 
3COSOFFASFF4EIFYFFF67CE43FF667083FF:6B 
3D0731087FF71086IF7183861F7081060FiCE 
36E0 40 81 06 0F 40 01 E4 OF 40 02 34 07 40 02 1E 27 :OE 
36F0 40 02 10 23 40 02 00 33 40 8C 00 33 70 04 00 0B :68 


sumiE8978608B54D1CADEE0746C299654E03iF4 


dd 101112 14415161718191A1B 化 tD 社 半 um 
3700 70 0000017000000F7000003D700000FD:OA 
3710 70 00 01F9 60 00 01 F9 40 00 01 F1 40 00 81 E1 :98 
3⑰20 40 03 81 E1 40 0F 81 E1 40 F 81 CE1 40FF 81 81 :38 
3730 76 40 7FFO 01 40FFF8 01 47 E3 FE 01 7F E3FF :EB 
3740E17F0FFF97FO1FFFF78007FFF78001F:48 
3⑰50FF78001FFF600007FFG680003FF680008B:DH 
3760FF680009FF6800FEFF6800FE7F4800FFgFE 
3270F7EIFFEFSFFFFE 074FFFF8 714FFFFO zeD 
3⑰80 E1 47FF ES C1 47 FBFF 83 43F1 FE 07 61 FBFB iiE 
37900F78F9EO3F7FFBCE3FF7FFFFFF 7FFFFE:i15 
3⑰A0077FFFFE0O17FFFFE017FFBFE017FFEFO iDF 
3780 01 60 30 00 01 40 00 00 01 40 00 00 01 40 00 00 :54 
37E0 01 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 :04 
3700 01 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 :04 
32E001400000017E347710 胡 02E8D0O1E986:iD6 
37F003CEYFFFEF84EF890170EF890178EF89:D4 


Sum: 924689E3BFE997DBEE4095878DB26EiSF 


人 d 10+4112 1314151617181914 41B ttD TE 1F Sum 
3800 02 E8EF 89 02FOEF 8904603002CEEFFFFEF:iiD 
31084EF890170EF890178EF8902EBEF8902:34 
3820F0EF 89 046030024A26ESA6A4102B00RE:84 
3830 6 24 10 2B 00EEA628 10 2B 010EA6 2E102B:F8 

















38400169 AH10 102B016BA6 AH 14 10 2B 01 6D :78 
3850 A6A818 2B298D4B3410308901888D4335i1D 
3880 10 30 88108402C6B434066689FEBB6A89iFE 
38700178878035085826EF44 26EA35F7 8D 22i7F 
3880 30 88 10 8D 1D 30 88 10 82 02 Ca B4 34 06 6 89 
3890FD 10 489FEBHA78035065A26EF4428EAiEB 
38A0 3⑮F7CAB4 A6 8034 24 10 8E 00 00 CE 08 48 34 :2E 
38B0 07 24 02 31 211F2010F84E3841F 0235 07 :C5 
38C0 34 07 24 02 31 21 1F 20 10 F 84E3 84 1F 02 35 :F2 
38D0 07 5A 24 DA 35 24 30 02 5 26C9 39 34 1030 89 :6B 
38EO0 01788DBE3⑮10341080B83S10318902FO:i83 
38F0 86 02C6B4340668O07A035065626F5 4 :3 


Sum:FF3117657754628168EE17CE828485 8B:E9 


Add 10#112 1314145161718 19 1 48 化 +10 社 1F Su 
3900 26FO 35 F7 34 10 30 89 01 78 34 10 80D 94 30 88 iD5 
3910 1034108D8D35103⑬20354034308402C6i2F 
3920 843406660 436480 7CO 3 06 SA 26F2 44 :F9 
3930 26 ED 35 30 86 02C6B4 34 06 6 4 人 A 80 87 60 :F 
3940 35 06 4 26F3 44 26 EE 3⑮F7 34 10 30 89 01 78 : 胡 
3950 17FF 4F 3⑮ 10 34 10 17FF 48 35 10 31 89 01 78 :(4 
3960 38902FO208B5343710E02 人 E8D0069A6iF8 
3970 0 34 20 10 8E 00 00 C6 08 48 34 07 24 02 31 21 :5B 
3980 1F 2010 人 F84E384 1F 02 3⑮ 07 34 07 24 02 31 iD8B 
390 211F2010F84E3841F023075A260A 35:F6 
390 2030026880D003026C635873420 10 人 E 8DiFO 
3980 00 28 20 10 34 20 10 E 8D 00 21 20 07 34 20 10 :3 
3⑲EOE8D001A17FEDB352030881017FED330:7A 
3900 88 1017FECD35F7002L243⑮EC73%7L37 31 5:OE 
39E000000000000000000000000000000400:04 
39F0 02 01000800000A000603000COE1084 00:CE 


SuaiE7EB4OE707797A00E6BBF35B6EC353:』EB 


他 d 404112131415161718191A180 性 壮 Sum 
3007603800E07 15E0003FDFEO0C071080005D0 
3100FBFCO1ICE061080000603801IE04108000.:49 
3A20 020180 半 84088000008】107FFEC608 8800:DD 


3⑯30 01B833FF040008000738701COE000800r,D6 
3401F18600E080008007FOEEO00043008005:36 
3⑭5078O0E000404380840720C000COE18 03FOiB2 
3600618001IEOEIE00440418087F0OC0E00 42 07 
70061809EF8EOEO1ICOOE180DCEOEOC0140:C5 
3800C18108EOEIEO1C20E19FEOEOFFE00 42 :32 
3900EOFFCOE07F8003E0000000000000000:i60 


3A000000000600000003F8000001iFECO00005iFE 
3BO03800000030000000400000000000000:8C 
3AEO 00040000000700000007800000078B060:79 
3D0 100380782003803C6003803EFO38O1IEiCC 
3EOFFF180IE7FE1C2IEOFEOC60E0000EC00:S5B 
3FO00007C0000003CE000000180000000000:DO 


Sum: 58 402181508A789EOF7686FO237E8832:B0 


Add +0+1121314415161718191A+4B1C+0D 覆 半 Sug 
3800FFFFFFFFFFFFFFFFFF87FFFFFFFFFD BB i32 
3810 87 9F 83FBEE 43E7 9FCIFYOE3F EC OFF1 E2 :26 
38201E8FFEOFE7E6DEDF87FFFEFEFDCGGBIiSF 
7DF339D0FCEFBDE58F33B9FC39E55iSE 
3 EE 05 73 21 CO 99 61 ED 67 21 E1 98 :73 
7FFFFFFFFFFFFFFFFFFFFFFFFF:i22 
3860FFFFFFFFFFFFFF7FF7FFEFFFFB303FFiSE 
387067FFF803EO4700FFFCEO3ECOE301FFFF 3Fi47 
3880F3F3E7FFFE 03FSF7E6 1F FE 19F3EF E7 9F i39 


3890F884E7EFCE7BFF3BEE707EFFFFI9EE663i19 
38A0EEFFFBEE6ESEEF7FE79FE47DE07FFE3iOE 
3BOFFOFFEOFFFFFFFFFFFFFFFFFFFFFFFFFiOF 
38EO7FFFFFFF7FFFFFFF7000000377FFFFFBiDB 
380077FFFFFB77FFFFFB77FFFFFB77FFFFFB iCO 
3BEO 77FFFFFB77FFFFFB77FFFFFB77FFFFFBiEO 





206 





ダン プ ・ リ スト 








38FO77FFFFFB77FFFFFB77FFFFFB77FFFFFBiCO 


Sum: 098743DD1DBF5354A6D16823ADEB4BEDS 


人 d 10 1112 34415161718 491 1B TE +D +tE 1F SuW 
3C00 77FFFFFB77FFFFFB77FFFFFB77FFFFFBiEO 
10 77FFFFFB77FFFFFB77FFFFFB77FFFFFB iCO 
20 77FFFFFB77FFFFFB77FFFFFB77FFFFFBiCO 
X30 77FFFFFB77FFFFFB77FFFFFB77FFFFFBiEO 
3E40 77FFFFFB77FFFFFB77FFFFFB77FFFFFBiCO 
5077FFFFFB77FFFFFB77FFFFFB77FFFFFBiEO 
3E60 77FFFFFB77FFFFFB77FFFFFB77FFFFFB iCO 
70700000037FFFFFFF7FFFFFFF00000000:6B 
80 7FFEFFFF7DFDe6E77E7883437E77 87 27 iCO 
90762EBE7F71885037184E1A7A439393i93 
3A07EE3IFDF7EFBIEF7EFFBBSF7EFFFCFF:90 
3BO7EFFBFFF7EFFBFFF7EFFBFF77EFFBFFFiE4 
3ECO7EFFBFFF7EFFYFFF7EFF9FFF7EFFBFEFi38 
DO7EFFBFEF7EFFBFEF7EFF3FF77EFF 9FF7 iiE 
3EO07EFFBFF77EFFBFFB7EFFBFCB7EFFYFBBiE6 
FO7EFF9FOD7FFFBFOD7FFFBF7D7FFFBF 9Bi05 


Sumi 9A016E2E9F73058A2F1OF5428AD 4AD1iEO 


dd 10+4112 3144145161718 41944 1B E+D 1E 1F Sum 
30007FFFFE77FFF9FDF7FFFFFDF7FFFFFBF 538 
30107FFFFFA77FFFFFBB7FFFFFDB7FFFFFE7:i18 
3⑳207FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF ijFO 
3⑳307FFFFFFF7FFEFFFF7DFD66E77C7B8343:7B 
3⑳407E778727762EBE7F718850 37184E1 ali71 
3⑳507A4313937EE3IFDF7C7B1E9FSA3FBHSF:24 
36066YFFCEEY46BFBFEI4EFFBF2B7EFFBE 17 5:B2 
3⑳707EF9BF377E90BSE36609 21E3429F 93F7:EF 
38064FFBFEF7EF9BFEF7E90B3EF7E09 21F7 :85 
309066 9F 93F742FFBFF764F9BFFB7E908B3CBi29 
3 人 07E09218B7EF930D7E7FBFOD7E79BF7Di18 
3807EFOBS3987FF921E77FFF93DF7FFFBFDF:48 
3EO7FFFIFBF7FFFIF77FFFBFBB7FFFFFDBiFO 
3D07FFFFFE77FFFFFFF7FFFFFFF7FFFFFFF iDB 
30EO7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
30FO7FFFFFE17FFFFF837FFFFFBF7FFFFF1Fi06 


Sum: 98 81F3226DE5378BE74082F9E77E6 98 0 :BD 


dd +0 1112 13 14 1516 17 18 19 1 1B EtD tE 1F SuW 
区 007FFFFEIF4FFFFEF63FFFEYF71FFFC7FiE 
3E1078FFF87F7EFFFB7F7E7FFE7F7E7FF2 7F iC2 
区 207CFFEDFF7D9FDEFF7F6FDEFF7F702F7FiC8 
3E307EEFF77F7EC7E87D7E3BEF317EEDD9E3:i8B 
40 4D8EBICE7678A43BF688AC3IF718AE2 1FiE1 
50 71 EC2COF 78C2CO 7F 78 42 80 71 SE 47 80 EiSE 
SE60 4 化 0380C7460380EF303808F7083810F:i26 
707E41001D46010019460000363000043:59 
3E80710000077080000F7800000F7800001Fi95 
90780000F7E0000F7C00007F7FFFFFFF:E9 
AO07FFFFFFF7FFFFFE17FFFFF837FFFFFBFiE6 
SEBO7FFFFFIF7FFFFEIF4FFFFE 下 63FFFEYFiSF 
CO71FF7E7F78E6387F7EE7187F7E4EDE7Fi9F 
EDO07E6EF27F7EFDEIFF7D99COFF7F0BEOFF:DO 
3EEO7F00007F7E00007F7E00087D7E380F31:F4 
GEFO7EEE19EE4D8BE31E7678843BFGS8BACGKIFiE9 


Suwi 460550EADA864200FFCB 163D 47 21 6E: 和 E 


Add 101112 1415161718191A1B1CtD E 1F SuW 
3F00 71 8AE2 IF71C2CO3F78C2EO7F78 4280 71i32 
3F10 SC 47 80E34E0380E7460380CF6303808Fi69 
F207083810F7E41001D4601001946000033:36 
3F30 3000043710000877080000F7800000F:24 
F407800001F7800003F7E0000F7E00007Fi04 




















FS0OFFFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF gz70 
F607FFFFFFF7FFFFFFF7FFFFFFF7BFFFBFF:E8 
3F707EFFF9FF7DFFF3FF7EFFFBFF7EFFFBFFiCF 
F807EF7B9FF7F739BFF7E718BDF7L31C3 9Fi21 
907E1BEB1B7FDDEA187F80033785F78E3:47 
FA0 709EE6777988C78F7FO0887E37F9 9FF9 ie1 
3FBO7FFFFFFD7FFFBFOF7FFFBEIF7FFFBFIFilD 
FEO7FFDCEBF7FFEO1E37EE1FB877FOFESE7:83 
3F0O7E378E 人 F7FBBOF717FFFIFB97FFFDED1 2D 
YEO7FFFE46F7FFFC6577FFF278B7FFE00 9D:96 
3FFO7FFE 下 IF7FFEF1BF7FFFE3C77FFFFFF9 5: 前 


Sum:F82D81FA8F8EO308621900587B751IE86i2D 


人 dd +19111213141451617184944 BtE1tD 1tE 人 Sum 
40007FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFFiFO 
4010 7BFFFBFF71FFF1FF71FFFIFF7B9FFBFFi48 
402078BO0FFAF649F98IF41FF02 半 66FF9BFFiFD 
40307EFFFA7F7EF7BHF7F739A7F7E718BDFiC6 
40407E31C39F7E1BEB1B7FDDEAIB7F80033524 
4050785F78E5S709CEe777988C7BF7F0887E3:E3 
40007F999FF97FFFFFFD7FFDBFOF7FCBBEIFi68 
407079888FIF78CDCE 時 784E0O1E37EE】FB 87 i04 
40807FOFESC77837BE 他 70BBOF7179111F89i3 
40907F11DED17FBBCE46F7FFFC6577FFF278B:75 
40A07FFE009D7FFEEIF7FFEF1BF7FFFE3C7 :45 
40807FFFFFF97FFFFFFFFFFFFFFF7E7FFFFFiE9 
40C0703FFFFF600F81F70007EF78077DDF:i44 
4000780FSAI780F8D417F087C6F7FF77D 好 i4 
40E07FF7032F7FF6009F7FF803FF7FFE07FF:BH 
40F07FBE67FF7F9ESFF7EOEFO7F7E06F80OFiIE 


Sum: CI1DB235282B43E04F6DF 人 6AEOCFS4 3Ei98 


dd 40t112 3141516171819 448 守 10 EF Sm 
41007E03FO0016F03FO01678010016E300 01:E4 
4110 41EFCO01400FDF 01 40F7 9F 01 41 F8 3E 23 91 
4120 43F284E743EAC9CF42080DDF4062DDFiF9 
41307E65485SF7E6087017E6E 13C17841FBC1i23 
4140 6001FB814002F801403E0001407E0011:66 
4150407E000940FE000F43FE003F7FFE00 FiS0 
41607FFF003F7FFFFOYF7FFFFFFF7FFFFFFFi62 
41707E7FFFFF70YFFFFF600F813F7000001Fi66 
41807800001F78000001780000017F00000F:i17 
41907FFO0000F7FFO0000F7FF000IF7FF8O5FF:05 
41807FFE07FF7FBE67FF7FESFF7EOCFO7Fi18 
41807C06F8OF7E03FO01 好 0FO0167801001:56 
4iEO0 63E0 1001 41E000014000000140000001:FB 
410040000003400000074000000F4000001F:38 
4iE04000001F7E00001】F7E0000017E000001iFA 
4iF0 780000018000000140000001403E0001:98 


Sum: 6 16 BS 70 32 29 5D 58 ECC4 22 52 29 BB BBE2:5B 


Add 10111213141516171819141B 柳 DE 半 Sum 
4200 40 7E0011407E000940FE000F43FE003F:6 
42107FFEO0OF7FFF00F7FFFFO3F7FFFFFFF iA2 
4220 00 000000800000000000000000000000:80 
4230 00000000000000000000000000000000:00 
4240 00 1000000010000000300000203800FOz98 
4250 3E78007EYFD800341BB8001AOEF8000[:7E 
4260 0F OL000E3EF6003E3BFF00E2YFAO03FE:9 
4270 3980003A308000160000001E00000018:ED 
4280 00 00 00 20 00 00 00 00 00 01 80 00 00 01 CO0 00 :42 
4290 04 01E0000E00EO001E00800000300000:81 
420 003L0000081C00000E08000007000000:7B 
4280 0780CO0003CF8O00037L000002 胡 0000:C6 
42C0 27 FE 00 00 3B 67 00 00 39 CO0 00 00 01 80 00 00.41 
4200010000007E0OFFFF7E007FFF7E00FFFi35 
42E07E001FFF7EO11IFFF78430FFF78EYEFFFi27 
42F0 73E7F7FF7FC7FFFF7FE7FFFF4F87FEOF:iBB 





| 
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Sum: 6732B6432B9F55DCEDFO37D637E94CE 58:97 
に 


dd 101112 13141516171819181B 区 DE 守 Sum 
4300 41 83FE03 40 03FE 01 40 03FF 01 40 05FF 81 :0D 
4310 60 01FFC1 40 00FFC1 40 00 7E 01 40 00 78 01 :99 
笠 20 40 00 80 01 40 1FFO0 01 42 0FFF C1 47 OF.FF El 18 
43307F000F817E001F8378007FOF6001BF7FiD4 
43407001DFFF7401EFFF6EOOCEFFF5E00BFFF:0A 
4350.60307FFF66BE7FFF63DD7FFF60EBFFFF:BS 
436070370FFF70101FFF78001FFF78007FFFiDF 
43704001FFFF60007FFF78003FFF78087FFF:D1 


s4380 441FFFFF7E3FFFFF0000000080000000:98 


4390000FEO00007FFCE00007FFC00007FFC00:20 
430 007FFE00000000000000000000000000:78 
438O00000000000000000000000000000000:00 
43E000000000000000000000000000FCO00iFF 
430000FFF8B0003FFFE0007FFFE0007FFFF00:FE 
43EO007FFFF00OFFFFF8OOFFFFF800OFFFFF80: 胡 
43F007FFFF8O07FFFF8003FFFF0003FFFE00:0B 


Sum: 32979C17DA0D41146B9F4E6EC1693E:28 


Add 101112 314151617181918 48 化 1D TE F Sum 
4400 01FFFE0000FFFE00007FFO00003FBO00:27 
441000000000000000000000000000000000:00 
4420 00000000000000000000000000000000:00 
44300000900000000000000000007FFFFFFF:7C 
44407FFFFFFF7FF9YFFF7FF93BFF7FF93FFiBE 
44507F8A67FF7FE44FFF7FF83FFF7FF83FFFi68 
44607E4E7FFF7E04FFFF7E0O18IFF7E0O100FFiYF 
447078FO000FF7F9801FF7E007FFF7CO1FFFF:F5 
4480 783FFFFF41FDFF 8BF 43F8FF 07 47F8FF 01 :01 
4490 44FDDFO1607FBF817CFF7FE17FBFF3E1:BD 
440 58 7FE1CE144F7F3C147EFFFC147FF1FC3i86 
4480439F3FEF439F3FFF439FBFFF43BFFFFFiDO 
44CO463FFFFF7E00OFFF780007FF780003FF:05 
44007E0003FF788007FF71803FFF79803FFF:E2 
44E078007FFF707FFFFF73FFFFFF67FFFFFF:87 
44FOFFFFFFFF7FFFFFFF6FFFFFFF67FFFFFF:48 


Sumi 85 SL618804688EC8 0E 74EA 80 84F4 40 7B :C9 


dd 40 4112 314 541617 48191A1B ED 正 F Sum 
450067FFFFFF67FFFFFF47FFFF7F67FFFFYFi30 
4510 47FFFF3F67FFFF3F67FFFF 27 61FFF7 18 :26 
4520 72FFF31B72FFF32771FFE33F43FFDB3F:FB 
4530 71FFDBG3F71FFE32741FFF31B70FFF31BitF 
4540777FF327777FF3YF4F8BFF3YF7DF7F3GYFiEE 
4550 78F7F33F7274F23F4D8B707F6DBB70FFil6 
4560 727EFIFF7EFFE3F1 7B 7F DD C7 77 BF DD E7 的 
457077BFE19458EF7DF7DF6E3DF 70 7AC9 03 Fi 
4580 78FA300DSFF6302D7FCEO08737CDE3BFF:BE 
45905A3E31FF660003FF7E0003FF7FEO00FF:OE 
45807FFCE00F7FFFFFFF7FFFFFFF6FFFFFFF:fE 
4580 67FFFFFF67FFFFFF67FFFFFF47FFFF7F:FO 
45EO47FFFF3F47FFFF7FFFFYF67FFFF 27 :38 
4500 61FFF70370FFF30370FFF3 27 71FF E3 F :D8 
45E0 43FFCGG3F4IFFE3SF4IFFE3 27 41FFF3 03 :06 
45F070FFF303707FF327707FF33F400FF3Fi10 


Sumi 7EDEEDE46EEE6EAESF03E8aO56 人 FCBB80:87 


Add 10 141 12 1344 4516 17 18 19 14 1B 40 TE F Sum 
4600 40 07F33F 40 07F3F 40 04F23F4008707FiE 
461060 3870FF707EFIFF7EFFE3F1787FE1 EL: 
4620 703FE1C170F0019400E001F400600 FEiCB 
4630 40 02 00 13 40 02 00 01 40 06 00 21 40 0E 08 7 :E8 
4640 40 1E38FF42E31FF660003FF7E0003FF:20 
4650 7FE000FF7FFE003F7FFFFFFF7FFFFFFFi10 











4660 7FFFFFFF7FFFFFFF7FFFFFFF7FFFFEFFiEF 
46707FFFFE7F7FFFFE7F7FFFFB7F7FFFFB Fi 
46807FFFE82F7FFFFOIF7FFFFO1F7FFF 00 17 4 
46907FFFEOOF7FFFEOOF7FFFAO0B7FFFCEO 07:48 
46807FFFEO077FFFEO0777FFCO0763FF4005:E 
46B0 63FF800363FFBO0343FF80 0342FE 80 03 5:52 
46E0 41FF0001417F000140FF000140FF 00 01 :82 
46D0 40 BF 00 01 40 6F 00 01 40 57 00 01 40 57 00 01 :EO 
46E0 40 0400 01 40 0000014000000140000001508 
46F0 40 000001400000014000000140000001:04 


Sum: EE3ASFDA00E62050 9766 9E 24D6E9 81 38i2E 


Add 10111213141516171819141B 北 DE 壮 Sum 
47004000000140000001400000017FFFFFFFiF 
47107FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:iFO 
47207FFFFEFF7FFFFD7F7FFFFD7F7FFFF87Fi64 
47307FFFFB3F7FFFE82F7FFFFOIF7FFFFOIFi64 
47407FFFDO177FFFEOOF7FFFEOOF7FFFA00Bi68 
47507FFFCEO077FFFEO077FFFEO0777FFCO07:OE 
47606BFF40056BFF800363FF8O0343FF8003i46 
4770 42FE800341FF0001417F000140FF0001:05 
4780 40FF000140BF0001406F000140570001:88 
4790 40570001400400014000000140000001iSF 
4780 40 00 0001 40 000001 4000000140000001:04 
4780 40 000001 400000014000000140000001504 
47ECOFFFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:70 
47007FFFFFFF7FF9FFFF7FF6FE7F7FBF 38FDi25 
47E07FB9E9F97FBSB7F97FDE78F17FEDCEE1iBB 
47F07F0D86G7FEAED837FF77A077FFEFDOFiME 


Sumi E4 E2 92 22 3 186 46 5BBOF932 71 CBE8 862:05 


人 d 10+1 12 1314415164718191A1B 1t 10 ESum 
480073FF48OF71F8B60779C9FF077D87FF03ieF 
48107E78F837DCEES8S708627837ECDDF83575 
48207F7BE3837EFD3883794B18837187 37 03:50 
4830 63FDE9077F7BF4 07 7E 30 28 07 7F 正 DB 03 iC7 
4840 79 7F8 0176DBFE01 算 光 7E01 7AE7 SE 01 :30 
485072C33015B66BBO16FBD901SF7EB401i6F 
486066SEFO175D5F7C17FSE 角 E17E7F SFE1:91 
48707E7FFFE17FFFFFFF7FFFFFFF7FFFFFFF :1 
48807FFFFFFF7FFFFFFF7FF9FFFF7FFOFE7F :58 
4890 7F 8038FD7F8009F97F8007F97FCO 00F1i64 
4840 7FEO000E17FCO00C37FEO01837F『7 02 07 :64 
48807FFEO10F73FF020F71F8B60779C9FF 07:7E 
48ECO07D87FFO7E00F3837E00E3837CE 00 27 83:00 
48007E001F837F0008S7E00038379000583:28 
48EO718007068FE09077F7804077EE0807 5:65 
48FO7FED8037987F80170C3FC01 40007E01i00 


Ad 10 1112 1344151617 1819 1 41B E+0 在 1F Sug 
4900 40001IE01400000140000301400002 01i44 
4910 4000040160000F01750807C17FSE0OFE1:77 
49207E7FSFE17E7FFFE17FFFFFFF7FFFFFFFi12 
49307FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF siFO 
49407FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFFiFO 
49507FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
49607FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF siFO 
49707FFFFFFF7FFFFF 叶 7FFFFFFF7FFFFFFF:FO 
49807FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFr:FO 
49907FEOOFFF7C0000FF6000000F40000003:78 
4940 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4980 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
49E0 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4900 4000000140000001400000017FFFFFFFiSF 
49E07FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF ijFO 
49F07FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFFiFO 





20 る 3 








プラ フィ ッ ク 花 私 こい こい 


ダン プ ・ リ スト 








Sum: 753788DE927709DEB8EEFO1EEDS3407DEEi18 


dd 101112 131415161718191A1B1tEtD 導 F Sum 
4A007FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
4A107FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF :FO 
4A207FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
4A307FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
4407FFFFFFF7FEOOFFF7E0000FF6000000F:B3 
4A50 40000003400000014000000140000001:08 
4660 40 0000014000000140000001400000015:04 
470 40000001400000014000000140000001:04 
4A80 40 000001400000014000000140000001:04 
44907FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF :FO 
4AA07FFFSFFF7FFFBFFF7FFFBFFF7FFEAFFFgi7F 
4 人 B07FFFIFFF7FFFBFFF7FFFBFFF7FFF 2FFF ECO 
4AE07FFFBFFF7FFFFFFF7F5FFFFF7EFFFFFFi0D 
4AD07FFFFFFF7FFFFFFF7FFFBIFF7E0OFAO7FiD2 
4E07EIFAOIF7007AOOF60078007460030007:D8 
4AFO 40 000003400000034000000140000001:08 


Sum: B215061EA6BE260C93SE9027309 78 92.:73 


Ad +01112 131415161718 419 118 柳 10 ESum 
4B00 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4810 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4B20 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4B30 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4840400000017FFFFFFF7FFCE7FF7FFC 63FFiFB 
4850 7FFE67FF7FF7SFFF7FE389FF7FF1B1FF :F1 
48607FFEFF7FFFIFFF7FF1B9FF7E708B3FF:i83 
48707E7F2FFF7E679FFF674FBIFF63SEO3FF 3 
4880 8BF07FF7F078SFF780F 15FF7E 10 31FF i2 
48907C08A07F7E19AOIF7007AOOF60078007:08 
4BA0 60 03 00 07 40 00 00 03 40 00 00 03 40 00 00 01 i31 
4BBO 40 00 0001 40 00 00 01 40 00 00 01 40 00 00 0F i12 
4BEO7000007F7E0000FF7FEO00FF7FFO 01FF:3⑲9 
4BD07FFEO3EF78FFC7837FF8FFEF70377FC3i7E 
4BEO7EE9BF9B702CBE4374898BEDB70377FDBi15 
4BF077B8BFFC374BFFFDBFAFSBEEF 74EB 7D DD :53 


Sum: 2BE2A1545066C3C2888B08CAOE 26F7 90 :2D 


Ad 10 11+2 13141516 17 18 19 1 1B EtD EtF Su 
4E006406FB9B55DF73⑰7605BEE6F5AB7DDSFz78 
4 柳 10 79 61 AFD 72 FB 25FB 75F6 81 E7 40 00 9D DF :9D 
4[20 40 00 19 9D 40 00 15 91 40 00 0[E 41 40 00 0E 81 』:38 
430 40 00 00D 81 40 00 08 01 40 00 07 01 40 00 08 01 
穫 40 40 00 0D 01 40 000B 01 40000601 40000D 01:2F 
450 40 00 0E 01 40 00 0D 01 40 00 0B 01 40 00 07 01 i31 
4[60 40 00 00 01 40 00 0D 01 40 00 08 01 40 00 06 01 :22 
4E70 40 000D01400008014000030140000[01:28 
4C80 40 00 03 01 40 00 0F 01 7B 70 YF 01 42 OF CO 81 :S1 
490 76F8FD 8D 47 473837B39E40OF43C6787Fi7B 
4EA07A3FB7FF4000001F7FFFFFFF 40 000001:S58 
4CBO 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4CCO 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 i04 
4EDO 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4EEO 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4FO0 40000001400000014000000140000001i 

Sumi 056ESA4E4MEEFB62017F9C3801F BEEECAiEO 
dd 10111213141516171819141B 北 40 正 半 Sum 
400040000001400000014000000140000001: 

4010 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4020 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4030 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4D40 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
4D50 40000001400000014000000140000001:04 
4D60 EE7FFF660F32F37F1B40617FF76893』45 
40707EE99F7860% ぬ F7E98B6237FBEB46 si71 











ーー 





4080 7878BF7610383FF 
4090 7EFFB2EF7DFFAOFF 
4D080 39F9FBF7BDFBF 


72.43 8DCF 7EFF BD 07 iD4 

6 

時 7 
4DB07BBFBFDF7F7FSFDF7| 
7 

7 

7 


"YFBF7F410F 半 7Fi08 
BFBFBF71 時 時 DFiB4 
FBFE77F7F 9FCF:04 

40EO7EFFBFEF7EFFBFFF FBFFF7DFFFFF:S9 
4D007CFF9FFF79FFBFFF FBFFF7DFFBFFFiC5 
40E07FFF3FFF7FFF9FFF 時 FFF7FFFFFFF:90 
4DFO7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:iFO 


Sumi 062765F429CB8S0036FFE7A25FD 72 2EiFE 


人 dd 10+1112 13144516171819 1 1B E+tD 人 F Sue 
4E007FFFFFFF7FFFFFFF7FFFFFFF7FFFFF 了 F :FO 
邊 107FFFFFFF 43E7FFF660F 32F37F 1 4061:50 
邊 207FF768937EE9F9F78603% ぬ 6F7E988B623:BE 
4E307FBEB463738S8BF7610183FF72 438DCFi:EX 
算 40 7EFB BD 07 7EF7 B2CF 7DF1 AOFF6430BF 7F 12 
4E5041092756 提 83 折 7BDFA7B8371BF BEBFi29 
邊 607189B8SF7BBOBEDF7F793037F7F Ai 21 iC5 
4E707F7F920972FFBF2F60F9BFE772FO083C7:D03 
邊 807D03921C764IF93EF413FBFFF75F9BFFF:OD 
征 90 7DFO BSFF 78F921FF7BFF 93FF7DFFBFFF:iF3 
4EA07FFF9FFF7FFFBFFF7FFFBFFF7FFFDFFF:90 
和 E807FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
邊 ECO7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
4E007FFFFFFF7FFFFFFF7FFFFFF97FFFFFF1 iDC 
4EEO7FFFFFE37FFFFFE77FFFFFC77FFFFFE7:4 
邊 F07FFFFFBFSFFFEFBF47FBFF8BF61FFFF1IFi16 


Sumi 9F 12 B6F 人 35 22 7672 10E5FFE680 45 69 40 i32 


dd 101112 3141516171819 提 18 柳 1DtE Sum 
特 0070FFFFIF787FFFIF7E2FFC9F7FFFF97F iDE 
4F107FIFFBB97E4DE7B17EEOOFBS7EFBF7 3 :EB 
4 特 20 7EF7FB 7DEFFD 27 7D E3 F8 67 7C 1D FB C7 :BB 
4F30 7BF6E&EF7F07SEOF7103B8OF6003FO1IF iC4 
特 40 6003701F40037011460 03 200140 01 20 07 :E2 
4 特 50 66 01 80 1F 66 01 0 31 77 01 E0 63 47 00 CO 47 7 
牡 006300EOOF300COOF6180COIF7000401FiF5 
4F707000403F7800003F7800203F7FFFFFFF:F9 
和 807FFFFFFF7FFFFFFF7FFFFFFF7FFFFFF9:EA 
特 90 7FFFFFF17FFFFFE37FFFFFE77FFFFFC7:76 
4FAO7FFFFFE77FFFFFBFS5FFFCEF8F47FBCFBF:i 婚 
和 FBO61F3E71F70E6771F78667FIF7C2EFC 9Fi05 
4FCO7FFEF87F7FIEFB3⑲7E0DEO317E000033:0B 
4F007E0000237E0000237C0000277C0000675:(6 
4FEO07E1IE03E77BF606EF7F 07 1EOF 7103B8 OF:94 
特 F0 6003FO1F6003FOIF6003FO114003E001:8E 


Sum: 6 18BA3456BE717046F30396FB455B0E:7E 


Add +0+1+21314415 1617 48 19 1 4B 4E 1D E+F Sum 
3000 80 01 EO 07 66 01 E0 IF 66 01 E0 31 77 01 E0 63 :E1 
5S010 47 00EO476300COOF6300EOOF6180EO1IFi72 
50207000401F7000403F780000F780020Fi 衝 
S030FFFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:70 
S0407FFFFFFF7FF7FFFF7FF7FFFF7FE3FFFF:C4 
50507FFSFFFF7FFBFFFF7FEBFFFF7FF3FFFF iCO 
S0607FFL7FFF7FFDFF7F7FFDFFYF7FF9FF7Fi 
50707FFSFE7F7FFSFEFF7FF7EEFF 7DF7E4 7F :9% 
S0807887C5SFF7FA668FF7F 杉 3⑳YF4E4E347Fi28 
5S090445FC7FF6409E8FF5590CO7F4BBBDEFF:BF 
Ss040 88DFFF33A17FF7B7EelFF4E7EFIFF:9D 
S0B0 46F1FDFF64E7FFFF599BFFFF4831FFFF:iC5 
SOEO 4BFSFF3F 73E6007F7200FF7F606EFFFFi10 
5S00066E67FFF4E663FFFSE233FFF7F7BFFFF si71 
SOE07FFFFFFF7FFFFFFF7FF7FFFF7FE7FFFF:BO 
SOFO7FCSFFFF7FESFFFF7F37FFFF7E167FFFi66 


Sum: 063B3L201B507D60327E16F202BFIE34i7E 











209 


グラ フィ ッ ク 花 札 こ い ご い 


ダン プ ・ リ スト 








Ad 101112 3141516171819181B 柳 tD 導 守 SuW 
S1007F203FFF7FF27FFF7F3BFFFF7E0BFF7Fi8B 
S1107F3EF7FFEOEF7F9D9F677F8DF303i78 
S120 7FE9E16767F3FO7F6BB27EFF7314 2E Fi47 
S1306512640F4087CSIF676668FF7F 角 303Fi93 
S140 生 4E347F44SFE7FF6409EBFF5590EO7Fi00 
S150 4BBBDEFF3AODFFF830217FF7B66 01FFiFB 
Ss160 4E7EFIFF46FIFD7F64CE7EE3F599BE6YFiBE 
3170 48 31E767 4BFSEF0373E600677200F77Fi7F 
5180606EE3S7F66E6623F 和 66363FSE233F7Fi83 
5S1907F75FFFF7FFFFFFFFFFFFFFF7FFFFFFF:iEE 
51407FEOFFFF7FFO13BF7FFE65037FFF6LYFi7 
S1897FFF6EFF7F8O6DFF7FO16DFF7FFE01FF:BD 
SiEO07FFFEOFF7DF7EOYF7E23E21F7E03E7FFiB9 
51007E018BFFF7EO1IFDF7801F9F78013E1FEBS5 
SiE07E00381F7E00380F7EEF30017ECF 90 01 :F4 
SiF07CEFAOO17DF1303F60EE2BFF6B0ODD9FF:B1 


Sum: E1 98 SE 32 96 9 1C 94 8B BDF4 06 44 E8 E5 76 iD1 


Add 10+112 131415161718 19 1 1B EtD 1E F Su 
3200 5A 51EDFF5AAA0DFFSB146DFFSCE1EE07:92 
5210 9 FD CE8 01 76 70 20 01 77 06FO 01 77 BE 70 01 : 邊 
3220 73 3E 60 01 7[ 1D 40 01 79 01 80 01 78 07 F0 01 :56 
5230 7007F8016007F90178OFFDE171EFFFF9iE 
S2407BFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:iEE 
52507FFFFFFF7FEOFFFF7FFO138F7FFE0103:6B 
32607FFF003F7FFFOOFF7F8001FF7F01 01FF :B9 
32707FFEO1FF7FFFEOFF7DF7EOF7E23E21FiEF 
52807E03C7FF7EO1B8FFF7E0O11FDF78013F Fi28 
529078013EIF7E00381F7E0038OF7E003001i18 
S2807E0010017C0000017E00003F600003FFi29 
32BO 600001FF400001FF400001FF400001FFi20 
S2C0400000076000000170000001700000015i88 
5320070000001700000017E01000178018001:SA 
52E0 78 07F0 01 7007F8018007F901780FFDEC1:86 
5S2F071EFFFF97BFFFFFF7FFFFFFF7FFFFFFF:E8 


Sum: 0B88EFSE1922EXIE3F981D BE2EC6 10 82 :5D 


Add +0 11 12 13+44 145 16 47 18 19 1 1B 1[ 1D TE 1F Su 
5300 000000008000000000000E0000000588:1B 
S310 0000088000001E6000007FBO0000010DHi38 
5320 000000FE000001ECE0000000600000000:D1 
5S3000000000000000000000000000000000:00 
340 00000000000000000000000000000000:00 
S3500000000000000000040000000E000000:10 
5360 0E 00 00001E0000003A00180036003E00:F4 
5370 3F8 OE 00 28FO 00 18 EFO 00FO3388 0180:21 
5380 25 9E 03580F SO007B8BIESEOE18ED80018:i08 
S3900EC3000831FE0008YF1IE00001E700000:F5 
5S3800FA000000FDO0000EFE000038SE0000:3C 
5S380300F00007FFFFFFF7FFFE1IFF7FFFEO61:B8 
53C0 7EFFFO037F3DEO037FOEBO077FB440 03:47 
53D0 7F 80 00017F80O02017E00040170000801:FE 
53E0 60 00 07F97FEO07FF7FCO87FF7FE3ESFFiBE 
SF07FCFF3FF7FDFFBFF7FFFFFFF7FFFFF7Fi10 


Sumi 8854FF089089E7078F3⑳07EG77832F0BijF 


Add 10+112131445161718H19+4A 1B TE tD 1E 1 SuW 
54007FFFFFIF7BFFFF 87 3FFFF 83 65FFFFC1:B4 
5410 6DFFFE016EFFEOO1SEFFEO017AFFEO01iOF 
5420 7 01 80 01 73FB CO 01 688F7FO0 03 7EF7 F0 03 :E5 
5430 73 BBFB8 03 60 9DF8 03 43 10FO0 03 46 1F E0 43 iEF 
5440 46 1823CG4EO00FES40007FES4000FFF7i8B8 
5450 40 01FFFF600FFFFF4001FFFF4000FFFF:29 
5460 41007FFF47EO7FFF0000000080000000:iC4 
5470 00010000002080000017C400000FEE00:79 
5480001FFE00003FF800001IEE0000000000: 前 
5490 00000000000000000000000000000000:00 














344000000000000000000000000000000000:00 
34800000000000003F8O00007FCO00007FCO:3D 
S4CO0007FFCO000FFFCEO000FFFEO003FFFEO:A0 
3400 007FFFEO007FFFCO003FFFECO001FFF00:iB8 
S4E0000FFF00000607000000000000000000:1B 
S4FO 00000000000000000000000000000000:00 


Sumi AO0 880F 85S D 58FO 6DFE 87 BACE 3 81F8 9E :E1 


d +0+111213141516171819141Bt1D 正 F Sum 
350000000000000000000000000000000000:00 
SS100000000000000000000000007FFFFFFFgi7C 
35207FFFFFFF7FFEFFFF7FDF7FFF7FEEBBFF:iF6 
33307FF297FF7FE2DFFF7FCE2D07FF7FE81BFFiME 
S3407F9E3FFF780EFFF78067FFF7E 00E1FF:73 
SS507E00401F7F86000F7EFE40076C7E600FziOD 
5S560 440F3EIF400FFFF40 0F 97 79 40 07 B2 71:04 
3570 40 0FF2 41 40 08 34 1 70 00 BD 81 78 7B CA 21 
5580 7F FE FE 21 71 E1 09 1 70 CE2 4CC1 60 24 8 01 :02 
33990 40194D61400EEE734007E537007CO3:7F 
S50700F003790E00757FOE00717F 9 00 21:E4 
S5807FFE00017FFE00017FFF81037FFFC3 87 :C4 
SSEO7FFFE7877FFFFFBF7FFFFFIF7FFFFEFi4F 
S500FFFFFFFF7FFFFFFF7FFFFFFF7FFFF7FF:68 
SSEO0 7FFFF3FF7FFF9FF7BFF63FF79FF63FF 536 
SSF0 79FF927F79FFF1BF79FFF1BF793FF27Fi02 


Sumi 63C7F934 14 3 09 0 44 84 6D 42 08 07 27 35 :GE 


Add 4014112 3 14 151647 18 419 14 4B 想 10 ETF Sum 
5S80078DFF3FF78DF3FF613ED3FF59FED3FF ze 
S610 59FF3FF61FFFSFF793FF3FF78DFF3FFiCF 
5620 78 DE 43FF 79 3B BDFF 78FBFDFF 78FDFDFF:E6 


S6307L7E7BFF7F7DBDFF7EFBDEFF7 FF i23 
5640 77BFF9FF 678EFB9F SEF4 77 4F SE 71 23 40 :52 
5650 69 26CO 99 78C6CO 31 76CO38037900FE07: 

S6607FO13F8F7E02DFFF7E02DFFF7807FFFiC5 
3670 700FFFFF603FFFFF403FFFFF403FFFFFi14 
3680 407FFFFF7FFFFFFF7FFFFFFF7FFFFFFF :31 
56907FFFF7FF7FFFF3FF7FFF93FF7BFF03FF:70 
3680 79FF 03FF 79FF927F79FFFO3F79FFFO3F :51 
368079FF27F78IFF3FF7BIF33FFa1 正 15FF:2E 


S6E0 41FE13FF41FF3FF61FFF3FF793FF3FF:BF 
36D0 781FF3FF7BIC 43FF793801FF78F801FF:80 
SeE078FEO1IFF7E7EO3FF7F7EO1FF7EF800FF:DE 
36F0 7B6000FF700001FF6000039F4000070Fi9F 


Sum: EE 62 CD 94 20 E0 26 42 06 37 DB 44 02 5EE8 86 :4D 


dd +0111213141516171819141B 化 1D 下 F Bum 
37004000030D600000997000003170003803:95 
37107900FE077FO1YFBF7E021FFF7C021FFF:06 
572078073FFF700FFFFF603FFFFF403FFFFF:54 
3230 403FFFFF407FFFFF7FFFFFFF7FFFFFFF :32 
57407FFFFFFF7FFFFFFF7FFFFFFF6FFFFFFF:EO 
3750 47FFFFFF47FFFFFF47FFFFFF42FFFFFF:OB 
S760 41FFFFFB417FFFF140FFFFF140FFFFF1 :48 
377040BFFFA1407FFFE1407FFF41405FFF81iiE 
5780 40 3FFF 81 40 3FFE 81 40 3DFF 01 40 28FF 01 :E2 
3790 40 18BD 01 40 107E0140007E0140 007E01:63 
57A0 40 00 78 01 40 00 7L 01 40 00 7E 01 40 00 1C 01 :92 
3780 40 00 04 01 40 00 00 01 40 00 00 01 40 00 00 01 :08 
57E0 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
S7D0 40000001400000014000000140000001:04 
57E0 4000000140000001400000017FFFFFFFiGF 
37F07FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 


Sum: F7 58 7432 15 0930 5C 52F811 64 5AC2EH 74 :6 


Add +10+11213141516171819 1 1BtE+D +E F Su 





210 














58006FFFFFFF57FFFFFF57FFFFFF47FFFFFF:58 
S810 42FFFFFF41FFFFFB417FFFFS40FFFFF5:ae0 
S820 40FFFFF140BFFFA1407FFFE1407FFF 41:4 
3830 40 5F FF 81 40 3FFF 81 40 3F FE 81 40 3DFF 01 :99 
S840 40 28FF 01 40 18 BD 01 40 10 7E 01 40 00 7E 01 :OE 
5850 40 00 7E 01 40 00 7 01 40 00 7C 01 40 00 7[ 01 :F4 
S880 40 00 1E 01 40 00 04 01 40 00 00 01 40 00 00 01 :24 
S870 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
3S880 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
5890 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
S8A0FFFFFFFF 7FFFE7FD7FCFF3F9 7 87F3F9 :B7 
S8B0 7B 78FB 9B478EFF6FSEEEFB8F1S8 6DFB9D:S5E 
S8CO 6CFBFB 0D 77 CDFD DB AF B7FE 77 74 78 FD BB iC 
S80D0 7DCEE3E77D86EE777ECDEE3⑰77F7BF66Fi28 
S8EO 7AFDFBDF 734BF7EF 73B6FASF63FE45BFiDA 
S8FO67BO07FF7F980FFF7F8EIFFF7FEE OFFF:C4 


Sumi FS 73 6F [2 44 D7 0E[E 52 CF E5 32 30 99 2B BA i74 


dd +10 11 42 1314 451617 18 19 14 1B E+10 正 半 Sum 
59007FFE07FF7FFE079F7EFF071IF7E7CC7 3539 
39107E7B7F37F47BFE77FDEEE6F7FDB6DBF:iS52 
5920 7F EE 3 C7 7FF7 6E 77 7F 人 F CE 37 7F 34 B6 6F :99 
39307C2B7BDF782E3⑰EF60366A5SF40 28DDBFi3i 
59404017EFDF400ASFCF4010DBFCE740FFFCFiED 
S950 407FFFFF7FFFFFFF 7FFFE7FD7FCFF3F9 iD5 
5960 7[ 87F3F9 78 00FB 9B4000FFOF4000F801:84 
5970 40 01F8 01 6003F80170 01FE 0⑪60 07 FE 07 :72 
5980 74 00FC 03 7E 00E0 07 7E 00EO0 07 7E01EO 07 
59907F03FOOF7A01F8IF7303FOOF7 バ B6F8 IF iC8 
59A063FE45BF678007FF7F980OFFF7F8CIFFFiCE 
S9B07FCELOFFF7FFE07FF7FFE07 9F7EFF 07 1F:A0 
59C07E7EC737E787F637F400FE77FCO0OE6Fi3B 
S9D07FCO00DBF7FEO00077FFO00077FA00007:0D 
59EO07F30000F7E20001F7820000F6030081FiD7 
59F0 40 28 1DBF 40100FDF40081FECF40 1DBFC7:9B 


Suai (30DCEE70218B40E2ECCEE0 7 87 8290:7E 


dd 1011121314415161718191A1B 柳 0 正 閉 Sum 
S00403FFFEF407FFFFF7FFFFFFF7FFFFFFF:02 
SA107FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFFiFO 
SA207FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
S830 7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:iFO 
S6407FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
SA507FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
SA607FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
SA707FEOOFFF7E0000FF6000000F40000003:7A 
SA80 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
5690 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
SAA0 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
56BO 40 00000140000001400000017FFFFFFFiF 
SACO7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
SADO7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
SAEO7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
SAFO7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 


Sum: 8B5FS 04 CB B2 75FSF8 D5FSF5 08F4F4F4 FA :27 


dd 101112 31415161718191A 418 化 1D E+F Sum 
S8007FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:FO 
SB107FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF:iFO 
SB207FFFFFFF7FCOOFFF7E0000FF4000000FiB3 
5830 40000003400000014000000140000001:06 
SB40 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
SBS0 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
SB60 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
S8707FFFFFFF7FFFFFFF7FFFFFFF7FFF7FFF:70 
SB8O07FFF7FFF7FFF7FFF7FFF3FFF7DFE7FFF iD 
5S8907DFF7FFF7CFF7FFF7DFDYFFF7EFE7F7Fi25 
SBAO07FFE7F7F7FFF7F7F7FFFFF7F7CFFFE7F:EB 


グラ フィ ッ ク 花 札 こ いこ い 


ダン プ ・ リ スト 

















SBBO787FFFF780OFFF7F7003FC7F6001F87Fi00 
SBEO 60 00300F400030074000000740000007:64 
SB0OO40000007600000037000000378000003:98 
SBEO78000003780000037C0020077EO1FE07i1D 
SBFO7E07FFCE77FIFFFFF7F7FFFFF7FfFFFFF ii5F 


Sum: 857E79E8SEBB7088BF7A950E69F96E 9EiBA 


人 d 10+11+4213141516171819 1 1Btt0 E 1F Sum 
SE007FFFFFFF7BFBFDF7071 人 F8F7BFAEF DFiW2 
SE107A3AEFBF7BFAEFDOF7BFAED877A EEF397:0 
SE207FFFFFFF7FFFFFFF7FFCFFFF7FFC67FFiS2 
SE20 7FF267FF73FI4FFF71995FFF791D27FF: 作 
SE406D38679F65716F64F95FIF71FDYFSFiS8 
SE507EFE797F7EIE796760 光 794F70600D4Fi7E 
SE0078301ESF7820 半 下 7802F7F7003B7Fi21 
SE70 60 01F87F6000300F4000300740000007535 
SE80 40000007400000076000000370000003564 
SE907800000378000003780000037C0020075i14 
SEA07EO1FE077E07FFC77FIFFFFF7F7FFFFFi67 
SEBO7FFFFFFF7FFFFFFF7BFB6FDF7071 好 BFiDB 
SECO7BFAEFDF7A3AEFBF7BFAEFF 7BFAED 87:W1 
SEDO7A3EF3977FFFFFFFFFCOFFFF4F80780FiD1 
SEEO 43 80 70 07 41 80 20 03 40 80 20 03 40 CO0 20 01 』22 
SEFO 40 40 20 01 404070014046070014040 10 01:34 


SumiE78BB91600937F7223EB2DCE1BDBBBiEF 


dd 10111213441516171819481BtCtDtE 1F Sum 
SD00 405FDO0OI405FD801405FD801406FE801:FB8 
SD10 40 2F E8 01 40 2F E8 01 50 2F E8 01 50 37 FO0 01 :90 
5D20 50 3⑰ F3 01 50 3⑰ F7 01 50 3BFA01 48 1BFA 01 : 上 E 
SD3⑩0 48 1DFCC1 4C 1DFDC1 441EFEGG 46 1EFE E3 :B1 
S040461F7F67470F7F7430FBFBF438FDFDFiB7 
SDS5043EFEOOF43CFFFFF41EFFFFF407FFFFFiFE 
S06040FFFFF40FFFFF603FFFFF601FFFFFi14 
5070601FFFFF700FFFFF78OFFFFF7L07FFFF:00 
SD807E07FFFF7E03FFFF7EOIFFFF7FCOFFFFiBA 
5090 4F 80780F438070074180200340802003 5:57 
SDAO 40 CO 20 01 40 40 20 01 40 40 70 01 40 60 70 01 iC4 
SDBO 40 40 10 01 40 40 10 01 40 40 18 01 40 40 18 01 :54 
SDCO 40 60 08 01 40 20 08 01 40 20 08 01 50 20 08 01 :F4 
SDDO 50 30 00 01 5030 03015030070150380201i18 
SDEO0 4818020148IE0O0E14IEO1C1441E00C3 iD7 
SOFO0461E00E346 人 F0067470F0067430F800F:B1 


Sum: AN7BB5S2EBS9LDASAE2AF2B80E3780DD98:98B 


dd +1011142 13141516171B19 1 1B tL 0 tE 1F Sum 
SEO0O438BFEOIF43CFEOOF43CFFFFF41EFFFFF:FO 
SE10407FFFFF403FFFFF403FFFFF603FFFFFiS4 
SE20601FFFFF601FFFFF700FFFFF780OFFFFF:FE 
SE30 7E07FFFF7E07FFFF7EO3FFFF7E0O1FFFFiFE 
SE40 00000000000000008000000000000000:80 
SES000000000000000000000000000000000:00 
SE6000000000000000000000000000000000:00 
SE70007FBE00007F9F00007F8600007F800Ci3B 
SE80003F8OIE00FECO2E003FCE600003FEF00iiB 
SE9000FE68E3O1IFEOOEEFEOIE199FEO00i1D 
SEA0009FE6400181FE7OEXEOFE39E18EFFO0EiSE 
SEBO 01EFFO4000CFFO6018B0OFFB8EO3E 07F8EO:39 
SECO 18 67F8 40 00F7FE0000E3FE000203FE00:8BE 
SEDO 03 81FC 00 0381FO000100000000000000:F5 
SEE000000000000000000000000000000000:00 
SEFO0000000073BFOE6082CFCE173a17F0D5: 的 


Sumi: 7B 87 5B 46 10 % ぬ CB 55E2 30 00 57 79 05 90C7 :F4 


聞 d 10 1112 13141516171819 4 1B 擬 1D E+F Sum 
SF00 7EF3 78 DF 66 9F B1 2F 41 0EC9 09 65 98 1D 21 :07 
sF10 7DFE 6DE9787FE6EF 483FE6 EC7 47FFEF 47 :0D 
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と と ちと ど めん FATTW 


ダン プ ・ リ スト 








SF2047003FF7700YF7F700FBF700YFYFiBE 
SF30300YFBF67803FF6F8OIF9F7F80O1FBFEiEO 
SF407E801FBF7E801F3F7DCOIFDF79EOOFEFi8BA 
SFS307CEOOFDF7DEOOFDF7DCOOFDF79EO0FDF iC7 
SF60 7DEO07BF7EEO07BF7DEO07BF7DEO03F7:BF 
SF70 7AF003FF7EFO03FF7E7001FB7EF800FF:3B 
5F807EF800FF7FFCOOFB7FFCO5FF7FFEOFF7 :EB 
SF907FFF3EFF7FFFFBFB7FFFFFFF7BBDF6FF iD9 
SFAO6FF7:BFBF7FFFFFFF0000000000000000:60 
SFB0 80 00.00 00 00 00 00 00 00 0000 0000000000:80 
SFEO007F0000007F0000007F0000003F80O00i3E 
SFDO003F8O00003F8O00003FBO00003F8000:FE 
SFEO00IFCEO00001FEO00021FCO00021FECO00:80 
SFFO 00 0FEO0 00 000FEO00000FE0O200F07FO20:13 


Sumi 82 DB B9 0F 2E 94 47 10 60 82 45C4 96 EE 40 20 i18 





dd 10+112 1314 1516171H19181B 材 1D ETF Sum 
60001F87FO020FB87FO00F43F8OOE5F800iFF 
6010 0DE3F80001CIFC0000BIFE000000FE00i21 
6020 0000FE00000000000000000000000000:FE 
603000000000000000000000000000000000:00 
604000000000000000000000000000000000:00 
60500000000000000000000000007FFFFFFFz7C 
60607FBFEF7F77FDFFEF7FFFFDFF7FFFFFFF:04 
60707F007FBF7F007FFD47007FF163007FE3534 
60807180YFC77880FBF7880FBF7C80FIF:DD 
60907F803FIF7FCOIE3878EOIE7F7AEO1IE7Fi9F 
60407AEOICEFF786008DF7FEO088F70E008 人 Fil1 
60B06F7005 寿 5FBOO5F7FBO078F7F480589:E 
60C0 7E EB 03 71 4D E8 02 E7 71 DE 01 CE7 7E LE 01 8F :C7 
60007F6E009F4FC400FF4385007F61E5FFF1iFD 
60E078C03E36E6023876820630F7220421F: 本 
60F0 48 00 4439 44000063620000476000000F:84 


SumiCO6F6DIE508SF9146F1440B8H35DA1895iF4 





Add 101112 3 4141516174819 14 18 北 10 E+F Sum 
61006000001F7000001IF7000001F7B00003F:54 
110FFFFFFFF7FFF7BFF7FFDFFFF7FFFDFFF iCA 
61207DFFFFFF7EFF7FFF7EFFFF7F7F67FF7F iD2 
6130 7F40037F7F2BFB7F7FBBFB7F7F DBFBSF iD 
61406FDBFB3F7FABFB7F7FFBF77Fa6FF7F77F:F4 
61507FF7F7F7FF7F77F7FEFED7F7FEFE873:3B 
61607FEFE937ESFDF6776DFDFOD78SFD8B9i86 
617079BFBO197EBFBBE77F7F7FE77F7F 7F 99 :37 
6180 7EFEDF1F 7EFECE 3F 7DFD C6 7F 7D FD E7 FF :22 
6190 7BFBF7FF 70 03F837 7FF9 83 87 7FF0O 77 F3 :69 
06FE1E7F7FFFE6IF77FFC70OF7FBFCFF7 :29 
6180 7FFDFFFB6EFFFFE5S7FEFFFE77FFEFFCF:46 
iCO7FFFFFFF7DFFFFFF78FF7BFF78FDFF7F:DA 
6100709FDE3F65SOFFEYF409F7F6766FFF9 43 』50 
61E0 7F 67 FE 67 79 40 03 7F 70 28 03 7F 79 B8 02 67 :38 
6iF07FD803036ED8B0O3277828037F7EF8057F:E5 


Sum: 22 72 26 96 86 0E 0[ 26 71 D1 44 4E 87 5B 3 80 iCE 


dd +0 1112 1314 15 16 17 1B19 1 1B 北 tD tE F Su 
62006FFO06677FFO05037FF0O 07 67 77E0 0D 7F :03 
6210 3E0087565EO0096576401F67 76CO1F0D:08 
6220 78 40 18 8B9 49 80 30 19 46 80 38C7 4F 00 7F E7 :15 
62307F007F997E00DFIF7E00CESF 7E 01CE6 77 :58 
6240 7C 01 E7 E3 78 03 F7 E3 70 03 F8 37 7F F9 83 87 :C0 
6250 7FFO 77 F3 6F E1 E7 3F 7FFF C6 IF 77 FF C7 OF FE 
62607FBFEFF77FFDFFFB6EFFFFE57FEFFF ヒ E7:FF 
62707FFEFFEF7FFFFFFF7FFFFFFF7FFFE3EF:93 
62807E7EO1FF7E100F7F77001FFB7FEO03EF:FB 
6290FF8003FF6E0079FF7E7EFF7F7FFE7FFi18 
6260 77FF FE 01 7FF0 06 03 7FF7F4 07 6EF7F4 0F :C6 
62B0 7FF7F43F7FF7F47F7FEFECE7F79EFE8F1: 克 
62CO0 60 6F E8 03 40 2F E8 03 40 1F DO 07 40 5F DO 03 :BE 








21 ジ 2 











6200605FDO0370BF8O0761BF8O037FBFB8O01 前 
62E07F7F0001777F00017EFE00 016EFE00 01 :EO 
62F07DFE00017DFC00017BF800017BF80001:DE 
SumiEFFB7FOE1E90E3E622E6361A395D4B6i6F 
dd +10111213141516171819 1 人 1B1tE+1D E+F Su 
30077FO0003700000037FF800016FEO0801:8D 
3107F8018017F0018017BCOE0377CEE2E03:9E 
3207FFF7FC37EFFF7FF7FFFFFFF7FFFFFFF:28 
6307FFFESEF7E7EO1FF7E10EF7F7706DFFBz7D 
3407FEEC3EF7F8683FFGE0079FF7E7EFF7F:04 
63507FFE7F3F77FFFE017FF004037FFO04 07:80O 
606EFO0040F7FFO04F7FFO047F7FEOOE7FiFF 
6370 79E008F1606008034020080340001007:DF 
6380 40 40 10 03 60 40 10 03 70 80 20 07 61 80 20 F? 51 
6907F8OEF97F005SEOF770061F77E00EE 41:9E 
06E00C1877E0185B77E01ECO777802FBB7i7F 
63BO07803382D7007C7DB7005EFE37FF8 77 81: 人 F 
3EO6FCO08017FB8O18017F0018017BEO3E 03:62 
630077EE2E037FFF7FCG7EFFF7FF7FFFFFFF:23 
GE07D9FFFE17F8FFBEC1670FEO0161047001:D0 
63FO6000 光 0160007EO1FO00FF016001FFC1:i8D 


Sum: 41 187EBA668H626EEASBB360 29 10 5B3Ai52 


人 dd 10+112 13141516171H19144 1B EtD E+F 9um 
640040003F81403FBFO1403FBE01403FBBO015:83 
641078FBO39705FDFF160DFDFE77FDFDFFF:80 
6420 7F DF DFF7 77 EF E3 C7 71 EF E1 87 70 6FE0 0F iDA 
6430 70 2FEO OF 7817FO 1F 70 17FO 1F 40 17 F0 07 :10 
6440 40 17F003700BF807780BF8IF700BF8IFEiFO 
6450 80E5FDOF47F5SFDCF7FFDFDFB7EFEFEF9 :40 
64606FFEFEF97FFF7F7979FF 0031587FFFEC1ilA 
6470 783E7FB16BIC7F017E08FEO17E000FE1: 折 9 
64807E001EC54000FCF6000FBDF70007EFFzD6 
64907E403FFF7D9FFFE17F 尋 FBE1676FEO01574 
644069 7470016EF3BEO16FDF7E0174BEFF 01 :6D 
64B0 6F 7DFFE1ISE803F817D803F0O17F803E 01iC3 
64EO 47 80 38 01 7B 80 30 39 77 40 1FF1 60 CO 1F E7 :51 
6400 7FCOIFFF7FECO IFF7 77 EO 08B C7 71 E0 0D 87 :FO 
64E070600E6F70200EEF781007DF7010055Fi2 
64FO 40 10 06 E7 40 10 06FB 70 08 02 87 78 08 03 DF :F1 


Sum: 76 66 4F 28 70 41 00 54 0E.79 42 94 B6 91 38 EiE8 


dd 101112 31441516174819141B 北 10 正 F Sum 
6500 70 08 02 DF 60 E4 01 2F 47 F4 01 CF 7F FC 01 FB 4F 
610 7EFE00F96FFE00F97FFF007979FF0031:7B 
6520 587FFFC17BBE7F816BDD7F017DEAFE01:00 
65307DB6OFE17EDFDEC540C3FCF6FFAFBDFi73 
6540 73BB7EFF7DSFBFFF7FFFFFFF7FFFFFFB :39 
65506FFFFFBFFDFFFFFF7FFFFFEF7FFFFFFD:OE 
65607FFF7FFF77F8IFFF7FFE3FFF6FFFFFF3i64 
65707FFE00 737FFE00617BFE004170FE00 41 :37 
6580 70 7E 00 43 70 04 00 97 60 04 00 BF 60 04 00 FF :C2 
6590 70 04 00 8F 78 0E 00 87 68 08 01 87 78 08 01 03 :88 
650 7 18 01 01 56 38 01 01 7FF0 01 01 7F『O 03 87 :90 
65B0 71FO 03FF 70 20 03 FD 60 20 07 F9 40 20 07 F9 :D3 
65CO 40 40 07F9 40 400FF940801FF160801FE1:B8 
65007F00iFE17E00F817E007F817FFE3E 61 51 
6SEO0 7FF810F77F800076DFE00077FFE0007:2E 
6SF07BDE003F6F7FBOFF7FFFE7FF7FFFFFFF:iE5 


Sum: 2B 92 4604 BAF2 0D6888 248AFE369 5E 02:28 


Ad 10+411213141516171819144BtEtDtE+1F Suam 
66007FFFFFFB6FDF7FBF7DEB27FF7FF147EF:i38 
6610 7F845BFD7F8207FF77B8IFFF7FFE3FFFi64 
66206FFFFFF37FFE00737FFE00a617BFE0041:E8 
6630 70FE0041707E004370040097600400BFiOE 


6840 60 0400FF7004008F780C008768 080187:69 

















6650 78 08 01 03 7 18 01 01 56 38 01 01 7FF0 01 01 i1B 
6660 7FF0 02 87 71F0007F7020008D60200101:77 
6670 40 20 04 11 40 40 00 49 40 40 03 21 40 80 00 01 : 
6680608003017F0000817E0012017E001101:05 
66907FFE00617FF8003F77F800076DFC0007:78 
66607FFE00077BDEO003F6F7F8OFF7FFFE7FF:EB 
66BOFFE7FFFF738C7BF76D9BBF7F6D37DFFFiFD 
66E07307C3EF6E3FFDFF7E3EFDFB7CSE7DDF:i9D 
66D0 78 49 23FF SBF6DFFF 7BF6DFF778F93EFFiFF 
66E0 78 003B7F643FB7BFS83FA78FSA3FBFF7 :67 
66FO673DBEFB7FDODE7B7FD8BD9276FD5SS6DFiD5 


Sum: 9B6841960FCF71FAFF 6F7 5AF2 04 2E32i6F 


dd 1011+4213141516171819 141B 擬 1D 1E 1F Sum 
67007E5956DF7DAEE93B7BCF69FF7YCFEEFF iA 
67106FF4147F6FBSS633 6F 16 57 01 72 4B BA 01 :FB 
720708398037DB8S3D077E4D1DOF7FF8EE9FiSF 
730 7EF6EABF7DB76637BSB397FBFSEIE80OIFiD5 
7404FOEFFFF4F8O07F747COOFFF60EO1FDF:79 
75063403FFB7300EDF78007BFF7C00FF 77 5:51 
67607C0O1FFFF7FE7FFFF 738BE 7BF761 983F7FiE7 
77061301FFF730003EF6E0001FF7E0001FBiFE 
67807E0001DF784923FFSBFOIFFF78FO IFF7:23 
679078F93CEFF7800387F6400303F4000200FilD 
670 42 000007670000037FEO00037FECO19 27574 
7806FCEO10IF7E40101F7E20093B780009FF:i0B 
67E070000EFF6000047F600006360000701:i5F 
6700724802017C0003037E04 01 07 7E 4E 01 0F iA 
67E0 7FF8009F7EFO00BF7870007B583⑲9 003Fi74 
67FO0 SE1EBO1F4FOEFFFF 4 80 07F7 47ECO0FFF:54 


Sum: D7 86 26D6 14 58 97 94 BD 7B CB EA 7 9D EAN 08 il 


dd 10+1112 131415161718191A 4B 1tDtE 1F Sum 
680060EOIFDF6040FFB7000EDF78007BFF:97 
68107L00FF777EO1FFFF0000000080000000:ED 
6820 00000000000000000000000000000000:00 
6830 09000000000008000000080003F80000:0B 
6840 03F8000003B8000002080000010E0000:CD 
6850 00B400000134000001EC000000C60000:% 
686000AA000010CBOO000073000000778000i:EF 
6870 00618000003⑮ECO000038CO00001E6000i4 
6880 00 1F6000000C7000000DFO000006F800:iF6 
689000076E0000038C000003FE000001FF00:03 
686000000000000000000000000000000000:00 
698B0 00 00 00 00000000000000000000000000:00 
68EO0000000000000000000000007FFFFFFF:7E 
68D00 7BDF7BEF6FFDEFBB7EEFFDFF77FFFFF7: 胡 
6BE07FFFFFDF6FFFF7FF7FFFEBFB7803EBFF:89 
68F0 78 032FF 7803C1IFD7803417F7B0380FB:86 





Sumi 51 9E 86 23 46 3B 9 BI EB 0 1D 58E2 68 BBEFi64 


Add 10+1112 131415161718191A1B E+D HE F Su 
9007E0180BF7EO1007F7EO1007F7E00005SFi8BF 
69107E00003F6E00003F560000F4500002Fi73 
920 4300001F4300001F4280001F41800017:7D 
6930 41CO000F4140000F40EO000F40E0O000F:FE 
6940 40FO 000F40FO000F4078000740780007:FE 
6950 40000003400000014000000140000001:06 
6960 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
6970 40 000001400000014000000140000001:04 
6980FFFFFFFF7FFDFBFB6FEFFEFF7FB7EFCF:7D 
69905CE7BB78D7DCE789F7D8SCEBF7ECD86FBiDe6 
69A0 7E7AEDFF7DB77BFF65E6FEF96E7401 13 :88 
698063FDDG766DFDDF7BDD3DBF77EDADFFi94 
69C07A560BF7DBB6ANDF7FFBD9E37FFBFB3Bi85 
6900 77F6F6 18 63F4F7 37 73F635EF 78 6D BF7 :19 
69E07DAB6D2F63EBEEDFESBDFFF6LSADFEFiF8 
69F076BABF8F7BBDBS9F777F6DBB7B7F1IESFg7D 























Sum: 878F2DB61B75EDOAFS9B61FB04FEA6DA:OB 


人 dd +0+1142 13141516171B191A1BtE 1D 1E 1F Su 
8007E8273877EAA61BF7DDDB37B7BFDDEFF:4D 
6107003BF7B7BDFD2FF77EFED777ASFDFiF:99 
602075BF9FIF67FFIF9B47DFBBFF 牡 FBFEF7i31 
607FFFFFFF7FFFFFFF7FFDFBFB[CFFEFF:i 
6407F87EFCFSEO5878D7E00009F7C0000BFioD 
8507E0000FB7E0201FF7L0703FF60G400F9:DD 
66606004001360040013700E00IF781E0O1BFiDD 
6⑳70700EO1IFF7818033F7DB8BO21IF7FF80003iE 
6680 7FF8000377FO000363FO000773FO04OF:iB4 
64907A6008077E200EOF60000EDF80001FFFi68 
664060001FEF7000YF8F780039F7000618Bi62 
66B0780000F7E0000377E0000F7EO1807Bi9F 
6ACO7801EOFF7003807B78IFEOFF700FED77 if 
00078IFDFF75BF9FIF67FFIF9B47DFBBFFi87 
66EO 条 FBFEF77FFFFFFF00000000000000E0O:98 
6F0800001FO00003FFO0003FFEO0001FFFO:72 


Sum: 3D 4D65690479849737847606FE206538:B4 


dd 10+1112131415161718191A1B 柳 10 E 半 Sug 
6800000007F8000EOFFBOIFCE383EIFF83OIE:E8 
68100FFE400E0OFF8O04039FE7001E000F80:F2 
6820 1803FF002007FE00000FFE0000007F00:DB 
68300000DF00000787800008018000080000:7t 
6B40 00000000000000000000000000000000:00 
685000000000000000000000000000000000:00 
684000000000000000000000000000000000:00 
687000000000000000000000000000000000:00 
688000000000000000000000000000000000:00 
68900000000000000000000000007FFFFFFFzi7 
68807FFFFFIF7FFFFEEF7FFFEIEF7FFE3FDFiEE 
6BBO7FFE07EF7FFFFBF77FF1IFO37 7E08KE708B:65 
6BCO41F7EFEB7039BFF37FIE7FFB7E6038FF:97 
6BD061FFF77F67FEOAFFSFFBFDFF7FFO7DFF:85 
6BEO7FFF9EFF7FFF 26 Fa0。 FF8797F7FF9FE7Fi22 
6BFO7FF7FFFF7FFFFF-FF7FFFFFFF7FFFFFFF:EB8 


Sua:E5SE88E7AF34EFBS2DEBO85AB24E7501:34 


Ad 1014112 14415161718191A4B 北 0 守 Sum 
007FFFFFFF7FFFFFFF7FCOOFFF7E0000FFiCO 
6106000000F400000034000000140000001i34 
6C2040000001400000014000000140000001:04 
6E3040000001400000014000000140000001:04 
40 40000001400000014000000140000001:04 
6507FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFFiFO 
6E507FFFFFFF7FFFFFFF7F は EFFF7FFFEFFF iDO 
707FFFE7FF7FFFCFFF 84 EFFF7FFFEFFFi88 
8O07FFFEBFF7FFFEFFF7F FF7FFFFFFFiCL 
907F7FFFFF7F7FFFFF7E FFFF7FFFEFFF ij 
6EA07FFFEOSF7FFFCOF7FFF8OIF7D3F800Fi62 
6EBO701F8007700700076000000140000001 5:36 
6EEO 40000001400000014000001F4000001F:40 
6EDO04000001F7E20003F7FFO003F7FFC003Fi62 
6EEO7FFF8O7F7FFFFCFF7FFFFFFF607DFBFF:49 
員 7F7BB8IFF7E73FBFF7DEBF3077DFBEBFfF :27 


Sum: 87 12 2F 10A01271849354 SE8250. 研 31 66 :DD 






dd 10+411213141516171819161B EtD E 壮 SuW 
60007BFBDBFF7FFFFFFF7FFFFFFF7FFFFFFi04 
0107FFFIFFF7FFF EL7F7FFFDBFF7FFE69FFieF 
207FFE2BFF7FFFA67F7FFFEE7F7FFFEEFFi7C 
60307BFE6DFF73CE2BFF71BFFFF799FCE1FFgiD6 
0407DBEO3FF627F07E7717F8SE37EBF 01E7 i87 
6DS0 7F 06 07 780FEOSF7EIFCEOF7EOF8O IE:07 
6D60 7E 27800F701F80077007000760000001i27 


シーア 2 ん トス 
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グラ フィ ッ ク 花 礼 こい ご い 


ダン プ ・ リ スト 














6070 40000001400000014000 
6080400000IF4000001F7E20 
60907FFE0OF7FFF8O7F7FFFF 
6D0607DFBFF7F7B8IFF7E73 

6DBO7DFBEBFF7BFBDBFF00000000800000005:32 
6DEO00000000000000000000000000000000:00 
00000000000000000000000000000000000:00 
6DEO00000000000000000000000000000000:00 
&DF000000000000000000000000000000000:00 


Sum: 485S502563EDAFE602C38EE38D 43C867 :DD 


01 40 00 00 1F 22 
F 7FFO 00 Fi47 
FF7FFFFFFFi2E 


00 
00 
【 
FBFF 7DEBF307 :9E 
0 
0 


dd 1011121314151617181918 1B 守 1D E+1F SuW 
6E0000000000000000000007EO00000FCO00:B6 
6E10008FEO0000CF8O0003FF000003FD0000:60 
6E2007DE0000071B00000E0D000008048000:E 
6E30 00 048000000240000002A00000004000:08 
6E40 00 001000000000000000080000000000:18 
ES000000000000000000000000000000000:00 
6E600000000000000000000000007DF6DFBB:OD 
6E7042EDF77770378EB7301FO1D6E00EOIFiE 
6E80 SE00EOOF780060077800600770007003:EE 
6E907000FO036000F8016001F8016001FC01:74 
6EA0 60 04FA01 60 1D7701603CF7 01 60 79 67 01 :29 
6EBO 60FS DB 01 70FFF9 03 71F8 08 03 71 87 ED 05 :2E 
6GEEO63eFDDOS522FD909740FBS097B3F7D09:98 
6EDO 7BE1 7D11 77COFF 11 77 00 7F 11 6EEO0 7E 31 :3 
GEEO 6BFO3E3167FOE217FF8IE217FF8BE61iE 
6EFO7FFEBE61SFFE46616FFE67617FFF6361 5:E5 


Sum: BD 93CA38B5EBSE9304508AE578A 4D 4BEO:6E 


dd 10+112 31415161718191A1B 北 1D E+F Sum 
6F00SFFF3e1AFFFB9E17FFFB9EISFFFFDE1iE 
6F106FFFFDE17FFFFFE17FFFFFE17FFFFFE1:26 
F2000000000000000008000000000800000:00 
6F30 00 8030000180600001COEO0003C1ECO00:96 
6F40 03 3 CO 00 01 E7 E1 00 01FBE2 00 00FBF7 00:fF 
6FS0 00 7D F7 80 00 71F4 00 000DEE00007FFD00:D0 
6Fe0 01 BFFBB8O0O1IFFEO0000FF800000300000:CA 
6F70003E0000003E0000003E000000FE0000:B4 
妊 80007F0000000000000000000000000E00:8B 
F900000IE0000000D000000002E0000301E:A 
6FAO0 0000780E0000340000000000000060CO:D8 
GFBO 00 00F1EO000068CO0000000000000200:FB 
6FCO 00 00 07 00 00 7000000030000000100:12 
6FDO 000000007F FFD7FBFFFBB7FiFFF11:40 
6FEO 7E YF 83 20 7E 7EF7LE6FCE77E1IECFEC7 ieE 
6FFO7819DF6F7813DE7F7E07ED7F7COEAF9i18 


Sumi C8 92 02 CA 66 62 91 ED F7 05 24 EF 58 45 07 71 :92 


dd 10+11213141516171819118 守正 TF Sum 
7000 7E03F7717F01F7897F81F4F7FBDEEFFi45 
70107E7FFCIF7DBFF8F79FFEO7DA6FF9FFBii5F 
70207F307F9B7FBEFF077FBDFF977F3DFFF5:BE 
7030 7EFEFFE17E7FE0D7F001F2F7FFFFFE9 iD7 
70407FFFFFD16EFFFFDB6447FIFBF7078FF7F:BE 
70507047FF7F60BFFEFF707FFEFF7C7FFDFF:34 
7060 7AFFFDFF47FFFBFF77FFF3FF6EFFFBFF:84 
70706F7FFFFF777FFFFF76FFFFFF79FFFFFF:C9 
70807FFFFFFF7FFFFFFF76aFBD77756F8B3BiBB 
7090769F80778FD77BFF7FCOFF7EFFFF87:3D 
700SFFFFE3F4FFFFE7F47FFFE7F 43FFFB8FF:60 
708067FFC4FF6E7FBAFF79F7DFF7B 9AFDFF:12 
70C0 77C4FDFF 77FFFDFF 77FFFDFF50FF83FF:OE 
70D04EIF3FFF67CE43FF667083FF731D87FFi90 
70E07103861F718386IF7081060F4081040F:BE 
70F0 70 01 E4 0F 4E 02 34 07 63 02 DC 27 78 C2 10 23 iC2 


Sumi 32F7 7A 9 02 87 AB 00 9[ 57 59 66 E2 23 40 44 :9E 

















dd 140 1112 13141516171819 1 1B 北 tD HE 1F Sum 
71005SF32C43408EIFS47647E0B4071F1E1iSB 
7110 47 47E781471F8201447E 区 01 41F88001598 
7120 47E5BEO14F8EE0O17E383E0178EO3E0O1i89 
71306380 区 01 衝 00 区 017E00 区 01700F8001i64 
7140700F8001701FB8OO17B1IFEO797F7FEOFF:9D 
71507EFEFF87SFFE7EYF4 生 BE7E7F47367L7FiE 
7160 378FF67BSCAFFE7382FF78YFO1FFEiE1 
7170781801FF700401FF700001FF700001FFEiE6 
7180 500023FF4E00FFF67CO43FF667083FFiBF 
7190731D87FF7105861F7183861F7081060FiCE 
710 40 81060F7001E40F 402340763021E27:i6B 
7180 78C210235F32043408EIF370647E0B: 胡 
71C0 70 71F1E17047E7BF701F823D707E00FDi19 
7100 71F881F967E81F9 衝 8E0O1F17E388B1E1zBE 
71EO078E581E165803EO14E003E017C003E01:21 
71FOFFFFF803FDF9E008091C20020000000: 


Sum: 0OCE14D87DIEACBSD49798BE8B4A59497FiEA 


Add 10+1112 13141516171819114B 想 1D 1E 1F Sug 
7200 30 000004 区 21000E3⑳73800E00738004:E7 
7210 00 310030000800780000003000000000:i11 
722000200000007000000070000000200000:20 
7230 00000000000000000000000000000000:00 
7240040000000400000001CO000001BE0000:86 
7250018E8O0000CF7000007EF400007FGE00:D 
7260007EF70000FEF0OO00OFFE000000FF00: 人 F 
7270 00 00 7E 000084iF0001ECESEB001CEE600:5 
7280 18 84E400 区 0040001800000001100000:25 
72900389000003BB800001135800000010000:8F 
7240000000004000007F4000007F400000FF:i8D 
7280 4EE29FF417FFFFB41DEFFF1 43 8E 77F1 :E4 
72E04 覆 8E73FB7FEEE3CB7FF6E3 83 7FF0 F7 CB :50 
72007FEa1FFB7FDFCE7FB7F8FBO7B7FBE7F0Bi 特 
72E07FDE6E37FFE67F97FFC47FF7FFCECE7Fi03 
72F0 7BFFFE 39 75FFFE 31 74 1FFF BI 79C1FFCF: 放 


Sum: 663⑮F545F20D6EFOBDB8F28DE7E748B 18:13 


dd +10 1112 1344 15 161718 491 1B C+1D E+F Su 
7 が 007DBEF077DBE8637EEF71797E7EF4C5:2B 
7310717FE3777EF72772FEFIF7EBFFEEFi4B 
720 7DEOFF 6779FE7EF37B7B3F7F7431 9EBFi67 
73307A31067F677B14734007BE666FO7EE3:B4 
7407EEFO1637E46F82F7E44631F7EEC47 EC7574 
73507FFEEFF17FFFFFF900000000800000005:53 
736000000000000000000000000000000000:00 
77000000000000000000000000000003800538 
7380 00 007EEO00038DEO000380FO00073878:i0A 
7390 00 00 43 34 00 06 F7 86 00 00 29 CE 00 00 55 B6 i16 
73A0 00 0E8436 00 023DB60005EC102 00 02F7 40 BE 
73BO00006E00000000000000000000000000:6E 
73EO00000000000000000000000000000000:00 
730D0040000040740001E03SE007407 50017BiOE 
73E006B806BE00300FSE00003B8020000D80: 
7GFO0 20 00 03 80 3% 00 01 00 0D 00 00 00 21 60 00 00 :68 


Sumi OEFDSEEEOE45077E3545631DIEEO1F83iG53 


dd +01112 13 1415 1617 1B 14916 1B 0 4E 1F SuW 
7400F7E1000 光 40OFFOOFDFCEEDE7FFFFFFF ziBE 
7410 7FFFFFF37FFFFEC3 7F DF FE 83 7F CDFB 01 iD1 
7420 7F COF8 017F8070017F8070017F800001:i18 
7430 7E0000037F0000037F8000077FEO0003i68B 
7440 7FFO00037FFO00017FE0O00017FE0O0001:62 
74507F0000017E0000017E0000017E000001iFB 
7460 7F 0000017F0000017200000178006001: 穫 
7470 7E 00E1 81 7EE3E1E17FF7 81E77FFFF3EFsiBF 
7480 73FFFFF3 74 BFFF ES 77 00 FD 90 731DF8 75 :89 
7490 77 13F8 79 70 3BE6 3D 70 07 EF 01 FC7 BB 83i74 
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グラ フィ ッ ク 花 札 こ いこ ご こい 


ダン プ ・ リ スト 








7480 4 本 FF8DOF49FFF31F407FFE7F401FFEFFiDA 
7480 40 01 CEFFF 400000FF4000000340000001:D2 
74E00000000EBO0000060000000600080002:A4 
74000018000200 区 000001FF0010007F00 12:F7 
74E0003400680020007A000001FA0400007[:B3 
74F0 04 00 03 0 02 00 07 80 07 00 03E0 04 CO OFCO:BD 


Sum: 31 8B IE2182E70DEB171A87214A550A3EiE 


Add 10+112 13141516171819181B 相 1D E+F Bum 
7500 07 FO IF CO 07 80 07 00 07 80 07 00 0F 00 02 00 :03 
7510 0E 0000000E0000000E00000007000000.531 
752007AAAO0007 人 AA 代 0007FFFF0203FFFE 02 5BA 
7530 03FEFE06016F7C0601SE7COE01 41 78 0E i66 
7540 01 40 BB IE 01 40 58 1E 02 80 28 3E 01 00 14 36 ji01 
7550010030680100201iE0100207E0100 207Eil4 
7560000000BA00000308000007F200000FFAiE9 
757000001FFE7FFFFFB7FFFFF877FF7FF 87:29 
75807FESFF8S7FCGFF8S7E00FF817E00E7 01:i0A 
75907E00C7017F8001017F8800016B9F0001:SE 
758075FE000175FE000372FE200F77YFEO1IFiE 
7580 74 C7 EO 1F 77 F7 CO 18 77 87 80 377 BFFO 1 :88 
75E06F 7FF8816EFFFD8I6EFFFFEL6E7FFF81iEL 
750077000F0177AAAO06177A 代 4177FFFF 4Bi78 
75E0 7BFFFEFB7BFEFDF77D6E7DF77DSE7DEFi86 
75F07D417BEF7DSEBBDF7D5FSBDOF7ABFABBFiS6 


SumiE53FEBH14651SE13564DFF5SEI 46F 97 2F 0 


dd 10+111213141516171B191+B 1tE 1D 1E 1F Sum 
76007D3FD5B77D3FBS617D3F83017D3F8A601 iDB 
76107D3FA6017800008340000303400007F3iDE 
7620 40 000FFB40001FFF003BFBFE8O31813A:i4H 
7630 00 78 00 1000000032000070020000FE02:2C 
7640001FFFC6000FDF860007BFOE000000005iFA 
7650 00 000000000000000000000000000000:00 
7640 00 00 0000000000000000000007CO0000:C7 
76700FF800001FF800003FF80000YFF80000:BE 
76803FFE00003FFEO000F000000F7EB80O00EF2 
7690F7E40003FF30003FYE1A003E1EEB00:i67 
7640E190D80000FD6800013DACO000EFCCOiBE 
768000031F60000CEEIEO000300000000CO00i12 
76C000000000000000000000000000000000:00 
76D00000000000000000000000007F8O0001:00 
76E07F8004017F027CC17F87FF817FFFBFE1i46 
76F07FFF 3⑰7F97FFF66F17FF1 SEF17FF8 8BE1:23 







Sumi 0122306009F7AD7B45SEF427D437D93:08 


dd 101112131415161718 19 1414 1B EC 10 導 1F Sum 
770073FF07F340FF8FFF407FIFFF400F1IFFF:83 
77104007FF40020FFF400007FF400003FF:iSD 
7720 40 00 03FF 4DF8 00FF 48F801FF EEO03FFi14 
7730 763007FF7FF883FF67FDE1IFF6F 0071FF:C8 
774059001DFF790007FF6D8001FF4C8000FF:E 
77505F00007FSF8000 下 40CO00F4040001FiD8 
7760 4060001IF4020000F4040000F5OFO000FiOE 
777070FEIFFF6IFFIFFF4 御 FFFFFF587FFFFF:29 
7780 4000FFFF40000FFF400000FF4000007Fi8A 
77903FEO0000BFFO0000F70000030300000:DD 
77A0 20600000200006002000060030000000:FC 
7780 3F 80 00 00 18 00 00 38 28 00 00 7[ 28 0F 01 F6 :E1 
77CO0 IE3⑰ 81E23E1F804838BIFB8O38000FEO36:0B 
7700000E300000DF8000005FE000005FE00:47 
77E00005FF000002FFBO00037DEO00019EF8:SE 
77F00001EF7E0000F3 胡 0000 区 0600001002:63 


SumiEB9D2AEB38EC6F56A8A 43BF5S7 72 22 ED 





iCE 


dd 10+1112 131445161718191A1B EtD HE 1F Sum 














7800000060000000003000000078000003FE:09 
781003000326030000DA0000005A00000006:69 
78200070000200F8000007DF0000078F0000EE6 
7830 01 24 00 00 00 08 00000008000006000000:D5 
784000000000400FFFFF4007EFFF4007 計 FFi87 
78504007C7FF4BOFEIFF4BIFrOFFA4FFFFOFFsiDD 
7860 407FF8FF403FFC47407FFE03 43EOFE 01:5A 
787030F7E0O14137BEO141DFBEO143DF 9F 81 525 
7880 47EFEF817FEE37C17FEDFBE1F5SFDC3 577 
7890 67F5SFEB767FSFF6F67FAFFBF6FB7DE7i70 
78405FD9EF973FDEF7F73FEFY 鑑 73FF 区 17 :D 
7880 59FF 13FB 49 FE 67 ED 61FO 06 01 71 E0 04 01 :BD 
78C0 78E0000178400001787000017EF800015:90 
78D07EOE00017L0780017800EO0170007801:iD1 
7E07000E01780007817E0380017E03F8 01:28B 
78FO7F27FF817FFFFFCE100000FFE80000FFEiFE 
Suam: 141E7979EA6AA103B830D 25CO 1E5S8 27 598 
Ad 101112131415161718149161B +10D E F Sum 
7900000007FE000007FE000003FE000003FEiOE 
7910000001FE0000007E0000000E03000000:BE 
7920 07000000060000000000000400000004i15 
7930 00000004000000000000000000000000:04 
7940 00000000000000000000000000000000:00 
7950000000000000000000000000000000005:00 
794000000000000000000000000000000000:00 
797000000000000000000000000000000000500 
7980 02000000000000000000100000001000 テ 522 


7990000010000000000000000000000000005i10 
79800000000000000000000000007FFFEO0O1iiSF 
79807FFFEO017FFFFO017FFFF0017FFFF8 01:B4 
79C07FFDF8017FF3FCO17FC7FE017L2FFF 81:54 
7900785FFFF1703FFFFF70FFFFFB71FFFFF5i41 
79EO076FFFFFS787FFFFS7A7FFFF17A7FFFD1:O8 
79F07A7FFFE17A7FFFE1787FFFA70E3FFC1iSE 


Sum: 0F09EDE9682FFO5360C3FE9FD8 BEE7 0EEiF1 


人 d 10 4112 1314 4154617 48 4911B ED E 1F Su 
7800731CEFFE177BFFE17BBFCF417BBFF7 81:B1 
7A10 7DDFFB 81 7E6FE3 81 5F 97 E1 81 5F E3 81 81 iC5 
720 4FFO 81 01 4FF2 01 01 生 F5 83 01 47 F5 07 01 :E0 
730 40 F6 DE 01 42F6 FE 01 42F6C8 01 40 EE D6 01 :50 
7840 43EED00143EEDO0147DECO01461EFO01iF 
7850 47 BBF8014F7DF8O14FFBFEO14FFFFEO1: 特 
766000000000000000008000000000000000:80 
784700060006000F000FO0%039E030C030EiFE 
7A80 01 98 07 98 00FO 1BFO0 01F8 3C 78 00 90 E7 50 :67 
78900000300200066003000 光 001E007E00i4F 
78A00EOE2400181E0000307380CO386181EO: 待 
7 人 B0 103073H0O1IE0618003F03300012 01EOi23 
7AE0000003FO000001202000000030000000:64 
7AD0 31800000FCO00003FFFCO003FFFC780:3 
7E03FFFC78E3FFFFF8E3FFFFFFE3FFFFFFE:iD4 
7AFOFFFFFFE3FFFFFFEFFFFFFE3FFFFFFEiEC 


Sum: 053EDFF20D5B6FEAC25D71E638 衝 ECO9EiNF 


dd +101112 3141516171819 1N 1B EtD E 1F Su 
78003FFFFFFEIFFFFFFEOSFFFFFE007FFFFEiD1 
78100007FFFE67FFF3FF63FFFIFF63FFF9FF:i08 
7820779FFD9F7BOFFOF7B0118017B01 98 01 i28 
7830 780108016403E403 邊 07EO074020003:0D 
78407E0600475FGE00 好 4 特 FFOOFF4IFFB1F3i08 
7850 41F300E341E181E743001B2F47003E1FiD2 
7860 43003003458070036ECOFO0O37E807807i49 
7870 SEEOFEOF43EDEO007607FE4OF7407EEDFii8 
788075803FFF71D0007F7FD7CO017FE7 07 81:8 
78907FFFD7F7FFFE7AF7FFFFFBF5FFFFFFFi60 
79A0 43FFFFFF407FFFFF4007FFFF40003FFFiCO 
7BBO 40 00007F40 00 00 01 40 000001400000 01 582 
7BEO 40 00000140000001FFFFFFFF7FFFFFFF:FA 
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と と とどめ 4 は RAFHT 


ダン プ ・ リ スト 











78D07FEO7FFF7FF9FFF7EFFEFFF7DFFF7FFiF6 
7BEO07BFFFBFF 77FFFDFF77FFFDFF6FFFFEFF:iC3 
7BFO6FFFFEFF6FFFFEFFAFFFFEFFe6FFFFEFF:E 


Sum: 8H9BBE02857469B6B1D3ED1D7C9 9E 75:F4 


Add 10+1142 131415161718191A1B 北 DE 1F Sum 
7C006FFFFEFF6FFFFEFF77FFFDFF77FFFDFF:BA 
7107BFFFBFF7DFFF7FF7EFFEFFF7FYF 9FFF iD 
7207FEO7FFF7FFFFFFF7FFFFFFF7FEOOFFF:02 
7C307E0000FF6000000F4000000340000001:GE 
7E40 40 000001400000014000000140000001:04 
7C50 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
7C60 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
7C70 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
780 40 00 00 01 40 00 00 01 40 3F 80 01 40 FF E0 01 :A2 
7C90 41FFFO 01 43FF F8 01 47 FF FE 01 47 FF FE 01 :F2 
7EA0 4FFFFE01 牡 FFFEO1 4FFFFE014FFFFE 01 534 
7CBO 条 FFFE014FFFFE0O14FFFFE0147FFFE 01:28 
7ECO 47FFFC 01 3FF F8 01 41FFF0 01 40FF E0 01 :CF 
7EDO 40 3F 8001400000014000000140000001:C5 
7EEO 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
7CFO 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 


Sum: 0BF9EO0 08EFF9EO18DA38530CD2F961 08 :75 


dd 10 11 12 13 14 151617 18 19 1 1B tE 1D 1E +F Su 
7000 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
7D10 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
7020 40 00 00 01 40 00 00 01 40 00 00 01 40 00 00 01 :04 
70307E7FF3FF70FFF8FF47E3FE1F7FEBFFC3:CB 
70407FOBFFF9FF79FFFF7B6E7FFF7BBFIFFF:iB2 
70507BFIDFFF379E3FF69FFE3FF6AFFEBFF:85 
7D606A0E09FF688OFEFF6AAAFE7F4NAOFFYFiIE 
70707EIFFEBF5FFFFD876FFFFB716FFFF4 ED :63 
7080 77FF E3 DD 77FBFF BB 5BFIFE 7765FBF9CF:4B 
709078F9E43F7FFBCEGFF7FFFFF3F7FFFFE07:OF 
70607FFFFE0O17FFFFE017FFBFC017FFCFO 01 :D9 
70BO 60 3000014000000140000001400000035:56 
70EO 40 00 00 03 40 00 00 03 40 00 00 07 70 00 00 07 :44 
70007E00700F7FOSFEIF7FIFFFF7FFFFFFF:FO 
70E07FFFFFFF7E0003FF700000FF4000001Fi(6 
7DF0 40 000003400000014000000140000001:06 


Sumi 67CE0AEABD 687064C9 011 0EEF 3DE2FO0:19 


][ 











聞 d 10 41 12 13 44 151617 4819 148 1B tE 10 ETF Sum 
7E00 40 000001400000014000000148000001:OC 
7E10 48 00 08 01 48 0008 01 48 00FE01 48 00FE 01 :2E 
7E20 4800FF017CEIFFE01SFFEFE 01 御 98FB 71 88 
7E30 4F 88 80E1I 7C9 23E1 47EA7F 83 43F1 FE 07 iEB 
7E4061FA380F780D860F7F8BE3FFSF01FF 3FiFB 
7E50 49 83 FE 07 41 C7 9E 01 43 83 BE 01 41 1B EE 01 :12 
7E60 41 FE FO0 01 80 30 00 01 40 00 00 01 40 00 00 01 :41 
7E70 40000003400000034000000340000007i10 
7E80700000077E00700F7FOFEIF7FIFFF FiEB 
7E90 7FFFFFFF7FFFFFFF 0380 00 0007000000.i82 
7EA0 BE0000001C0000003800000030000000i12 
7EBO 20000000000000000000000000000000:20 
7ECO00000000000000000000000000000000:00 
7EDO00000000000000000000000000000000:00 
7EE000000000000000000000000000000000:00 
7EF0 000000000001EO000003FOO00O00037E00.:S5 


Sum: E7000C048BB77416287A8289FBE7SEO1iDE 


dd 101112131415161718191A1B 交 10 福 1F Sum 
7F000007E000003SE0000036E000002F200:47 
7F10 00 01FE 00 0001FO000801FO000301FO005:09 
7F2007000000070000000700000007000060:7 
7F30 03000000000004600000036000000360:2D 
7F40000001A000000000000000007920004Fi9 
7F50 7060001768FO000BSSF80007680C0003i17 
7F6050060003600200014003200170033001iE4 
7F70780180017001F8417001FD417001FFE15iB4 
7F804009E7C1600D81E1400E0061401E0021:OC 
7F90 40 10 77 E1 40 1F FBE1 41 1E 7B E1 41 3E 3D『1 54B 
7FA0 41EBDF143BEIEFI3BEOE7163F801 71i 
7FBO 73FB8 00F1 71F800F979F800F97DFO00F9iBE 
7FECO7F6800F95FB400F959B807FBS20DC07FFi3 
7F00 513DF7FF627E07FF757EDFFF727FFF FiC8 
7FE0757FFF2F7A7FF90F6B7FF44177 7FF1 21 』47 
7FF0 7EFF82417FEO01217C00000140000001gi7F 


Sum: 590DBEA7 牡 68E581 21 95E191 874F4930:i4F 
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F'M-S 活用 研究 





中 9 請 


トド 


ンー 





上 1809 あ 放 


FM-8 に は , アナ ログ ・ ポ ー ト が 付い て いる の に な ぜ み か 汎 
用 の パラ レル ・ ポ ボ ポート は 付い て いま せん . 作る に し て も 。, 
本 体内 に スロ ッ ト は 付い て な いし 拡張 ユニ ッ ト は 発売 予定 
の まま で す . し か し , 何と か |/O ポ ー ト を つけ よう と 思い , 
FM-8 の 基板 上 に ある 『Z80 ソ フト ・ カ ー ド 』 用 の コネ ク 
タ を 利用 する こと を 考え まし た . 


Z80 ソ フト ・ 





当初 , 1I/O ボート は 本 体 後部 に ある EXPANSION PORT 
に 接続 する つも り で し た が , 50 ピ ン も ある ソケット を テス 
タ で 調べ る の は 面倒 で ,。 し か も フラ ッ ト ・ ケ ー ブ ル を 使う 
こと に な り , 製作 乾 が 高く な っ て し まい ます 。 そこ で , Z 
80 ソ フト ・ カ ー ド 用 の コネ クタ を 使う こと に し まし た . 

Z80 カ ー ド 用 の コネ クタ は 20 ピ ン x 2 の 計 40 ピ ン で , Z 
80 カ ー ド の 回 路 を 見 な が ら テ スタ で 調べ た 結果 に よる と , 
表 1 の よう に な っ て いる よう で す . 

その 40 本 の 中 に は P I A に 必要 な 
バス 。 計 24 本 ,、 さら に EE, R/W, R 
と すべ て 揃っ て いま す . 


アド レス ズ 。 デー タ の 衝 
ESET, 填 5V, GND 


回 路 は I/O 誌 ?81 年 4 月 号 の 『macaroni/I の 製作 」 を 参考 
候 し まし だ た 。 

問題 に な る の は ポー ト の アド レス で す . FM-8 は &HFD 
00 一 多 HFDFF まで の 256 バ イト が I/O エ リア で す が , 詳し 
い マ ッ プ は 発表 きれ て いま せん . 








macaroni/I の よう に アド レス ・ デ コー ド に DIP・SW と 
EX-OR を 使っ て , アド レス を 可変 式 に し て トラ ブル の な い 
番地 を 探せ ば よい わけ で す が , 初め か ら PIA を 2 個 つ な 
げ る 予定 ご だ っ た こと と 費用 の 点 か ら LS138 を 2 個 使っ て 半 
固定 式 の アド レス ・ デ コー ド に し て し まい まし た . 

ボー ト の アド レス も 上 の ほう は 使っ て いな い だ ろ うと い 
う 独断 で &HFDE0 か ら に し まし た が , いま の と ころ 実用 
ト 上 の 問題 は な いよ う です. 

た だ し , 現在 の と ころ プリ ンタ 以外 周辺 装置 は 継が っ て 
いな い の で , ディ スク な ど を 使っ た 場合 問題 に な る か も し 
れ ま せん . アド レス は 半 固 定式 な の で 配線 を 2 本 変え る だ 
け で ポー ト の アド レス を 変え る こと が で きま す . 


IC は LS-TTL が 4 個 に LSI (PIA) が 2 個 で す (写真 
の 基板 は 他 の イン ター フェ イス も 付い て いる の で 1 C の 数 
が 増え て いま す ). PIA は FM-8 の メイ ン の CPU が 68A09 
タイ ププ なので, 多少 高く て も 68A21 を 使っ た ほう が 良い で 
RGD 

工作 で 特に 次 し いと ころ は あり ませ ん が , 2 つの 20 ピ ン 
の プラ グ を し っ か り 固 定 す る こと が 重要 で す . 

部 品 に つい て は コネ クタ の 間隔 と FM-8 の 中 の スペ ー ス 
を 考 誠 し て 基板 の 大 き さ を 決め る こと と , 乙 80 用 コネ クタ 
に 合う プラ グ を 探す こと で す . 

実際 に 使っ た 基板 は 普通 の 穴 あ ク で し た が , 配線 
引き 出し 用 の コネ クタ を つけ る 場所 が な く て , 2 階 建 て の 
構造 に な っ て し まい まし た だ た. まだ た, プラ グ の ほう は 数 百 円 
民度 で 手 に 入り まし た . 
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ま 
図 1 |/O ポ ー ト の 回 路 図 (アド レス は FDE 0 --FDE 7 ) 
デー タ ・ バ ス Do 一 D 
As R/W 
ロ RES こ 
6 Ls30) py 
As 麻生 計 記 
レシ * と 
1/6 LS04 N 
A7 
Ae 
As 
RSo を Ai, RS」 を Ao 
に 接続 し て ある の で , 
ポ ボート と アド レス の 関係 
係 は 次 の よう に な っ て 
いま す . 
A。 AilAo 
0 | 0 | ポー ト A/DDRA 
As 0 | 1 | ポー ト B/DDRB 
110|CRA 
1|1|cRB 
表 1 80 ソ フト ・ カ ー ド 用 コネ クタ の ピン 配置 図 2 PIA の 応用 
(コン ] 
OONO バ バ XI} ヤ ば QO. DD | oyE: | CN 8 B 和 
カラ ーTV 用 
1 Ao De FM-8 の RGB 出 力 1/4 LS00X 9 1/3LSX 3 アダプタ ヘ へ 
2 Ai Di | 
3 As D: | 
4 As Ds | 
5 A4 D,。 デー タ ・ バ ベス 
6 As ! Ds | 
M Ae アド レス ・ バ ス De | 
8 Az Dz 
9 As み (クロ ッ ク ) 
10 As RESET 
11 Aio INT (6809 の IRQ) 
M2 Ai NMI 
13 Ai2 GND 
14 Ais GND | GND 
15 An4 GND 
16 Ais M E 
17 rec ] 
18 ⑯⑬・⑬+⑫⑰ が Z80 の WAIT へ 人 + 5V 
19 Vcc 
20 R/W Q 

















PIA の 使用 法 は macaroni/I の 記事 に 詳し く 出 て いる の で , 
そちら を 参照 し て くだ さい . BASIC か ら POKE 文 と PEEK 
文 に より 制御 で きる の で 操作 は 簡単 で す . 

ここ で PIA の 簡単 な 応用 を 紹介 し ます . FM-8 の ビデ オ 
出力 に は RGB 出 力 と コン ボ ポジ ッ ト 出 力 が あり ます が , R 
G B 出 力 の ほう は エエ エレ ベル の 信号 で す . 

そこ で , この RG B の 各 信 号 を エエ 工 で 制御 し て , た と 
えば, R ( 赤 ) だ け を “ 百 "(R と G と B) と し て 出力 し た り , 
ある い は “R を G",。 “G を B", “B を R" と 入れ 替え て 出力 
し た り し ます . これ に より 瞬時 に 画面 の 色 を 変え た り , 3 











PAPAiPAPAiPAIPAPA 
PIA へ 











枚 独 立 の 白黒 画面 に し た り で きま す . 
回 路 を 図 2 に 示し ます が , 信号 線 が 9 本 必要 な の で ラッ 
チ を 使っ て 2 回 に 分 け て 信号 を 送る よう に し て いま す . 
図 に 示し た よう に 配線 し た 場合 ,. PIA の 制御 は 次 の よ 
うに な り ま す . 
まず , PIA を 出力 に 設定 し ます . 
PADR= ニ ボー ト の アド レス 
PCNT= テ ポー ト の コン トロ ー ル ・ レ ジス タ の アド レス 
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1O 


する に と 





10 POKE PCNT, &H00 : 
POKE PADR, を HEE : 
POKE PCNT, &H04 








な ど と “PSET" で は な く “OR” を 使い ます . また , 画面 の 
赤 の 成分 だ け を 消す 場合 は 多少 時 間 は か か り ま す が , 赤 の 
補色 すなわち 水色 (5) を 使っ て 





LINE(0, 0) 一 (639, 199), AND, 5, BF 








これ で PIA の PADR で 示さ れる ポー ト を 全 ビ ッ ト 出 力 に 
定義 で きま し た . 


さら に 色 を 変え る た め の サ プ ブルー チン を 作っ て お きま す . 





200 POKE PADR, 1281B: POKE PADR, B 
210 POKE G*8+R 
220 RETURN 








信号 を 送る に は , 変数 “R, G, B" に 適当 な 値 を 代入 し 
て GOSUB 200 と し ます . 
⑯ 通常 の 画面 
RG ーー 2 32B* 王 スス 
@ 赤 の 信号 だ け を 白 と し て 表示 
ROSSB 三 0 
な ど と し ます . R, G, B の 各 値 は 0 一 7 まで の 整数 で す . 
赤 。 青 , 緑 、 それ ぞ れ 別 の 絵 を 描く と き は た と える ば 





LINE(X1,。 Y1) 一 (X2, Y2), OR, 2, B 
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と : し ます 


今回 紹介 し た 回 路 は macaroni/I を 参考 に し て いま す が , 
コン パチ な も の で は あり ませ ん . し か し , PIA を 2 つ 使 
う 代 わり に 一 方 を V I A と し て macaroni/I と コン パチ に 作 
れ ば , 1/O 誌上 に 発表 きれ て いる macaroni/I を 使っ た 応 
用 例 を その まま 使う こと も 不可 能 で は あり ませ ん . 

他 に も P IA を 使っ た 応用 は 数 多く ある の で , ハー ドウ 
ェ ア に 少し で も 興味 の ある 人 は ぜひ 作っ て みて は いか が で 
じょう か 。 


避 参 考 文献 
庄司 正博 : macaroni/I の 製作 ?。 1/O, 1981.4 


画 : 舌 款 2 の 信 コ ジ | 妨 め 





図 3 . 汎用 イン ター フェ イス 





FM- 8 の シス テム 拡張 ユニ ッ ト を 首 を 長 一 くし て 待っ て 
いる 人 の た め に , 拡張 イン ター フェ イス を 発表 し ます . 





FDB8 一 FDBF 
FDB0 一 FDB7 


図 1. 拡張 イン ター フェ イス 





EXPANSION PORT 


CS(FD30 一 FDFF) 
Az Po 





FDA8 一 FDAF 


FDA0 一 FDA7 


















































As FD98ーFD9F 
C49 1 UP Ga1 Ai FD90-FD97 
Ai FD88-FD8F 
の JC OMO FD80-FD87 
【@) O O LEI さ ささ ささ すす OO OO O 
C50 G'2 
(本 体 背面 より 見 た 図 ) で Dg? 
空白 部 : 不明 で Ds 
FD85 
C 1 |IRESET| C 2 1 
C 3 C4 | CS |FD0O 0 一 FD2F(FM-8 内 部 で 使用 Az FD8 3 
CcC5 | IRQ |c6 Do 中 また は 拡張 イン ター フェ イス Au FD82 
= ニッ ト な ? Ao FD81 
C7 MG8 pi ユニ ッ ト な ど て 使用 予定 ? の al 
シス テム | /O エ リア , CS ) 
C9 | FIRQ | Cc10 Ds 
C11 |HALT | C12 Ds 
C13 | BA |C14 Di 
C15 | BS |C16 Ds 了 
C17 C18 Ds 2 
C19 C20 Dz 1 
C21 C22 | GND 





C23 | R/W |C24 | GND 
C25 | GND | C26 Ao 
C27 Ai C28 Az 
C29 As C30 A4 
C31 As C32 Ae 
C33 Az C34 As 
C35 As C36 Aio 
C37 Ai C38 Aiz 
C39 Ais C40 Ans 
C41 Ais C42 
C43 | MRDY | C44 
C45 | 士 5VIC46 土 5V 
C47 Q C48 GND 
C49 E C50 GND 









































FM-8 に は EXPANSION PORT が 用 意 さ れ て 
いま す が , 各 端 子 に どの 信号 が 出 て いる の か マニ ュ ア ル に 
も 載っ て いま せん . 

シス テム 抜 張 ユ ニッ ト 内 の バス に 関し て は 公表 する 子 定 
らし い の で す が , 発売 子 定 の まま で は どう し よう も な い の 
が 現状 で す . そこ で , 当方 で 独自 に 調査 し まし た . まだ 不 
明 の 部 分 も ち も あ り ま す が , 一 般 的 使用 に 関し て は 充分 実用 に 
な る と 思い ます . 

図 1 は 本 体 背 面 に 出 て いる EXPANSION POR 
T の 端子 と その 信号 の 対応 関係 で す . この 中 で , C 4 の CS 
は シス テム で 使用 中 また は シス テム 拡張 ユニ ッ ト な ど で 使 
用 子 定 (? ) の I/O ポ ー ト 用 チッ プ ・ セ レク ト 信 号 で す . 

アド レス は FD00-ーFD2F の 4 8 ポー ト で す . で す 
か ら , ユー ザー の 使用 可能 な I/O ア ドレ ス は FD30 一 















































EXPANSION 
PORT に つい て 
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シス テム 1/O ボ ポー ト 


ー ア ドレ ス | 内 容 


1 
FD00 bo: カセ ッ ト ・ デ ー タ 出力 」 bi: カセ ッ ト ・ モ ー タ ・ 
ON/OFF, bs : プリ ンタ STROBE 出 力 , bz : ? 
FD0O1 プリ ンタ へ Data 出 力 
FD02 bo: プリ ンタ より の BUSY 入 力 , bi。 bs : プリ ンタ ・ ス 
テー タス , b7 : カセ ッ ト ・ デ ー タ 入力 
FD03 |bo:Bell ON/OFF, bz: ? 
FD04 bi:2 入力 
FD05 bo : 80/6809( ? ) bz : サブ プシ ステ ム よ り の BUSY 信 
号 (Ready ) 
FD08 | 音声 合成 (出力 ) 
09 / (出力 ) 
0 A / (入力 ) 
0B / (出力 ) 
FD0C | アナ ログ ・ 入 力 ポ ボート (コン トロ ー ル 出力 ) 
FD10 バ パプ ブル デー タ 入 出力 レジ スタ 
/ 1 1 7/ コマ ンド 出力 レジ スタ 
1 二 2 / ステ ー タ ス 入 カレ ジス タ 
ん 。 必 9 / エラ ー・ ス テー タス 入 カ レジ スタ 
FD14, 15 の / ページ ・ ア ドレ ス 出 力 レジスタ 
/ 16, 17 / ベー ジ ・ カ ウン ト 出 力 レ ジス タ “ 
FD18 | DISK ステ ー タ ス ( 入 力 ), コマ ンド (出力 ) 
1 9 74 トラ ッ ク ( 〉 ), トラ ッ ク ( 出 力 ) 
1 A / 4 ググ (か お 補 ググ (か が ) 
1 / ウパ ーー タダ (か)。 ジー" タ ( 7 ん) 
1 C の / ?2 ェ ・ サイ ド NO.( 〉 ) 
1D か ドラ イプ ・ ス テー タス (入力 ), 
ドラ イプ ブ NO.( 出 力 ) 
1E / ? 2 
1F / ? ? 
FD20, 21 | 漠 字 出力 ボー ト 
22, 23 / 入力 ポ ボート 














F DEFEF で す .。 アド レス 信号 ,。 コン トロ ー ル 信号 は 7 4 し 
S244 の バッ ファ を 通し て , デー タ は 74LS245 を 
通し て 外 に 出 て いま す . 

図 2 は 拡張 イン ター フェ イス の 内 部 バス 用 回 路 例 で す . 
デー タ ・ バ ス は FD30 一 FDFE の アド レス に 関し て の 
み 本 体 と 接続 され ます . 

図 3 は 汎用 入出 力 ポ ー ト 例 で す . A/D, D/A と の 接続 , 
IEEE-4 8 8 バス と の イン ター フェ イス な ど 各 種 応 用 が 
可能 で す . 当方 で は 数 値 演算 素子 と の 接続 , 測定 器 と の 接 
続 な ど を 考え て いま す . 

現在 。 出力 ポー ト か ら デ ー タ ・ ア ドレ ス を 出し , 入力 ポ 
ー ト か ら デ ー タ を 読み 取る タイ プ の ROOM 内容 読み 取り 回 
を 構成 し て いま す . これ を 使っ て , IPLROM の 内 容 を 
読み 取り , 解読 し た の で 次 の 機会 に は 発表 し た いと 思い ま 
598 





シス テム ・1/ ひ O 
ボ ポート 
BIOS を 解読 し た 結果 解 か っ た 1T/O ポー ト の 内 容 で 


す . 誤り も ある と 思い ます の で , 気付 いた 人 は 投稿 し て く 
だ さい . 
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図 2。 インター フェ イス 








48 ア ドレ ス 使 用 中 
使用 可能 |!/O エリ ア FD30H-FDFFH (208 ア ドレ ス ) 
FD 0011 0000 
1 
ED: 浅 出 81 貞 條 計 1 同 委 1i1 





Csz 
Case 
Css 
Css 


C4 FD00 一 FD2F 


アド レス 確定 From CPU 


デー タ ・ ラ ッ チ by CPU 











ノノ S0A カ ー ド 


本 体 と は 20 ピ ン の コネ クタ 2 つ (CN8A と CN8B) で 
接続 きれ て いま す . カー ド 上 で Z 8 0 の 信号 か ら 6809 
シス テム 用 R/W、Q, EE を 作っ て いま す . CN8B の 9 ピ 
ン か ら 2.5MHz の クロ ッ ク が 供給 され て いま す . ジャ ン ラ *・ 
ピン に より 1.25MHz の クロ ッ ク に する こと も 可能 で す . 





自作 有 8 0 A カ ー ド 


&O 








Z80A カ ー ド 


ン 80A-Ais(5 
Z80A- Ai4(4 
Z80A- Ai:(3 
Z80A- Aiz(2) 
Z80A- Aii(1 
Z80A- Aio40) 
80A-A。 69 
Z80A- As 68 


Z80A-Az 67 
80A-Ae 66 
80A-As 65 
Z80A-A4 6@4 
Z80A-As 63 
80A-A。 62 
Z80A-Ai 6@1 
Z80A-Ao 60 





LS04 八 
ES06 LS04 


③⑤@@ 


4.7 
4.7k 


日 
・\ 














ン 80A-Dz 
80A-Ds 
Z ン 80A-Ds 
Z ン 80A-D。 
Z ン 80A-Ds 
Z80A-D> 
Z ン 80A-Di 
Z ン 80A-D。 


Z80A re 一 や 





90000 680 LS02 
E2 6 > 
Z80A WR@ 
・ ァ 80A みる ⑥ 
LS125 
Z80A NMI⑩⑫ 
Z80AINT⑯ 





ン 80A RESET ⑯ 





レ 


LS125 


Z80A IORQ⑳⑩ 一 X 


R D ⑳ 一 


BUSAK ⑳⑯⑳ 一 X 
EDsRG⑤-] ft 
HALT 
MI⑳ 一 X 
RFSH⑳⑯⑳ 一 X 
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FIVi- お 


PS カー ド の 製作 


伴 作 貴 弥 ・ 中 導 
田中 典 医 ・ 渡 辺 昌彦 








ETF Laboratorys 較 








FM- 8 は デュ アル CPU シス テム の 採用 や 640X200 ド ッ な り ま す . 
ト の 高 解像度 グラ フィ ックス な ど 非 常に すばらし い 機 能 を エエ エ -IC 用 の ソケット な ど は IC そ の も の より も 高 
持ち な が ら , SOUND 関係 で は BEEP し か あり ませ ん . 価 だ どっ た り し ます が , 後々 の こと を 考え れ ば 得 だ と 思い ま 
そこ で , SOUND 機能 を 強化 する た め に FM- 8 に PSG す . その 際 .、 ソケット は で きる だ けい いも の を 使っ て くだ 
(Programmable Sound Generator) を 接続 し て み ま し た . さい . 安物 は , 接触 不良 を 起こ し ます . 私 は ソケット の 接 





触 不良 で 非常 に 苦労 し た こと が あり ます (ソケット が 悪い 
と は 思わ な か っ た ). 


069RSiRSiEeHRoHEeHEoEe 
総 % 











1I/O 4 月 号 の 汎用 I/O ポー ト と 同じ よう に Z80 カ ー ド の 
代わ り に , 本 体内 に 実装 する こと に し まし た . バ ーー 2 
PSG と FM-8 と の 仲介 に は , V 1 A6522 を 使い まし た . VIA・PSG テ スト 用 の プロ グラ ム と 自動 演 : 











炎 用 の プ 
V IA は 今回 , 単なる 出力 ポー ト と し て し か 使っ て いま せ ログ ラム * (M. PP) を 制作 し まし た . V IA テス ト ・ プ 
ん が タイマ を 内 蔵 し て いる な ど , 非常 に 多 機能 で 応用 範 ログ ラム は V IA の タイ マ を 利用 し て , 音階 を 出す プロ グ 
囲 は 広い と 思い ます . ラム で す .。 ド ・ レ ・ ミ … と 聞こ えれ ば OK で す . 

I/O アド レス は $FDF0 一 $FDFF と し まし た が , 都合 P SG デス RSe2 ロ ジラ パ は 。 レジ スタ No. を デ 吉 夕 を 
の 悪い 方 は 適当 に デュ ー タ 部 分 を 変更 し て くだ さい . 入力 する と それ を P SG に 転送 し ます . レジ スタ 表 を 参考 





に いろ いろ と 試し て くだ さい . 
M. P. 革 は 自動 演 湊 の プロ グラ ム で , MZ-80 の MUS 
IC 文 と ほぼ 同じ です . スト リン グ 変 数 に 曲 デ ー タ を 代入 








し て , USR 廊 で M. P. し を コー ル し ます . 

部 品 は , 特別 な も の は 使っ て いま せん が , V IA は C $S6E00 が VIA・PSG の イニ シャ ライ ズ お よび 演 
PU の クロ ッ ク が 約 1.3MHz な の で , A バ バー ジョン を 使 湊 用 テン ポ の セッ ト ・ ル ー チ ン の エン トリ ・ ア ドレ ス で , 
っ た 方 が 良い と 思い ます . $ 6 E03 が 演 湊 用 ルー チン の エン トリ り ・ ア ドレ ス で す . 

その 他 は 特に あり ませ ん が , 初め て ハン ダ ゴ テ を 提 る と テン ポ は 初め V IA の タイ マ を 使う つも り で し た が , 使 
いう 方 に は , I C に すべ て ソケット を 使う こと を すす め ま い 方 が よく 解ら な か っ た の で ソフ ト で カウ ント し て いま す . 
す . ソケット を 使う こと に より , ハン ダブ づけ 中 に 1 C を 壊 で すか ら , 多少 速く な っ た り , 遅く な っ た りす る か も 知れ 
すこ と も な く な る し , 配線 後 の チ ェ ッ ク が 非常 に や り 易 く ませ ん . 
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① オク ター ブ プ 指定 1 
コー ド 区 | _M H 
商 オク ター プ 低 必 学 軸 高 
1 つの 音符 は オク ター ブフ 指定 , 音 形 指定 , 音 長 指定 音 ② 音 形 指定 
程 指定 に よっ て 構成 され ます . この うち 前 の 音符 と 等 し い コー ザー ES 還 を 2 半 
場合 音程 デー タ を 除い て 省略 する こと が で きま す . 琶 $ | NN00 隊 76800N002| 
@ オ クタ ー ブ 指 定 (し 上 ・M・H ) ③ 音 長 指定 
音階 レン ジ の 切り 換え で す . コー ド 0|1|2|3|4|5|6|7|8l9i 
音 形 指定 (P1 ユ ー P4) 音符 | MM 中 引用 
2 『 長 で も , スタ ッ カ ー ト 気味 と か , テ ヌ ー ト 気味 と ④ 音程 指定 
の 変化 を つけ ます . | コー ド [clplElFlelAlB|  # R 
音 長 指定 (0 一 9) 音 程 | レミ | レラ ァ | ン | ラ | シ | 半音 上 げ る | 体 符 
音符 の 長き さ を 指定 し ます . 
@ 音 程 指定 (CDEFGABC) (#) (R) ま : が 。 ww 、 
音程 を 指定 し ます . 半音 は # の み 有 効 で 音程 指定 の 次 に 
斗 を 書き ます . また R の と き は , 休 待 と な り ま す . 〇 参考 文献 





1 )I/O "79 9 月 号 “プロ グラ マブ ル ・ サ ウン ド ・ ジ ェ ネ レ 
と ー タ の 製作 " 
総 悪 総 強 2 ) I/O "81 8 月 号 “レベ ル 3 に P SG を 接続 する " 
キャ や: 3 3 ) I/O "8112 月 号 “P SG に よる 音楽 自動 演 湊 " 
土曜 日 の 午後 に 秋葉 原 に 行き , 日 曜日 の 夕方 に は ハー ド , 4 ) I/O "81 4 月 号 一 “macaroni 1" 
ソフ ト を 完成 させ る こと が で きま し た . 部 品数 も 少な い の 
で , みな さん ぜひ 製作 し て くだ さい . 
今回 の も の は 応用 ソフ ト も 少な く , 自動 演 湊 も 単音 の み 
で し た が , P SG の 特徴 を 生か し て ポリ フォ ニッ ク で , 
イナ ミッ ク ? な サウ ンド を 作る ソフ ト を 制作 し た いと 思い 











































































































































部 品 表 PSG レ ジス タ 表 
部 品名 | 形 番 | 休 数 の EEMETIETIEYIEFIETIETIEY 
1C A Y-3-8910 1 R.O a 8 ビット 後 調整 
CA 1 2 8 ピット 後 調整 
74LS138 1 トー | チャ ン ネ ル 日 音階 
LM386N 1 3 レン ンジ ジジ ジジ 〈 ジ 4 ピッ ト 粗 調整 
回 0 3 耳 EE 8 ピッ ト 微 調整 
2.2K 1 5 4 ビット 粗 調整 
10k 2 6 ググ 8 ピット 調 整 
20K 1 IO ボー ド な ら び IN/OUT ノイ ズ 音 階 
半 固 定 V R 10K 3 6 チャ ン ネ ル 指 定 日 A C B ム 
ビ 0 に 半生 8 | チャ ン ネ ル A ア ンプ クン Mi Em | eg 二 
/4 
1 陸 9 ッ ー ョ ァ ン レン ググ ジグ ジグ ジ 用 有 クル |6 16 le le 
4.7/ 16V (タン タル ) 1 A ル C ア ンプ レグ 多 ジジ 多 M Ls L2 Li Lo 
0.01。 (マイ ラ ) 1 ーー | ユン ロー タ 馬 着 8 ピッ ト 後 調整 
コネ クタ SP 用 1 で 8 ビッ ト 粗 調整 
20 ビ 2 D | エン ベロ ー プ 波形 CONT | ATT | ALT |HOLD 
Cec2/ 40P 2 E | !/O ボ ー ド A 8 ピッ ト 入 出力 ポー ト A 
基 板 ! F | 1/O ボ ー ド 昌 8 ビッ ト 入 出力 ポー ト 日 
その 他 配線 材料 な ど 
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1 
SO 
さ 
49 


SQ 
に 76) 
79 
に 19】 


サン プル ・ プ ログ ラム 


* DEMH_ FRHGRAI 

CLEAR さ Q0。 HGDFF 

DEFUSRQO=&H6EOO DEFUSR1 =SzH6EO ユ 
=USRO (BSQO) 「 TEMFO SET INIT 
RERD 全 = 朋 生 HBR1 ( 全 ) 

READ 谷 事 』 朋 =USGR1 (全う 

DaTa FSSEMDE9F さ RFGFE1ED さ CLaMIF'49DF 17D 
DaTA FSSMDE9FSRFGFE1ED3 さ CDF49aF17 合 


A Y-8 の ピン 配置 図 


PSG カ ー ド 回 路 図 


ちち 一 いい c っ 
ら 


D 
D 
D 
D 
D 
D 
D 
D 





PSG テス ト ・ プ ログ ラム 


) FSG TEST FROGRAN 

VURE=SzHFDFO: VURRa=SzHFDF 1 
DDRE=&HFDFS: DDR 人 =&HFDF さ : FCR=HFDFC 

FUEE FCR。O:FOEE DDRA。255: FUHEE DDRE,。 255 
INFIUT "REG。DaTA" saREB。DaT: GOSUB 60:GOTO 5Q 
* DATA SET ROUTINE 

FUEE VORE. さ :FOEE VURa。REG:FHEE VORE.Q 
FUEE VORA』DAT:FOEE VOURE。2:FUEE VORE。Q 
RETURN 
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ETIET 回 


皿 


ロ 
E] 
Ta 
回 
5」 
l6」 
じ 」 
加 
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ELELEIELET ETELEIEI 下 


回 





VIA テス ト ・ プ ログ ラム 














10 "VIa TEBT FROGRAN 

20 VIADDRE=&HFDFS: り TAQCR=SHFDFE 

ミ Q VITAT1L=HFDF4: り TAT1H=SHFDF5 

40 FDREE VIADDRE、%HBO 

50 FOEE り 1AaCR。&HCO 

60 RESTORE 

70 FOR 1=1 TO B:REaD C 

BO C=INT(61750! / ビ ) 

90 FURE VIAT1L。C MOD 256 

100 FORKE VIAT1H。TNT(C/256) 

110 FDR J=1 TO 5OO:NEXT:NEXT:G ロ TO6O 
120 DATA 261 . さ 。29 さ .66。 さ 29. 6 さ 。 さ 49. 2 さ 。 さ 92。440。49 さ 。 日 。52 さ . 25 























QQOO1 NAM NH.P. し # さ 

QoOQ2 も る も も 133 も も も 61393 も 7116333131 MUSIC2 

0000 さ * PSG Contoro11 Froqgram。 ホネ A。B。DPiX。 YaU。PC 
QQ0Q0Q04 し 3 for FM-B Version 1.2 ※* 

00005 * (C) ETF Laboratory・ 3 

Q0QQ06 4 Mr itten by T.Ka5a ほ ak に u. ネ 

OO0007 る る る する 6 も 111 も も も 91161 も 91661313161 Qoo4B 6E1QA 27  F6 6E12 EEG MUSIC1 

QOOQB 6EQO BEBIN EQU *$6EQO Qoo49 6E1C 97 OB STA CNT 

0QO009 0QG6E SETDF BEGIN/256 OOoQ05Q 6E1E AE  Q1 LDX 4 

GOO10 6EQQ QRG BEGIN 0QQ51 6E20 A6 Bo MUSIC さ LDA ュ メキ 

QooO1 1 OFT 8 QOO52 6E22 8B1 3O CMPA 。 7"O 

QO012 ポポ ポ ポポ ボボ ポポ ボボ ボボ 涼 涼 玉 涼 ポポ ボボ 玉 OOO53 6E24 25 1E  eE44 ECS MUSIC4 

Q001 さ * VIQ 1/ ロ address * ネ 00054 6E26 B1 40 CMPA 皇 9 

QQO14 沙 炒 炒 ※ 涼 玉 米 玉 米 玉水 涼 涼 玉 玉 玉 炒 玉 米 水玉 玉 玉 ボボ QOO55 6E28 25 20 6E4 人 BCS TEFC 

QQ015 FDF1 DRA EGU *FDF1 Q0O56 6E2A B1 41 CMFA 圭 " 介 

QQQO16 FDFQ ORE EGU *FDFO OOO57 6E2C 25 16 6E44 ECS MUSIC4 

QQO17 FDF ミ DDRA EQU *FDF さ OoO5B 6E2E B1 4 CMFA "日 

00Q1 昌 FDF2 DDRE  EGU *FDF2 QQOO59 6E さ QO 27 4D 6E7F BEG Q ロ CTH 

QQ019 FDF4 TiL EGU *FDF4 QOO60 6E ミ 2 25 67 6E9B BCS FLAY 

Qo02Q FDFB ACR EGBU *FDFE Qoo61 6E ミ 4 B1 4C CMFA 。 邊 し 

QO021 FDFD IFR EGU *FDFD 00062 6E36 27 40 6E78 BEG OCTL 

QooO22 FDFE IER EGBU *FDFE Qooe さ 6ESB B1 4D CMPA 。 導 M 

Oo02 さ する る も る 3 も も 3 も 13 も も 33 も 13 も 5331 OOO64 6ESA 27 さ F 6eE7ZB BEG CTNM 

Q00S4 * Frogram ENTRY ネ oooe5 。 6ESC 1 5O CMFA 。 壮 7 下 

QoQ25 3 も る る する も も も 《3 も 6 も 3 も 66 も 3 も 3366331 OOO66 6ESE 27 45 6EB5 BEG BTEC 

QQQO26 6EQO 16  O1OC 6FQF LEBRA TEMP INIT Routine Qooe7 6E40 B1 52 CMFA 桂 R 

00027 6EQ03 20 0Z 6EQOC ERA MUSIC FP1 ay Routine QOQ6 日 6E42 2 フ 4E 6E92 BEG REST 

QQQ028 水 水 玉水 米 洲 炒 涼 玉水 ※ 米 水素 ボ 洲 米 米 素 米 玉 QQOe9  e6E44 Qa QB MUSIC4 DEC ENT 

00029 * ネ MrOFE Rarea ネ QOQO70 。 6E46 26 DB  eE2O BNE MUSIC さ 

Q0030 ポポ 水 水 水玉 涼 洲 ポ 水 水 涼 涼 水 洲 涼 水 水 玉水 QoQ71 6E4B さ 5 FE MUSIC5 FULS AB、DP。X。Y。U。FC 
O0Q さ 1 6EQ5 QQ01 DCTE RMBE 1 00072 ポポ 氷水 玉 氷 氷水 玉水 氷水 氷水 水 
QOQ0032 6EQ6 QQQ1 BaTE RMB 1 QQ0 フ ミ * Step Time Se モ * 
00033 6E07 Qoo1 STEF RIE 1 QOO74 ポポ ポポ オ ポポ ポポ 玉水 氷 氷水 水 水 ポ 炒 
QQO さ 4 6EOB QQQ1 GATE1 RMB 1 Q0O75 6E4A B4 OF STEFC ANDA  #ZOQQO1111 
QO0S ロ 6EQ9 QOO1 STEF1 RRB 1 00076 6E4C さ 1  BD OOFO LEAY STEFTB。FCR 
QOOS6 6EOA Qoo1 BATE2 RRB 1 QQQ77 6E5Q さ 1  a6 LEAY Aa.Y 

QOQ37 6EOB QQO1 CNT RMB 1 QQQO7B 6E52 A6  a4 LDA ュ Y 

QQ00SB ポポ ポ ※ 水 水 氷 氷 氷水 ※ 水 玉水 来 水 ポ ポポ 水玉 O0079 6E54 97 0QZ STa STEF 

QO0 さ 9 * MUSIC FLAY 3 Qoo8BO 6E56 さ 4 02 FSHS Aa 

Qoo4o ネネ ポポ 玉 氷 玉水 玉 ※ 水 氷水 玉 ※※ QooB1 6E5B 96  Q6 LDa GATE 

OOQ41 6EQOC さ 4 7E HUSTC PSHS Aa。B。DP。X。Y。U QOOB2 6E5A 27 "12 6Ee6E EEGB STEFC1 
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コン トロ ー ル ・ プ ログ ラム ・ リ スト 


PSG 





QQQB さ 
00084 
QQ085 
OO006 
QQ0Q087 
Q00Q088 
QQOB9 
00090 
O00091 
00092 
0Q009 さ 
00094 
QQ0Q095 
00096 
00097 
Q0098 
0Q0099 
00100 
Q0Q1Q1 
00102 
Q010 さ 
Q0104 
QQ105 
00106 
Q0107 
OO010 昌 
0010 
GO110 
QQ111 
Q0112 
001 1 さ 
00114 
QQ0115 
QO116 
00117 
QQ118 
001 19 
QQ012Q 
QO121 
00122 
0012 さ 
Q0124 
Q0125 
00126 
00127 
Q0128 
00129 
Q01 さ Q 
001 さ 1 
Q0132 
001 さ さ 
001 さ 4 
OO01 さ 5 
Q0136 
001 さ 7 
Q01S 昌 
00139 
QQ0140 
O0141 
Q0142 
0014 さ 
Q0144 
00145 
00146 
00147 
QQ0148 
Q0149 
0015QO 
QO151 
00152 
0015 さ 
Q0154 
QO155 
Q0156 
00157 
00158 
00159 
QO16Q0 
QO161 
Q0162 
QO16 さ 
Q0164 
QO165 
00166 
00167 
QQ16 日 
00169 
Q00170 
QO171 
00172 
0017 さ 
00174 
QQ175 
QO0176 
QQO17Z 
QO178 
00179 
QO18O 
0Q018B1 
QO182 
QQ018 さ 
Q0184 
QQ0185 


6ESC 1 Q1 CMFA 昔 1 

6ESE 27 10 6E7O BEG STEPC2 

6E6Q 1 02 CMFA が 4 

6E62 26 OE 6E72 BNE STEFC ミ 

6E64 さ 5 Q2 FULS 人 

6E66 44 LSRA 

6E67 さ 4 Q2 FSHS 仙 

6E69 44 LSRA 

6E6a RE EQO DDa s+ 

6E6C 2Q0 Q6 6E74 BRA STEFC4 

6E6E 64 E4 STEFC1 LSR ぅ 8 

6E7O 64 E4 STEFC2 LSR 3 

6E72 35 Qg STEPC さ FULS 1 

6E74 97 Q8 STEFC4 STA BaTE1 

6E76 20 CC 6E44 BRA NMUSIC4 

5 水素 水素 氷 氷 水 水 氷水 氷水 率 ※ 水 素 水 氷 水素 ポ 氷 氷 丈 ポ 水 

* CT SET し 3 
氷水 氷水 氷 氷 水 水 水 氷水 水 水玉 水 水 氷 氷水 氷水 ボ 

6E7 4F UCTL CLRA 

6E79 2Q Q6 6EB1 BRAa CTSET 

6E7B 6 20 CTN LDA 半 ま 20 

6E7D 20 02 6EB1 BRA CTSET 

6E7F B6 40 OCTH LDa 間 ま 40 
※ 

6EB1 97 05 CTSET STA QCTB 

6E さ 20 BF 6E44 BRA NMUSIC4 
米 米 東 玉 玉 米 水 数 涼 水素 ※ 水 水玉 来 涼 米 氷 玉 ボ 水 
Bate Time Set ネ 
涼 涼 水 玉 玉 玉水 水玉 米 洲 水 丈 水玉 洲 水玉 玉水 玉 ボボ ボボ 

6EB5 a6 Bo BATEC  LDA ュ X キ 

6EB7 4 人 DECA 

6EBB B4 Q さ RaNDA 幕 X0000001 1 

6EBQ 97 06 STA BATE 

6EBC OoA QB DEC CNT 

6EBE 27 BB 6E48 BEG MUSIC5 

6E90 20 B2 6E44 BRA INUSIC4 
水玉 素 氷 水 氷水 氷水 氷水 氷水 氷水 氷水 氷水 率 氷 氷 氷 氷水 
* REST * 
ポ 水 水 氷水 氷水 水 水 氷水 氷 率 氷 氷水 氷 氷 水素 水 氷 ポ 氷 氷 氷 

6E92 D6 0Z REST LDBE STEF 

6E94 BD 6E 6FO4 REST1 BSR MAIT 

6E96 5Aa DECE 

6E97 26 FB 6E94 BNE REST1 

6E99 20 A9 6E44 BRA MUSTC4 
水 ポ 水 水 水素 水 水 水 水 水 水 水 東 水 氷 氷 氷水 氷 氷水 氷水 水 ボ ボボ 
* FLAY 1-Note し 3 
水 水 水 水 水 氷水 氷水 氷水 氷水 水 氷 水 水 氷水 氷 氷水 ※ 光 ポポ 

6EE D6 Q8 FLAY LDBE BATE1 

6E9D D フ 7 OoA STB BATE2 

6E9F _D6 07 LDE STEF 

6EA1 DZ Q09 STB STEF1 

6ERA さ 4 DECA 

6EA4 B4 0Z RNDA 昔 XOQQOQO111 

6EA6 4 ASLA 

6EA7 4 日 SLA 

6EQB 05 DDa OCTE 

6EAR E6 4 LDE sX 

6EAC C1 2 くさ CNFBE 幸 * 間 

6EAE 26 06 6EB6 BNE FLAY1 

6EBO BE Q2 aDDA 昔 2 

6EE2 さ Q0 01 LEAX 1。X 

6EE4 QA QBE DEC CNT 

6EB6 さ 1 BD OO9O FLAY1 LEAY NDTETE。FCR 

6EEA さ 1 人 6 ら LEAY 人 。Y 

6EBC A6 AQ LDA ュ >Y+ 

6EBE 5F CLRB 

6EEF BD 28 6EE BSR WRITE 

6EC1 6 a4 LDA 0 

6ECS 5C INCH 

6EC4 8BD 2 さ 6EE9 BSR MRITE 

6EC6 6 QF LDA 昔 15 

6ECB C6 Q8 LDE 昔 日 

6ECA _BD 1D 6EE9 BSR MRITE 

6ECC 8BD さき 6 6FQ4 FLAY2 BSR MAIT 

6ECE QD 741 TST BATE2 

6EDO 27 Q6 6EDB BEG FLAY さ 

6ED2 _OA 741 DEC BRTE2 

6ED4 26 Q2 6EDB ENE PLAY さ 

6ED6 BD 07 6EDF BSR ENVSET 

6EDB QA Q9 FLAY さ DEC STEP1 

6EDA 26 FO 6ECC BNE FLAY2 

6EDC 16 FF65 6E44 LERA MUSIC4 
ポポ 水 水 氷 氷 氷 氷 氷 ボ ポポ ポポ 氷 氷 氷 ポ 氷 氷 氷 氷 ※ ポ 
* RELEASE SET ※ 
水 水 水 水 水 水 水 水玉 氷水 氷 氷水 水 水 氷水 水 氷 素 玉水 水 氷 来 

6EDF Bo6 109 ENVSET LDA 間 ま 10 

6EE1 C6 08 LDE 井 日 

6EE さ BD Q4 6EE9 BSR MRITE 

6EE5 6 09 LDA 昔 

6EE7 C6 QD LDB 昔 1 さ 
水 水 水 水 水 水 水 水 氷 氷水 水 氷水 氷水 水 氷水 氷 氷 氷 玉水 ポポ 
*※ Mrite モ to PBSG し 3 
※ =Data  B=Req. No. 3 
氷水 水 水 氷水 氷水 氷 氷 氷水 氷水 水玉 氷 素 玉 氷 氷 氷 氷 来 

6EE9 34 Q02 MRITE PFSHS 1 

6EEB 6 0Q さ LDA 昔 さ 

6EED EZ FDFQO ST ORB 

6EFO FZ FDF1 STB ORA 

6EF さ 7F FDFQ CLR RE 

6EF6 さく 5 02 FULS 仙 

6EF EZ FDF1 STA RA 

6EFBH 日 6 Q2 LDA 昔 

6EFD 7 FDFO STA ORE 





Q0186 
Q017 
00188 
00189 
OO190 
00191 
004 92 
0019 さ 
OO194 
O00195 
O0196 
00197 
00198 
00199 
O00200 
Q0201 
O00202 
0020 さ 
O00204 
Q0205 
Oo0206 
00207 
O0020 昌 
00209 
OO210 
Q021 1 
00212 
0021 さ 
OO214 
00215 
OO216 
O0217 
00218 
00219 
00220 
00221 
O0222 
O0022 さ 
00224 
00225 


Q0226 


00227 
O00228 
00229 
OO23O 


00231 


002 さ 2 


00234 


002 く 5 


002 く 6 


002 さ フ 


00239 


00240 


0024 1 





6FOQ 
6FQ さ 


6FO4 
6FO6 
6FQ 
6FOB 
6FOD 


6FOF 
6F1 1 
6F1 さ 
6F16 
6F19 
6F1B 
6F1D 
6F1F 
6F21 
6F24 
6F26 
6F29 
6F2B 
6F2E 
6F さ O 
6F32 
6F さ 4 
6F さ 5 
6F ミ Z 
6F さ 9 
6F3B 
6F3C 
6F3E 


6F4O 
6F41 
6F42 
6F4 さ 
6F44 
6F 4 
6F46 
る 6F4 フ 
6F4 日 
6F49 


6F4Aa 
6F4 ビ 
6F4E 
6F5O 
6F52 
6FS4 
6F56 
6F58 
6F5Aa 
6F5C 
6FSE 
6F6O 
6F62 
6F64 
6F66 
6FG6 昌 
6FG6 人 Q 
6F6C 
6F6E 
6F7O 
6F72 
6F74 
6F76 
6F78 
6F7a 
6F7C 
6F7E 
6FBO 
6FB2 
6FB4 
6F6 
6F88 
6FBAQ 
6FBC 
6FBE 
6F9O 
6F92 
6F94 
6F96 
6F98 
6F9a 
6F9C 
6FE 
6FAO 
6FA2 
6Fa4 
6FA6 
6FA 


FDFQ 


6FO 


CLR ORE 

RTS 
沙 水 水 水 水 水 氷水 氷水 水 氷水 水 水 光 水 氷水 氷水 水素 水 
* C1ock MMait し 3 
水 水素 水 水 水 光 氷 氷水 水素 氷水 水 水 水 氷水 水 氷 氷水 ポポ 水 
MAaIT FSHS X 
ZZZ LDX 昔 OO0O 
MAIT1 LEAX ー1。X 

BNE MAaIT1 

FULS  X。FC 


水 水 氷 来 玉水 水 水 水 水 水 水 水 水 水 水 氷 氷 氷水 氷水 水 水 
* VIA INIT / TEMFH Set 4 
沙 水 水 氷水 水 水 水 水 氷 水 米 水 水 水 水 氷水 水 水 水 氷 光 水 水 率 





TEMPH PSHS AA。B。X 

LDB 井 ま FF 

STBE DDRA 

STB DDRB 

CMFA 昔 2 

BEG TEMP1 

PULS AaA.B、X、PC 
TENMPO1 LDD 2。X 

STD ZZ2Z+1 。FCR 

LDA 間 40 

STA ACR 

LDA 提 ま CO 

STA IER 

LDA 韻 ま FE 

LDB ブフ 

BSR MRITE 

CLRA 

LDB 坦 11 

BSR MRITE 

LDA 20 

INCB 

BSR MRTITE 

FULS Aa.B。X。FC 
ネネ ポポ ネネ 水玉 氷 氷 氷 ポ ポポ ネネ ネネ ネネ ポポ ネ 
* Step Time Tabl1e * 


ポポ 氷水 水 氷水 氷 氷 ポ ポポ ポポ ポポ ポポ ポポ 


STEPFTH FCB 


FCB 


6。12,1 日 。24。 さ 6 


4 日 。 プ 396、144。192 


炒 水 涼 涼 玉 玉 米 米 涼 涼 涼 ボボ 水玉 ボボ ポポ ポポ ポポ ボボ 
* Note Table に 
ポポ 水 涼 洲 ボボ ポポ ポポ 水 水 水 氷 ポポ 洲 光 ポ 玉 


NOTETE FDB ま AEOO、 ま 400、 ま 9BOO。 9200 
FDB 2501 、 ま 1501 。$05O1 、$F60O 
FDB *EBOO、 ま DBOO。$DBOO。 ま CDOO 
FDB まじ さ O0。 ま BBOO。0、O 
FDB 5700、 呈 200。 4DOO。 4900 
FDB *9200。$BAO0。$ 昌 200。 7ROO 
FDB ま フ 400、 ま 6DOO。 ま 6DOO。 ま 660O0 
FDR 6100、$5COO、0。O 
FDB 2HOO、$2900。$2600。 2400 
FDB ま 4900。 ま 4500。$4100。 あ さ DOO 
FDB まさ AO0。 まさ ら 600 。 まさ 600。 ま ささ 00 
FDB まさ 000、$2EO0。0,O 
END 
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cm 包 六角 ゆ sss58 booOG8 
会 同 図 氏 





資料 と UiG3 掲 載 さ 


中 < 有志 カ 語 全 直 接 問 W 合 : わ 
( 編 リ 











ロ 
へ 
に 
弄 
衣 
員 








L1 ] は じ め に 


FM-8 の ブート スト ラッ プ ・ ロ ー ダ は 2 KK バイ ト の 
EPROMMB8516 に 格納 され ます . この 2K バ イト の 


ROM は 4 分 割 き され て お り 、 プ リン ト 基 板 上 の ディ ッ プ *・ 


スイ ッ チ に より 、 ど れ か 1 個 が 選択 され ます . 4 分 割 
の 各々 の アド レス は 、 メ イン ・ メ モリ 上 で まっ た く 同 
Sed3 雇 

プー トス トラ ッ プ ・ ロ ー ダ の 領域 の 大 き さ は 、 ハ ー 
ドウ ェ ア の 諸 条 件 に より 、512 バ イト で は な く 、480 バ 
イト に な っ て いま す . 





XX※ 


AA 


の 


[ 選 ] 各 ブー ト ・ ブ ロッ ク 0 機能 


各 プ ブー ト ・ ブ ロッ ク の 機能 は 以下 の と お り で す 。 






| | 
| 5* サ ポー ト 版 | サポ ー ト 版 | 備 考 











B ROM BASIC プー ト ・ ス タ 
きこ また は 、disk ッ ク 

0 1 の BASIC を 起動 す 同 堪 $FC7F 以 下 
C 凡 罰 3F 
ゃ M | る ・ 
| (5" フ ロッ ピー カク 
ド 


セス ・ ル ー チ ン )。 








MB8516 














各 480 バ イト に は 、 ブ ー ト 切り 替え スイ ッ チ の 指定 に 
対応 し て 0 、1、2、3 の 番号 が 付け られ て いま す . 


上記 の 0 、1、2、3 の 各 ブ ロック は 、MB8516 上 


の アド レス で は 、 次 の よう に な っ て いま す 。 





OOOO 


$O20O 


$O40O 


$O6OO 








$07FF 











バブ プ ブル ・ ユ ニッ ト プ ブー ト ・ ス タタ 
。 | 0 の 先頭 の 16 ペ ー ッ ク 

プ | ジ の 内 容 を $300 一 $FC7F 以 下 
R | $4FF に 読み 込み 、 
1 | | 0 番地 に 制御 を 放 細 3 
ー | 渡す (5' フロ ッ ピ ー 
アク セス ・ ル ー チ 


ンジ 29 原 
















5 ディ スク ・ ユ ニッ 









ト 0、 ト ラッ ク 0 、 ッ ク 
pD | サイド 0 の セク タ $FC7F 
0 倒 | 1、2 の 内 容 を $ 

2 |\A |300-$4FF に 読 同左 
1 み 込 み 、$ 300 番 地 


に 制御 を 渡す (5" 
フロ ッ ピ ー ア クセ 
ス ・ ル ー チ ン ) 
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ンー ュー スー 20 の 3 
ッ ド 0、 ドラ ッ ク 』| ツク 

0、 サ イド 0 の セ | $02EF 以 下 
2 に eS 
4 の 内 容 を $300 一 
$4FF に 読み 込み 、 
$300 番 地 に 制御 を 
渡す (8" フ ロッ ピ 
(ROM BASIC ー ア クセ ス ・ ル ー 
デバ バッ グ 用 ) | チン ) 








C う 
テー 中 の の ピロ 
( 逐 と の ) 























3]5" 謝 フー ト ROIM 構 成 X モ 


5' 版 の ブー ト ROM は 次 の よう な 構成 に な っ て いま す . 








$FE00 


$FE0 2 


BRA STARTS 


リス ト ア ・ エ ント リ 1 
セク タ ・ ラ イト ・ エ ント リ トー。 | 


セク タ ・ リ ー ド ・ エ ント リ 





$FE05 


$FE08 





STARTS 





プ ブート 
スト ラ 
ッ プ ・ 
ロー ダ 








RESTART 
Boot Stack : お FC7F 以 下 











』O 
1418" 謝 フー ト ROD 構成 X モ 


8 版 の ブー ト ROM ブ ー ト ・ プ ブロ デ ク No.3 の 構成 は 次 の 






































と お り で す . 
$FE00 
BRA STARTS 
$FE0 2 
ドア ロッ ク ・ エ ント リ 
$FE05 
モー ド 設 定 エ ント リ 
IA 人 人 い 
セン フロ ッ ピ ー 
ドラ イ バ ・ 
$FE0B eS 』 
$FEOE|、 
PP ・ ク タラ イト エン トリ 
2 
$ FE 1 DEEP 
DMAI3 一 | pa acty | 
プー ト 
STARTS スト ラ 
ッ プ ・ 
ロー ダ 
SN 
各 ル ー チ ン 本 体 *ーーーーーーーーー デ ! 
$FFFE FE 四 
$FFFF 99 RESTART 
Boot Stack : も 2EF 以 下 











5] デ ィ ス ク の フォ ー マ ッ ト 規 定 


8 フロッピー ディ スク の フォ ー マ ッ ト は IBM の ディ 
スク ・ フ ォ ー マ ッ ト と 同じ に する . トラ ッ ク 0 は これ 
に より 次 の よう に 定まり ます . 

(1) 単 密度 


ド に ラック, 





shSO 1 トド 1 


単 26 セ クタ 、 単 。 26 セ クタ 、 
128 バ イト 128 バ イト 


単 密 度 単 密 度 
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2) 倍 密度 
サイ トド 1 
256 バ イト 
0 
倍 密度 
76 











な お 、 こ こ で ディ スク ・ フ ォ ー マ ッ ト と いう 場合 、 


それ は ソフ ト セ クタ ・ フ ォ ー マ ッ ト の み を 意味 し ます . 


ファ イル 管理 の 方 法 は 含ま れ ま せん . 
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[18" フ ー ト ROM の 05 
モー ド に つい て 


8'FDD ブ ー ト ROM の OS モー ド (No.3 ) が 動作 後 、IP 
上 に 分 岐 す る と き 、8' IFDC は 次 の モー ド に セッ ト さ れ 
SVa 寺 3。 

@ る リード ・ モ ー ド …… Pre One Track Read モー ド 

(の ンジ デイ 5 や や シン グル ) 

@ セクタ 長 ………………ー 128 バ イト / セ クタ 

IPL プ ログ ラム で は 、 上 記 の 設定 と 異な る 場合 、SET 
MOD ル ー チ ン を コー ル し 、 リ ー ド ・ モ ー ド お よび セク 
タ 長 を 設定 し な けれ ば な り ま せん . SETMOD の コー ル 
後 、 リ ー ド セク タ ・ ル ー チ ン を コー ルレ し 、IPL 動作 
を 行ない ます . 


N 代 代 稚 
の 


2 





[1] 適 用 


FM-8 シ ステ ム 拡 張 ユ ニッ ト MB26001 内 に 組み 込む シ 
ステ ム 拡 張 モ ジュ ー ル MB22201 に つい て 解説 し ます . 


| 避 ] 概 要 


FM-8 シ ステ ム 拡 張 モ ジュ ー ル は FM-8 本 体 の 機能 の 
他 に さら に 新しい 機能 を 付加 する た め の シ ステ ム ・ ア 
ッ プ の 可能 性 を 提供 する 各種 モジ ュー ル と 、FM-8 本 体 
と を イン ター フェ イス する モジ ュー ル で あり 、FM-8 
本 体 と は 50 ピ ン の フラ ッ ト ・ ケ ー ブ ル で 接続 され 、 各 
種 モ ジュ ー ル と は FACOM 工 -8A マ ザー バス で 接続 さ 
ポポ が 

図 1 に 拡張 シス テム の 構成 図 を 示し ます 。 

FM-8 シ ステ ム 拡 張 モ ジュ ー ル は 以下 の 回 路 で 構成 さ 
し また 9 。 

① ア ドレ ス ・ バ バッファ 回 路 

⑧ デ ー タ ・ バ ッ フ ァ 回 路 

〈⑧DMA 制 御 回 路 

《①④ ミ ニニ フロッピ ー イ ンタ ー フ ェ イ ス 回 路 
⑤ 標 準 フ ロッ ピー イン ター フェ イス 回 路 

図 2 に シス テム 拡張 モジ ュー ル の ブロ ッ ク 構 成 図 を 
示し ます . 


図 1 


拡張 シス テム 構成 図 











シス テム 拡張 ユニ ッ ト MB26OOI 
S13B-O5OO-BO7O 


5 スロ ッ ト ・ マ ザー ボー ド 


ピン ンプ リー ニン の 
| 虹 イ イコ 月 


S16B-O2OO-O59O 





FM-8 本 体 拡張 バス ・ コ ネ ク タ 








&O 


2 シス テム 拡張 モジ ュー ル ・ ブ ロッ ク 構 成 図 ト -8A バ ス 信 号線 一 覧 表 
2 ピン 


に | バス 信号 名 (半田 面 





DC 填 5V 

DC 填 5V 

DC 填 5V 

G/H(GO/HALT) 
* RESET 





ご つの Co つい の | 避 ょ oo 一 





DC- 12V 
RNC 
REFGRNT 
RNC 
DGRNT 


*MEMRDY 
REFCLK 


DC 十 12V 
RNC 


の お oO 





DC 十 12V 
RNC 
RNC 
RNC 
RNC 


〇 oO ょ の 


RNC 
* MRDYP 


ト う っ 
トー】 








ト O ト う 
hNS 一 


RNC 
BS 

GND 
RNC 


*FIRQ 
GND 
RNC 


*EXTMEM 


ト っ 
トー】 








ト っ 
F 





ト S 
リコ 





ト S う h ト OO トト う 
Co ヽ ! の 


* RESET * RAMIHB 
* IOSEL 
IRQ DO 

NMI DI 

FIRQ D2 
GO/HALT D3 

BA D4 

BS D5 
REF REQ X D6 
REFGRNT D フ 7 
REF CK EXT DET 
R/W GND 
GND AO 

Al A2 

A3 A4 


A6 
Ag * の 付い た 信号 は 負 論 理 
RNC は 、 シ ステ ム ・ リ ザー プ ( 使 用 禁止) 





ト っ 
( ら 





て っ 
〇 つ 








て っ 





A 
BB 
C 
D 
E 
ビ 
日 
ゴ 
に K 
L 
M 
N 
P 
R 
S 
H 
U 
V 
W 
X 
NY 
と 
a 
b 
c 
d 
@ 
h 
J 

k 

I 


て っ 
ト S 





て っ 
に 








む コ ヨ 
c っ Co 
の 








て っ 
〇 > 





て っ 
ト S1 





【 バ ) 
Co 





CS 
に <】 





つ 








F 





ト S 





CS 
























































( 注 ) フ ラッ ト ・ ケ ー プ ブル 標識 線 を 1 と する . 
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L-8A バ ス ・ イ ンタ ー フ ェ イ ス 


シス テム 拡張 ユニ ッ ト に は 、 


シス テム 抜 張 用 の 葉 -8 


A バ ス が 用 意 き れ て いま す . この 工 -8A バ ス に 各種 モジ ュ 
シス テム の 抜 張 が で きま す . 


ー ル を 実装 すれ ば 、 
また 、 別 売 の ユニ バー サル ・ カ ー ド 


(MB2801) を 


使え ば 、 自 作 の モジ ュー ル を 実装 する こと も 可能 で す 





5 * RESET 


eFM-8 の シス テム ・ リ セッ ト 
信号 で す . FM-8 本 体 の 電源 


投入 時 、 ま た は リセ ッ ト ・ ス 
イッ チ を 押し て いる 間 、LOW 
に な り ま す 。 


出力 





E *NMI 


e CPU に 対す る 割り 込み 信号 で 
す . この 信号 が 入力 され る と 、 
CPU は 割り 込み マス ク ・ ピ ビッ 
ト に 無関係 に 実行 中 の 命令 実 
行 終了 後 、 割 り 込み 処理 ルー 
チン へ 分 岐 し ます . 

e 割 り 込 み を か ける に は 、 最 低 
で も CPU の 1 サイ クル 分 以上 
の 間 、LOW で ある 必要 が あり 
ます . 

(NMI 一 NON-MASKABLE 
INTERRUPT ) 


入力 





D * ま IRQ 


@ CPU に 対す る 割り 込み 信号 で 
す が 、 割 り 込 み マ スク ・ ビ ッ 
トド ト に よっ て マス ク す る こと が 
で きま す 

@ ゅ 割り 込み を か ける に は 、 最 低 
で も CPU の 3 サイ クル 分 以上 
の 間 、LOW で て ある 必要 が あり 
E 
(IRQ 一 INTERRUPT 
REQUEST) 


入力 





a *FIRQ 


@ CPU に 対す る 割り 込み 信号 で 、 
IRQ と 同様 に マス ク す る こと が 
で きま す . また 、 優 先 順位 は 
IRQ より 上 で す . 

@ 割り込み を か ける に は 、IRQ と 
同様 に 3 サイ クル 分 以上 LOW 
で ある 必要 が あり ます . 
(FIRQ 王 FAST INTERRU 
PT REQUEST) 


入力 





d * ビ EXTMEM 


@ 拡張 ユ ニッ ト 内 に メモ リ を 増 
設 し た と き に FM-8 本 体内 の 
メモ リ の アク セス を 禁止 する 
言 号 で す . 


入力 





@ 定常 HIGH レベ ル の 出力 信号 で 
す 


出力 





@ CPU が メモ リ ・ デ ー タ の リー ド ・ 
サイ クル (日 ) か ライ ト ・ サ イ 
クル (L) か を 示す 信号 で す . 
(R/WーREAD/WRIT E ) 


出力 





4 | G/H 








@ この 信号 を LOW に する と CPU 
は HALT( 一 時 停止 ) され 、BA、 
BS は 、HIGH レ ベル に な り ま 
す 





入力 





10 





@ CPU の クロ ッ ク 信 号 で す 


出力 





CPU の グロ ッ ク 信 号 で す ・ 


出力 
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BA 
BS 


BA 信号 が HIGH の と き は CPU | 


の アド レス ・ バ ス 、 デ ー タ ・ 


ン ビ ピー ダ ンス 状態 に ある こと 


を 示し ます =- 
ゅ BS 信号 は 、 日 ゐ 信 号 と 併用 し 
て 下 表 の よ う に CPU の 状態 を 
示し ます 
lgAlgs| cpuo 
| 0 | O | 通常 動 作 。 | 
O 1 困り 込み 、 ま た は リセ 
O 
1 








ッ ト の Acknowledge 
SYNC 命令 に よる 待 擬 
HALT ま た は Bus Grant 




















出力 





REFGRNT 


@ ぁ この 信号 が HIGH の サイ クル は 
ダイ ナミ ッ ク RAM に リフ レッ シ 
ュ を 行なっ て いま す . 


出力 





REFCLK 


@ ダイ ナミ ッ ク RAM の リフ レッ 
シュ の クロ ッ ク 信 号 で す . 


出力 





*MEMRDY 


@ 低速 メモ リ な ど を アク セス す 
る た め に CPU クロ ッ ク E と Q 
を の ば す た め の 信号 で す . 


入力 





DGRNT 


@ この 信号 は 、DMAC か ら の 日 
ALT 要 求 信号 に 対す る 応答 信 
号 で CPU り の バス が ハイ ・ イ ン ピ 
ー ダ ンス 状態 と なか っ て DMA 転 
送 を 行なっ て も よい こと を 示 
も 表 。 

@ この 信号 が HIGH レ ベル の と き 
は DMA 転 送 中 で 、LOW レベ 
ル の 間 は 、 CPU が 動作 中 で す . 


出力 





* ま MRDYP 


@ メ モリ ・ レ ディ を か ける 必要 
の ある モジ ュー ル で 、 メ モリ ・ 
レデ ィ 回 路 を も っ て いな い 場 
合 、 メ モリ ・ レ ディ 信号 に か 
わる メモ リ ・ レ ディ 要求 信号 
CN す っ 

ゅ シス テム 拡張 モジ ュー ル で は 
この 信号 を 受け 取る と 最高 2 
zSEC の メモ リ ・ レ ディ 信号 
を CPU に 出力 する . 


入力 





l 生 叶 


NN 
2 





* ま DO-※D ア 





@ CPU と の デー タ 転 送 に 使う デ 
ー タ ・ バ パス で す 。 

@ 負 論理 な の で 、LOW レベ ル で 
や トド る に がり ます: 

※ ま DO *※DI *D2 *D3 
3.1 ら 29 k h 
*D4 *※D5 * ま D6 *D7 
記 : 記 全 。 『 J 


入出 力 








う 35 

























































































































































アド レス sw ス 7 その 他 信号 線 の 処理 方 法 
AO AI A2 A3 A4 析 旦 所 SI が ニーク ネス 
ピン 4O v U 39 38 | 3 % @ の -⑥-⑥-①-②-③ 
A5 AG A フ 7 A8 A9 土 5V ] 
本 体 拡張 コネ クタ エエ エエ ュ ィ 100/ 
ED 吉 5 5 つの 36.p 出力 まう に 
_A10 A11 A12 A13 A14 トド ドド ⑤ 
35 34 n m | 
A15 * ネ NMI 
フ E 
33 | る ⑤ 
*FIRQ 
5V 電 源 ラ イン 9 ⑧ 
隔 」 GO/HALT の 
DC+I2V | 十 I2V 電 源 ラ イン 
*MEMRDY 
Dc 一 IzV | 一 I2V 電 源 ラ イン 43 一 ⑤ 
ー こ P 
GND 寺 5V 用 リタ ー ン 
*RESET = 
49 
47 
填 」2V 用 リタ ー ン 13 
15 
5 本 REFCLK 
図 8 モジ ュー ル 外 形 寸法 図 ③⑤ 
Rs 間 REFGRAUT ⑱ 
7 あ 
に MB74LS244 
vMAー 一 一 ⑥ 
("HG ぐ -T-《D-⑫-⑲⑬) 
ん グ 











160 
































3.96 | 
1 し 。 All 
1 
ーー 
166.32 エ 0.2 
ト 74.9 
AB y 
商 e 。ー の 
ロー ロ を み ュー」 
両面 86PIN 12 48 写 線 面 
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SN 祭 多 
く @> 2 





OS 
8 


AO 


@ 


ャ ンク 


《@%、 
が の 
0) OO 


L11BIOS の 概要 


F-BASIC シ ステ ム で は 、1/O の 入出 力 処 理 を すべ て 
BIOS(Basic Input Output System) と 呼ば れる 1/O ド 
ライ バ ・ モ ジュ ー ル を 経由 し て 行ない ます . た だ し 、 
割り 込み 処理 と RS-232C の ポー ト 、 ラ イト ペン は 扱い 
ませ ん . 

また 、 本 BIOS は FE-BASIC 用 で 、F-BASIC 以外 の 
シス テ ぬ で 利用 が る ご と ち ( は 32 きま ぜん .。 これ は 、 ジ ア 
トウ ェ ア の イン ター フェ イス 上 の 問題 か ら で は な く 、 
BIOS が FEF-BASIC の マス ク ROM 上 に 存在 する と いう こ 
と か ら 超 こり ます . 

な ぜ な ら 、UCSD、PASCAL、FLEX な ど は IT/O エ 
リア を 除い て 、 す べ て RAM 空 間 で 動作 する た め に 、BI 
OS が 常駐 する ROM が な いか ら で す . 

し た が っ て 、 本 BIOS は 通常 の 1I/O ド ライ バ (ROM 和 常 
駐 ) と は 性 格 が 異な り ま す . 


メモ リ ・ マ ッ プ 














RAM RAM 
8000 き 
SS 
RS 
176 エリ ァ | | 17o=9Z | 
F-BASIC F-BASIC 以 外 の 





BIOS が サポ ー ト する 1/O デ バイ ス は 次 の も の で す . 
(1) サ プシ ステ ム ( デ ィ ス プレ イ 称 キー ボー ド ) 

(2) フ ロッ ピー ディ スク (5.25" 、8') 

(3) オ ー デ ィ オ ・ カ セッ ト 
(4) 


4) プ ブリ ンタ 


222000 02200 


We 
AN 


0xexexe い の 
ンス ベ ング スベ ング ベ 


(5) ベ ル (ビープ 音 

(6) 磁 気 バ ブル ・ カ セッ ト 
(7 音声 合成 デバ イス 

(8 漢字 ROM 

(9) ア ナ ロ グ 入力 ポー ト 

これ ら の I/O へ の アク セス は 、BIOS に 用 意 さ れ て い 
る ドラ イ バ ・ ル ー チ ン を コー ル し て 行ない ます . 

BIOS の エン トリ は 1 筒 所 だ け で 、 個 々 の ドラ イ バ ・ ル レ 
ー チ ン の 識別 と か 各種 パラ メー タ の 受け 渡し は 、RCB 
(Request Control Block) と 呼ば れる 8 バイ ト の イン 
ター フェ イス 領域 で 、 す べ て 行なわ れ ま す . この RC 
B に 必要 事項 を セ モット し て 、BIOS を コー ル す る と い 
う 手順 が と られ ます . 

RCB の 詳細 は 後述 し ます が 、RCB の 先頭 1 バイ ト が 
BIOS に 対す る リク エス ト 番 号 を 表わし て お り 、 こ の 番 
号 に より 各種 の 1/O ドラ イ バ ・ ル ー チ ン の うち か ら 1 
個 が 選択 され 、 実 行き され ます . 

一 般 に 、I/O デ バイ ス と の や り と り で は 、 必ず 0 エラ 
ー の 発生 が あり ます . この よう な 場合 、BIOS は 自分 自 
身 で は エラ ー の 回 復 や メッ セー ジ の 出力 は まっ た く 行 
な わ ず 、 単 に エラ ー の 内 容 を ユー ザー に 返す だ け で す . 
し た が っ て 、 ユ ー ザ ー は BIOS の コー ル 後 、RCB 中 の ス 
ティ タス ・ バ イト を チェ ッ ク し 、 エ ラー が あれ ば 、 そ 
れ に 対応 する 処理 を 行なわ な けれ ば な り ま せん ・ 

この と き 、 BIOS は 各 I/O の エラ ー を 、BIOS 独 自 の エ 
ラー 番号 に 変換 し て ユー ザー に 返し ます . BIOS の エラ 
ー 番 号 に つい て は 、 後 に 表 を 示し ます . フロ ッ ピ ー デ 
ィ ス ク の リー ド / ラ イト ・ エ ラー に 対す る リト ライ や 、 
プリ ンタ の ノッ ト ・ レ ディ に 対す る 処置 も 、 す べ て BI 
OS の コー ル 側 で 行なう こと か が 必要 で す . 

BIOS の ユー ザー、BIOS、I/O デバイス の 関係 を 図 
式 化す る と 次 の よう に な り ま す . 
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22028 ペンペン ペン ン 


ク 


10O 


BIOS と I/O の 関係 図 





BIOS ユ ー ザ ーL- 
(F-BASIC) 





BIOS ユ ー ザ ー< >BIOS< 





> /O デ バイ ス 


| ら ]BIDS の 使い 方 


BIOS の 使用 手順 は 次 の と お り で す . 

(1)RCB 領 域 8 バイ ト を 設定 する . 

(2)RCB に 、 リ クエ スト 番号 を 始め と し て 、 必 要 な パ 
ラメ ー タ を 設定 する . (設定 すべ き パ パラ メー タ は 呼 
び 出 す ル ー チ ン ご と に 異な る ) 

(3) イ ン デ ックス ・ レ ジス タ X に 、RCB の 番地 を モット 
する 

(4)BIO3 を サブ ルー チン ・ コ ー ル する . 

(5) キ ャ リー フラ グ に より 、 エ ラー が あっ た か どう か 
を 判定 し 、 エ ラー が ある と き は 必要 な エラ ー 処 理 
を 行なう . 

な お 、BIOS は 、PC と CC の 1 部 の フラ グ を 除く 、 す 

べ て の レジ スタ の 内 容 を 保存 し ます - 
CC の 中 で 保存 きれ る の は 、E、F、1 の 3 つ で す . 
BIOS の ルー チン で は 、 必 要 に 応じ て 、FIRQ と IRQ 
の マス ク を 行なっ て いる の で 、BIOS 実 行 中 は FIRQ と 
IRQ の 割り 込み が か か ら な い 場 合 が あり ます . BIOS の 
使用 手順 を コー ディ ング し て みる と 、 決 の よう に な り 
ます . 
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RCB の 内 容 を セッ ト す る 
EDB 淡 。 状 RCB で ベッ AccX メ に RCB の アド レス を セッ ト 
USR BIOS 還 2222020 BIOS の コー ル 
BBGS 和 mW ピ RROR 半 32220*ooc36 エラ ー 処 理 へ 分 岐 








BIOS は エラー の 有無 を キャ リー フラ グ に 設定 し 、 エ 
ラー 番号 を RCB の ステ イタ ス ・ バ イト に 設定 する . キ 
ャ リー フラ グ は 次 の よう に 設定 し ます . 

(ーー) (キャ リー クリ ア ) OK エラ ー な し 

2= 沖 (キャ リー セ モット) に OTTO ルフ っ エラ ー あ り 

この キャ リー フラ グ は 、BIOS を 抜け て きた 直後 に 、 
BCS ま だ は BCC(LBCS、LBCC) 命令 に よっ て チェ 
ッ ク す る こと が で きま す . 

RCB は 定型 の 処理 に 対し て は 、 あ ら か じ め コ ンス タ 
ント で と る ほう が 効果 的 で す . マラ メー タ が その つど 
変化 する 場合 に は 、 む し ろ 必 ず RCB の 内 容 を セッ ト 
する よう に だ ほ 9: が まい の 記 誠 

RCB の 形成 は ユー ザー の 自由 で す が 、 諸 般 の 条件 を 
考 虚 し て RCB の 内 容 の 設定 を で きる だ け 短 い ス テッ プ 
に 抑え る こと が 望ま し い の で す . それ が BIOS を 使う 
に arer よ 條 


[31BIOS が 提供 する 
I/ ド ライ バッ ルー チン 


BIOS に 用 意 き れる 1/O0 ド ライ バ ・ ル ー チ ン は 次 の も 
の で す . 
(1) サ プシ ステ ム 
(aySUBOU エ ルー チン 
サジ シズ ペデ に に コウジ ドッ タラ テ ド や デ テ アク を 送 
り 出 す . 
(b)SUBIN ル ー チ ン 
サ プ シ ステ ム に 、 コ マジ ンド "コー ド や デー タク を 送 
り 出 し 、 サ ブシ ステ ム か ら の 入力 を 受け 取る . 
(cyINPUT エ ルー チン 
サブ プ シ ステ ム よ りき 3 1 往 を 和 大 力 す る 。 
(d)INPUTC 
INPUT ル ー チ ン で の 入力 の 継続 を 行なう . 
(e)OUTPUT 
サブ システム に 1 行 を 出力 する 
(f)KEYIN 
キー ボー ド か ら 1 文 字 を 入力 する . 
(2) フ ロッ ピー ディ スク 
(aiRESTOR ル ー チ ン 
ジー クス トド ラッ ツク 0 等 行なう . 
(b)DWRITE ビ ルー チン 
フロ ッ ピ ー デ ィ ス ク に 1 セク タ を 書き 込む . 
(cyDREAD ル ー チ ン 





フロ ッ ピ ー デ ィ ス ク か ら 1 セ クタ を 読み 取る . 
(3) オ ー デ ィ オ ・ カ セッ ト 
(aMOTOR ル ー テ チン 
カセ ッ ト の モー ター を ON、OFEF す る 
(5bICTBWRT ル ー テ チン 
カセ ッ ト テ ー プ に デー タ を 1 バイ ト 書 き 込 む 
(ccCTBRED ル ー チ ン 
カセ ッ ト テ ー プ か ら 1 バイト を 読み 込む . 
(4) プ リン タ 
(aLPOUT エ ルー チン 
プリ ンタ に デー タ ・ ブ ロッ ク を 出力 する 3 
(bLPCHK ル ー チ ン 
ング リリ レク ク の). 付 502 ク を m12c の 記 
(cyHDCOPY ル ー チ ン 
CRT 画 面 を プリ ンタ に コピ ー す る 
(q)SCREEN ル ー チ ン 
CRT 画 面 を プリ ンタ に コピ ー す る . 
HDCOPY ル ー チ ン と の 違い は 、HDCOPY ル ー チ ン 
は 、 ス クリ ー ン ・ イ メー ジ を で きる だ け 再 現す る 
た め に 、 横 方 向 の ドッ ト を 拡大 し て プリ ンタ に 印 
字 す る ほか 、 カ ラー に より 、 濃 淡 を 付加 し て いる 
の に 対し 、 ご の ルレ テ チ ナチ ジ は 、 そ うい っ だ ご は ま 
っ た く 行 な っ て いな いと いう 点 に あり ます . 
HDCOPY ル ー チ ン と SCREEN ル ー チ ン は 、 ど ちら 
も 、 一 長 一 短 が あり 、 用 途 に よる 使い 分 けが 肝 妥 
1 で 29 
(5) ベル 
(ayBEEPON ル ー チ ン 
ベル の スイ ッ チ を ON する . 
(bBEEPOF ル ー チ ン 
べ ベル の スイ ッ チ を OFF す る 。 
(6 磁気 バド ブル ・ カ セッ ト 
(aINTBBL ル ー チ ン 
バブ ル ・ カ セッ ト を イニ ジャ ライ ズ す る . 
(5b)WRTBBL ル ー チ ン 
バブ ル ・ カ セッ ト に zz ペー ジ ・ ラ イト する .. 
(cyREDBBL ル ー チ ン 
バブ ル ・ カ セッ ト か ら z ペ ー ジ ・ リ ー ド する . 
(7 閉 声 合成 デバ イス 
(ayVOIC モ ルー チン 
音声 合成 を 起動 する . 
(5b)IVPARM ル ー チ ン 
音声 合成 パラ メー タ を セッ ト す る . 
(cyVDPU エ ルー チン 


音声 合成 デー タ を 合成 部 の RAM メ モリ へ 転送 する . 


(dg VRESE エ ルー チン 
音声 合成 部 を リセ モ セット する (ソフ トウ ェ ア ・ リ セッ 
民 が 
(8) 漢 字 ROM 





&0 


(KANJIR ル ー チ ン 。 
漢字 ROM か ら 、 指 定 さ きれ た JIS コー ド に 対応 する 漢 
字 の ドッ ト ・ パ ター ン 32 バ イト を 取り 出す . 
(9) ア ナ ロ グ 入力 ポー ト 叫 
(aJANALGP ル ー チ ン 
アナ ログ ・ ポ ー ト か ら の 入力 デー タ を 読み 取る . 
(0 その他 
BIINIT 
BIOS の イニ シャ ライ ズ を 行なう .. 
これ ら の ルー チン に は 、 リ クエ スト 番号 と 呼ば れる 
『 号 が 付け られ 、 そ の リク エス ト 番 号 に より 、 ル ー チ 
ン の 呼び 出し が 行なわ れる . 
BIOS リ クエ スト 番号 表 
リク エス ト 番号 | ルー チン 名 || リク ェ ス ト 番 号 | 
ANALGP SUBIN 
MOTOR INPUT 
CTBWRT INPUTC 
CTBRED OUTPUT 
INTBBL KEYIN 
SCREEN KANJIR 
WRTBBL LPCHK 
REDBBL BIINIT 
RESTOR VPARM 
DWRITE VDPUT 
DREAD VRESET 
VOICE 
BEEPON 
BEEPOF 
LPOUT 
HDCOPY 
SUBOUT 


14」RCB の 構成 


RCB (Request Control Block) は 、BIOS ユ ー ザ ー 
と BIOS と が コミ ュ ニ ケー ショ ン を 行なう た め の も の で 
非常 に 重要 な 役割 を 持っ て いま す . 

RCB は 、8 バ イト で 構成 され ます 先頭 の 2 バイ ト は 
すべ て の ルー チン に 共通 で す が 、 残 り の 6 バイ ト は 、 
各 ル ー チ ンジ ご と に 使用 方 法 が まち まち で 、 そ の と きど き 
に より 持つ 意味 が 異な り ま す 

各 バ イト に 与え られ る 役割 の すべ て の 場合 に つい て 
示す と RCB は 、 次 の ペー ジ の 表 の よう に 表 わ せ ます 。 

RCB の 内 容 は 、BIOS が ユー ザー に 積極 的 に 返す パラ 
メー タ を 除い て 保存 され ます . 

RCB の タイ プ は 、 次 の 10 通 り で す 

(1) ア ナ ロ グ ポ ボート ・ ダ イプ 

(2) カ セッ トモ ー タ ・ タ イプ 

(3) カ セ モット リード / ラ イト ・ タ イプ 

(4) ノ ンマ パラ メー タ ・ タ イプ ′ (リク エス ト 番 号 と ステ 

イタ ス の み ) 

(5) バ ブル カセ モット ・ タ イプ 


O 
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(フロッピー ディ ペク タプ プ 
(7 アジ ンジ ウ ャ ク 2 人 ゼ デ 
(8 ハー ドコ ピー・ タ イプ 
(9INPUT エ ルー チン ・ タ イプ 
Q⑩ 漢 字 ROM タ イプ 

以下 、10 タ イプ の 各 パ パラメータ に つい て 、 説 明 し ま 
393 

RCB の 形式 


ラベ ル 名 | 相対 値 | 
RQNO リク エス ト 番 号 





RCBSTA ステ イタ ス 





RCBDBA デー タバ ッ フ ァ ・ ア ドレ ス 





RCBCN_ アナ ログ ポー ト ・ チ ャ ネル 番号 





MOTOREF カセ ッ ト ・ モ ー タ ON、OFF フ ラグ 





』 CRWDAT ら の セッ NN 蛋 三 計 fa ・ デ データ 





RCBRNG 3 アナ ログ ・ ポ ー ト 電圧 レン ジ 





RCBECDT 


ハー ド ・ コ ピー 色 指 定 デ ー タ 





RCBAPD 


アナ ログ ・ ポ ボ ポート 入 力 デ ー タ 





RCBLNH 


入出 カカ デー タ 長 (上 位 ) 





RCBTRK 


フロ ッ ピ ー デ ィ ス クト ラッ ク 番 号 





RCBPAH バブ プル カセ ッ ト ・ ペ ー ジ アド レス (上 位 ) 





RCBJCD 漢字 JIS コ ー ド 





RCBLNL 入出 カカ データ 長 ( 下 位 ) 





RCBSCT フロ ッ ピ ー デ ィ ス ク ・ セ クタ 番号 





RCBPAL バ プ ブル カセ ッ ト ・ ペ ー ジ アド レス (下位 ) 





RCBSID ロッ ピー ディ スク サイ ド 





RCBPCH バブ ルカ セッ ト ・ ペ ー ジ カウ ント (上位 ) 





RCBBMH デー タ ・ バ ッ フ ァ 長 (上 位 ) 





RCBUNT ディ スク ・ ユ ニッ ト 番 号 





RCBPCL バブ ルカ セッ ト ・ ペ ー ジ カウ ント (下位 ) 











ょ ト 
り トト |? 
IIIUAIAIUIIUIIILRESESE2 放 


RCBBML デー タ ・ バ ッ フ ァ 長 (下位 ) 





(1) ア ナ ロ グ ポー ト ・ タ イプ 

ラベ ル 名 | 相対 値 | 

RQNO リク エス ト 番 号 

RCBSTA | ステ イタ ス 
アナ ログ ・ ポ ー ト ・ チ ャ ン ネ ル 番 号 
電圧 レン ジ 








RCBCNL | 
RCBRNG | 
RCBAPD A/D 変 換 結果 











RQNO ・ BIOS の サー ビス ルー チン 指定 番号 . 
RCBSTA : BIOS の サー ビス ルー チン を 実行 し た 結果 
の ステ イタ ス で 、BIOS が セ モット し て 、 ユ ー 
ザー に 返す . 
正常 終了 時 に は 、 バ イナ リ 0 に セッ ト き さき 
れる . それ 以外 の と き は エラ ー 番 号 が モッ 
ト さ れる . 
以下 、RQNO と RCBSTA の 説明 は 省略 し ます . 
RCBCNL : アナ ログ ・ ポ ボー ト の チャ ン ネ ル 番 号 (0 、1 、 


2.。 89* 
RCBRNG : H(B48) …………… High Range(0 一 2.5V) 
(お 4C)………… Low Range( 0 一 5/8V) 


RCBAPD : A/D 変 換 デ ー タ 
符号 な し 1 バイト (0 一 255) 
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(適用 ルー チン ) 

ANALGP 

(2)2 カ セッ トモ ー タ ・ タ イプ 
ラベ ル 名 | 相対 値 | 

















RQNO リク エス ト 番 号 
RCBSTA ステ ィ タ ス 
MOTORF モー タ ・ フ ラグ 
MOTORF キ FEF……… ド ドー モー タ を スト ッ プ する . 
io モー タ を スタ ー ト する . 
(適用 ルー チン ) 
MOTOR 


(3) カ セッ ト ・ リ ー ド / ラ イト ・ タ イプ 


RQNO 
RCBSTA 
CRWDAT 











入出 カ デ ー タ 





CRWDAT : リー ド / ラ イト ・ デ ー タ 1 バイ ト 
(適用 ルー チン ) 
CTBWRT、CTBRED 
(4) ノ ン パ ラメ ー タ ・ タ イプ 
ラベ ル 名 | 相対 値 | 内 
RQNO O リク エス ト 番 号 
RCBSTA 1 ステ ィ タ ス 








(適用 ルーチン ) 
INTBBL、VOICE、BEEPON、BEEPOF、 
LPCHK、BIINIT、VRESET 
(5) バ ブル カセ ッ ト ・ タ イプ 

ラベ ル 名 | 相対 値 | 





























RQNO リク エス ト 番 号 

RCBSTA ステ イタ ス 

RCBDBA デー タバ ッ フ ァ ・ ア ドレ ス 

RCBPAH ペー ジ ・ ア ドレ ス 上 位 

RCBPAL / 下位 

RCBPCH ペー ジ ・ カ ウン ト 上 位 

RCBPCL 7/ 下位 

RCBDBA : リー ド / ラ イト ・ バ ッ フ ァ 先 頭 ア ドレ ス 

バッ プア ァ 長 は 、(32 バ イト ベ ぶ ペ ー ジ 数 ) 分 必 
要 と な る . 


RCBPAH、L : バブ ル ・ ア クセ ス 先 頭 ア ドレ ス 
RCBPCH、L : リー ド / ラ イト ・ ペ ー ジ 数 

バブ ル ・ カ セッ ト は 容量 が 32K バ イト で あり 、1 ペ 
ー ジ が 32 バ イト 、$400 ペ ー ジ で 構成 され ます . また 、 
バブ プル ・ カ セッ ト の ユニ ッ ト は 2 個 で す -. 
RCBPAH は 、 バ ブル ・ カ セ モット の ペー ジ ・ ア ドレ ス の 
上 位 を 示す も の で す が 、 こ の バイ ト の 最上 位 1 ビッ ト 
を 使っ て 、 バ ブル ・ カ セッ ト の ユニ ッ ト を 表わし ます . 





RCBPAH RCBPAL 


| ニー テー ドレ ェ E 和 | | ペー ジェ アド レス 下 公 


O 5 ウパ デカ 中 ニット O 
「 < ペン カ 下 エニ ッ ト | 











バブ ル ・ カ モット の ペー ジ ・ ア ドレ ス は $0000 か 
ら 始 まり ます . 
RCBPAH、L : ユニ ッ ト 0 ……… $0000 一 $03FF 
テニ ニット 1 …… の tilt… $8000 一 $83EFF 
バブ ル ・ カ セッ ト に 対し て 、 一 度 に リー ド / ラ イト する 
ペー ジ 数 を RCBPCH、 工 で 指定 し ます . 
RCBPCH、L : $0001 一 $0400 
ペー ジ ・ ア ドレ ス と ペー ジ ・ カ ウン ト の 和 は $400 
を 越え て は な り ま せん . 
(適用 ルー チン ) 
WRTBBL、REDBBL 
(6) フ ロッ ピー ディ スク ・ タ イプ 


RQNO リク エス ト 番 号 
RCBSTA ステ ィ タ ス 
RCBDBA バッ ファ 先頭 アド レス 











RCBTRK トラ ッ ク 番 号 
RCBSCT セク タ 番 号 
RCBSID サイ ド 番 号 
RCBUNT ユニ ッ ト 番 号 

















RCBDBA : リー ド / ラ イト デー タ ・ バ ッ フ ァ ア ドレ ス 
RCBTRK : トラ ッ ク 番 号 (0 一 39) 
RCBSCT : セク タ 番 号 (1 一 16) 
RCBSTD : サイ ド 番 号 (0、1) 





ん DD! も ナグ 


IKExxxlzlztil 
LSB 1 ビッ ト の み 有 効 














RCBUNT : ユ ニッ ト 番 号 (0、1、2、3) 





が 6. 5.4 8 2 】 


EEIEIEIE3EI 画 


(適用 シー チン ) 
DWRITE、DREAD、RESTOR 
7 ブリ リン タタ イプ 
民 :ESih: 画 | 
RQNO リク エス ト 番 号 
RCBSTA 1 | ステ イタ ス 


2 ビット の み 有 効 

















RCBDBA | 2、3 | バッ ファ 先頭 アド レス 
RCBLNH 出力 バイト 数 上 位 
RCBLNL ヶ 。 下位 











RCBDBA : 出力 デー タ ・ バ バッファ ア ドレ ス 
RCBLNH、L : 出力 バイ ト 数 
(適用 ルー チン ) 





10 


LPOUT、SUBOUT、.SUBIN、OUTPUT、KEYIN、 
VPARM、 VDPUT 
(8) ハ ー ド コピ ー・ タ イプ 


RQNO リク エス ト 番 号 
RCBSTA ステ ィ タ ス 
RCBDBA バッ ファ ・ ア ドレ ス 
RCBCDT 色 指 定 デ ー タ 




















RCBCDT は 2 バイ ト か ら な り 、 コ ピー する と き に 、 
虹 で プリ ント する カラ ー と 灰 で プリ ント する カラ ー の 
色 折 定 を 行ない ます . 
RCBCDT が 黒 で プリ ント する 色 の 指定 を 、 RGBCDT 
+1 が 灰 で プリ ント する 色 の 指定 を 行ない ま 対 
RCBCDT の 各 ビ ピット が 、 カ ラー コー ド -_ (0 所 7 ) : に 
対応 し ます . 4 


! 





2 還 沈 
7 <:、 う る 1G 学 


Reacor | | | 1 リント 拓 


76:、 5 。 プ 、3. 0 ⑨ 
+([ エ エト トト トリ ント 


白 黄 水 色 緑 紫 赤 青黒 











各 ビ ッ ト は 、1 王 ON、 0 一 OFF で す ・. 

RCBCDT と RCBCDT 二 1 の 両方 に ビッ ト が 立っ た 
と き は 、 そ の カラ ー は 時 で プリ ント され 、 両 方 と も 立 

っ て いな いと き は 、「] で プリ ント され ます ( 白 * プ リン 


(適用 ルー チン ) 
HDCOPY、SCREEN 
NN ・ タ イプ 


RGQNO リク エス ト 番 号 
RCBSTA ステ ィ タ ス 

RCBDBA バッ ファ 先頭 アド レス 
RCBLNH デー タ 長 上 位 
RCBLNL / 下位 
RCBBMH バッ ファ 長 上 位 
RCBBML / 下位 





























RCBDBA : 入力 バッ ファ 
RCBLNH、L: デー タ 長 
ユー ザー が モット する の は 、 出 力 デ ー 
タ ・ バ イト 数 で 、BIOS が セ モット す る の は 
入力 デー タ の バイ ト 数 . 
RCBBMH、L : デー タ ・ バ バップ テ 長 
BIOS は 、 ユ ー ザ ー の バッ ファ に デー 
タ を 転送 する さい に 、 バ ッ フ ァ 長 を チ 
ェ ッ ク し 、 転 送 可 能 か どう か の チェ ッ 
、 グ を 符 な う 


の 先頭 アド レス 


(適用 シー チン ) 
INPUT、INPUTC 


2 人 1 


10 


(0 漢字 ROM タ イプ 


ラベ ル 名 | 相対 値 | 
RQNO リク エス ト 番 号 
RCBSTA ステ ィ タ ス 








RCBDBA バッ ファ 先頭 アド レス 
RCBJCD JIS コ ー ド 











RCBDBA : 漢字 RQOM デ ー タ の 格納 先頭 アド レス . 
RCBJCD: 漢字 JTS コード . 


(適用 ルー チン ) 

KANJIR 

[ 己 ]BIOS ル ー チ ン 使 用 例 
220 ロ が ハピ ーッ ネズ 多 の 二 必 0 タル 599D デ 要 称 と 

サブ シス テム か ら の 1 文字 キー 入力 ルー チン の 使用 例 

区 放 ま す . 


(1) イ ロッ ピー ディ スク か ら 1 セ クタ を リー ド す る . 
リーREE% 必 グリ プア ド レポ (で や 三 ウド 1 、 トド ラッ 
ググ 2 セク ジン ク 8S3K wm ド rl で ある らら ます ふく 








RQNO EQU 0 
RCBDBA REBQU 
ROBLTRNH EQU 4 


玉 
KBYBUE EQU 6 RCB の ラス ト 2 バイ ト を 
キー 入力 の た め の バ ベ バッ フ 


の ァ に 使用 する . 


っ この アド レス は 一 例 で あ 
SBER 民 EQU 沖 選 OO3 し 0 


玉 


RCB オ フ セ ッ ト 


や 


LDX #SBROB RCB の アド レス ・ セ ッ ト 
TSR BTOS BIOS の コー ル 
BOS SBERR エラ ー チ ェ ッ ク 


SBROB  EOB 21 INKEY リ クエ スト 番号 


FCB O ステ イタ ス 
EFD SBRCB+KEYBUF キー 入力 バッ ファ ・ ア ド レス 
FDB OO RCBLNH、BIOS の リタ 


ー ン 時 、2 が セッ ト さ れ ま す 


KEY BUEEER 
※ を 
EFDB O キー 入力 バッ フ アァ 











RQNO EQU  O RCB オ フ セ ッ ト 

ROBDBA EQU 2 

ROBTRK EQU 4 

ROBSTD EQU 6 

玉 

BTOS EQU FOOoO この アド レス は 一例 

EFDERR EQU BROOO で す ・ 

3 
TLDX  #EFDROB RCB の アド レス セッ ト 
TLDA 井 10 リク エス ト 番 号 セ ッ ト 
STA  RQNO.X 
TLDD 韻 EDBUE バッ ファ の アド レス ・ セ ッ ト 
STD  ROBDBA.X 
TLDD 半 2*256 十 5 トラ ッ ク ー2、 セ クタ ー3 セ ッ ト 
STD  ROBTRK.X 
TDD  #1**256 十 1] サイ ドー1、 ユ ニッ トニ 1 セッ ト 
STD  ROBSTD,X 
SR BTOS 
TLBOBS DERR 


BIOS の コー ル 
エラ ー チ ェ ッ ク 
に き 
FDROB RMB 8 
玉 

FDBUE RMB 256 


RCB8 バ イト 


リー ド ・ バ パッ ファ 256 バ イト 











(2) サ プシ ステ ム ・ キ ー ボ ー ド か ら 1 文字 入力 する . 
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[BIBIDS ル ー チ ン 
イン ター フェ イス 詳細 


BIOS の 各 I/O ル シー チ ン の RCB の 使い 方 を 以下 に 述べ 
る . RCB の 8 バイ ト の うち 、 先 頭 の 2 バイ ト は すべ て 
の ルー チン に つい て 共通 で す が 、 残 り の 6 バイ ト は 、 
ルー チン ご と に 使用 方 法 が 異な っ て いま す . 

リク エス ト 番 号 順に 、RCB の 構成 を 示し ます . な お 、 
RCB の 構成 表 中 、 〇 印 の 付い た も の が 、 呼 び 出 し 元 ( ユ 
ー ザ ー) ある い は BIOS が 設定 すべ き パ ラメ ー タ で す . 

RCB の 8 バイ ト の 内 容 は BIOS が 設定 し て ユー ザー に 
返す パラ メー タ を 除い て 変化 し ませ ん ・ ま た 、BIOS の 
実行 中 に エラ ー が 発生 し た 場合 、BIOS は その 1/O ル ー 
チン の 実行 を 中 止 し 、 エラ ー ス テイ タス を セッ ト し 、 
呼び 出し 元 に 帰り ます . その と き 、BIOS が RCB に 設 
定 す る こと に な っ て いる パラ メー タ の 値 は 正しく 設定 
され て いる と は 限り ませ ん . た だ し 、 エ ラー ステ イタ 
ス だ け は 正しく 設定 され て いま す . 

(1)ANALGP…… アナ ログ ・ ポ ー ト 入力 ルー チン 

ラベ ル 名 | 相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 

RQNO 

RCBSTA 








RCBCNL 
RCBRNG 
RCBAPD 














アナ ログ ポー ト か ら 値 を 読み 取る ルー チン . アナ ロ 
グ ・ デ ー タ は A/D コ ン バ ー タ で 、 デ ジタル 化 さ れ 、 こ 
の ルー チン に より 読み 取ら れ ま す . 結果 は 1 バイト の 
値 と な り ま す . 


ユー ザー が 指定 する パラ メー タ は アナ ログ ・ ポ ー ト 
の ポー ト 番 号 と アナ ログ 入力 の 電圧 範囲 の 2 つ で す . 
RCBCNL: 0 一 3 4 チャン ネル の う ちか ら 1 つ の チ 


ャ ン ネ ル を 選択 する ・ 
RCBRNG デ 日 0 Vー2.5V の 電圧 範囲 を 指定 . 
ー ト 0 V-5/8V の 電圧 範囲 を 指定 . 


RCBAPD : AD 変換 結果 1 バイ ト 
ステ イタ ス RCBDBA は 常に 正常 終了 を 示し ます . 
(2)MOTOR…… オー ディ オカ セッ トモ ー タ ・ コ ント ロ 
ー ソ ルル リレー: チン 
ラベ ル 名 | 相対 値 | ユ - ザ ー セ ッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 
RQNO 





RCBSTA | 
MOTORF 





オー ディ オ ・ カ セッ ト の リモ ー ト 端子 に より 、 モ ー 
タ を ON、OFEF す る ルー チン で す . 

モー タ を ON する の か 、OFEF す る の か は 、 RCB 中 の M 
OTORF に セッ ト さ れる 値 で 決ま り ま す ・ 
MOTORH 王 FF モー タ を ON する . 

学 FEF モー タ を OFEF す る . 

また 、 モ ー タ を ON、OFF す る こと に お いて 発生 する 
エラ ー は 考え られ な い の で 、 ス テイ タス の RCBSTA は 
常に 、 正 常 終 了 を 示し ます . 
(3)CTBWRT…… み カセット テー プ 1 バイ トラ イト ・ ル ー 

ナジ 

ラベ ル 名 | 相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIOS セ ッ ト パ ラメ ー タ 

RQNO 





RCBSTA | 
CRWDAT 





オー ンプ dsa22aEeya ト の に 1 ン イ ョ トト に の ニク を 
ライ ト す る ルー チン . ライ ト す べき デー タ は 、CRWD 
AT に 設定 し ます . 

この カセ ッ ト ラ イト ・ ル レー チン と 、 次 の リー ド ・ ル ー チ 
ン は 、 デ ー タ の プ ブロッ キン グ 、 デ プ ブロッキング は 行 な 
っ で いま せん 。 あく ぐま : で 上位 の ブロッ ク ・ ラ イィ ト 、 
プ ブロック ・ リ ー ド の た だ ため の 1 個 の サブ ルーチン で す . 

これ ら の ルー チン の 使用 に あたっ て は 、 ル ー チ ン の 
呼び 出し に 関す る 時 間 的 制約 に つい て 充分 考慮 する 必 
要 が あり ます . 

(4)CTBRED…… カセ ッ ト テ ー プ 1 バイ トリ ー ド ・ ル ー 
チン 

ラベ ル 名 | 相対 値 | ユ - ザ ー セ ッ ト ・ パ ラメ ー タ | BIOS セ ッ ト : パ ラメ ー タ 

RQNO 





RCBSTA 
CRWDAT 





ポカ セン cy トド カー ジブ ジ 1 イマイ トド トリ ーー ドレー 
チョ シ 
(5)INTBBL……・ バブ ルカ セッ トイ ニシ ャ ライ ズ ・ ル ー 
チェ ジン 














ラベ ル 名 | 相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIO5S セ ッ ト : パ ラメ ー タ 
RQNO O 4 
RCBSTA 1 



















〇 





磁気 バブ プル ・ カ セッ ト を イニ シャ ライ ズ す る ルー チン 

で す . この ルー チン は デバ イス の イニ シャ ライ ズ を 行 

な う も の で 、 デ ィ レ クト リ の 初期 化 と いう よう な た ぐ 

い の も の と は 異な り ま す . どちら か と いう と 、 ハ ー ド 

ウェ ア の リセット 信号 に 近い 働き を する ルー チン で す . 

設定 する の は RQNO 4 で だ け で す . 

(6)SCREEN…… CRT ス クリ ー ン ・ イ メー ジコ ピー 
ラベ ル 名 | 相対 値 | *ー ザ ー セ ッ ト ・ パ ラメ ー タ | BIOS セ ッ ト : パ ラメ ー タ 
RQNO Oo 
RCBSTA | Il 








RCBDBA | 2、3 
RCBCDT 











CRT 画 面 の プリ ンタ へ の コピ ー を 行なう . CR 
上 の ドッ ト の 色 と プ リン タ 上 の ドッ ト の 色 は 次 の ょ よう 
に 対応 し ます . 





CRT 画 面 上 プリ ンタ 上 
1 赤 、 紫 、 緑 、 水 色 、 黄 、 白 一 > 黒 
時 > 白 














CRT 画 面 と プリ ンタ の 紙 送 り 方 向 と の 関係 は 次 の と 
お り で す . 





CRT 画 面 





O 


プリ ンタ 用 紙 





OoOOOO 
NN 
う OO 











プリ ンタ 上 で の 1 画面 は 、 全 体 的 に 横 広 の 縮小 され 
た もの に な り ま すし これ は 、CRT と ブリ ン 名 の 2 
ト の サイ ズ が 異な る た め に 起こ り ま す . 

この SCREEN ル ー チ ン 用 の バッ ファ は 、 RCBDBA に 
より 指定 し て も らい ます . 必要 な バッ ファ 長 は 209D バ 
2 和 ド SS ま 。 
(座標 計算 ) 

Puab(*) 一 80 (b 一 1 ) 
| Puab(》) 三 8 (a 一 1) 

Plab() 王 80b 一 1 
(2 


う 443 














RQNO 

RCBSTA 
RCBDBA 
RCBPAH 
RCBPAL 
RCBPCH 
RCBPCL 
































バブ ル ・ カ セッ ト に ヶ w ペ ー ジ を ライ ト し ます . ライ 
ト す べき デー タ の 先頭 は RCBDBA で 与え られ ます . 

まだ た 、 ボ ブル ・ カ セッ ト 上 の ライ トト すべ き ア ドレ ス は 
RCBPAH、 工 で 、 ラ イト すべ き ペ ー ジ 数 は 、RCBPCH、 
上 で 与え られ ます . 

RCBSTA に は 、 正 常 終了 ステ イタ ス ま だ た は 、 バ ブル ・ 
カセ ッ ト の エラ ー 番 号 が 返さ れ ま す . 

バブ ル の ペー ジ ・ ア ドレ ス は RCBPA 1 H, し の 2 バイ ト 
で 与え られ 、$0000 一 $O3FF の 値 を 取り ます . 


バブル ・ カ セッ ト の ユニ ッ ト の 指定 は 、RCBPAH の 
MSB1 ビッ ト を 使っ て 行ない ます . MSB が 0? で あ 
れ ば ユニ ッ ト 0 で 、^1? で あれ ば ユニ ッ ト 1 で す . 

RCBPCH、 し の 2 バイ ト に より 、 リ ー ド / ラ イト する 
ペー ジ 数 を 与え ます . と り 得 る 値 は $0001 一 $0 
400 で す . 

(8)REDBBL…… 2 パ ジウ 2 ペー ジー リード 2 レー チャク 
ラベ ル 名 | 相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 
RQNO 
RCBSTA 
RCBDBA 
RCBPAH 
RCBPAL 
RCBPCH 
RCBPCL 
































バブ ル ・ カ セッ ト か ら 2 ペー ジ を リー ド し ます . リー 
ド ・ デ ー タ の 格納 先頭 アド レス は RCBDBA で 与え られ 
まま ! づ "。 

まだ た 、 バ ブル ・ カ モッ ト 上 の リー ド す べき アド レス は 
RCBPAH、 し で 、 リ ー ド する ペー ジ 数 は RCBPCH、 葉 
で 与え を られ ます . 


2 條 4 


RCBSTA に は 正常 終了 ステ イタ ス ま だ た は 、 バ ブル ・ カ 
セッ ト の エラ ー 番 号 が 返さ れ ま す . 

RCBPAH の MSB 1 ビッ ト は 、 バ ブル ・ カ セッ ト の ユ 
ニッ ト の 指定 に 使わ れ ま す . 





RCBPAL 


RCBPAH 











ペー ベク 7 ドレ 5 ば ID お IOWOWO5O"! も TOW3NROHCSC 二 マ 
ー ジ ・ カ ウン ト は $0001 一 $0400 で す . 
(9)RESTORE…… シ ー ク ・ ト ラッ ク 0 ・ ル ー チ ン 


| 相対 値 | ユー ザー セッ トバ ラメ ー タ | BIO5S セ ッ ト : パ ラメ ー タ 


RQNO 
RCBSTA 
RCBDBA 
RCBTRK 
RCBSCT 
RCBSID 
RCBUNT 
































RCBUNT で 指定 され た ディ スク ・ ド ライ ブ ・ ユ ニッ 
ト に 対し て リス ト ア (シー ク ・ ト ラッ ク 0) 動作 を 行 
な いま す . 

これ に より 、 ヘ ッ ド は トラ ッ ク 0 の 位置 に セッ ト き さき 
まあ 9 油 還 ドッ 21 人 Kー ホ ン ョ Rt の ) (に ONE の 
9 
(10DWRITE…… プロ ッ ド ピー、 ル モク タラ イド ュ ッ レー ナチ 


レン 


| 相対 値 | ユー ザー セッ トバ ラメ ー タ | BIOS セ ッ ト . パ ラメ ー タ 









RQNO 

RCBSTA 
RCBDBA 2 
RCBTRK 
RCBSCT 
RCBSID 
RCBUNT 




















ィ 


| の 0|1OI お IO 一 |O 



































OIOIOIOIO 





フロ ッ ピ ー デ ィ ス ク に 1 セク タ を ライ ト す る . RCB 
DBA に 、 ラ イト ・ デ ー タ の 先頭 アド レス を 設定 し 、R 
CBTRK、RCBSCT、RCBSID、RCBUNT に より 、 
デー タ を 書き 込む 場所 を 指定 し ます . 各 パ ラメ ー タ の 
指定 は 、 次 の 範囲 で 行なえ ます. 

RCBTRK 一 0 一 39 (10 進 ) 
RCBSCTー 1 一 16 (10 進 ) 

RCBSID 王 0 また は 1 

RCBUNTー0 一 3 

フロ ッ ピ ー の 入出 力 中 に エラ ー が 発生 し た 場合 、 エ 
ラー 番号 が RCBSTA に セッ ト さ れる ・ ユ ー ザ ー は エラ 


ー の 内 容 を 見 て 、 リ トラ イ す る か どう か を 決め て や る 
必要 が あり ます 

(10DREAD…… フロ ッ ピ ー1 セ クタ ・ リ ー ド ・ ル ー チ ン 
| 相対 値 | aー ザ ー セ ッ ト ・ パ ラメ ー タ | BIOS セ ッ ト : パ ラメ ー タ 












RQNO 
RCBSTA 
RCBDBA 
RCBTRK 4 
RCBSCT 5 
RCBSID 6 
RCBUNT 2 





























OIOIOIOIO 


フロ ッ ピ ー デ ィ ス ク か ら 1 セ クタ を リー ド し ます . 
RCBDBA に リー ド ・ デ ー タ の 格納 先頭 アド レス を 設定 


し 、RCBTRK、RCBSCT 、RCBSID、RCBUNT に より 、 


リー ド す べき 場所 を 指定 し ます . 各 パ ラメ ー タ の 指定 
は 、 溢 の 範囲 で 行 な を ます . 

RCBTRK 一 0 一 39 (10 進 ) 

RCBSCTー 1 一 16 (10 進 ) 

RCBSID デ 0 また な は 1 

RCBUNT デ 0 一 3 

フロ ッ ピ ー の 入出 力 中 に エラ ー が 発生 し た 場合 、 エ 
ラー 番号 が RCBSTA に セッ ト さ れ ま す . リト ライ は 、 
ユー ザー の 判断 に 任 き され ます . リト ライ する と き は 、 
リス ト ア を 実行 し 、 それから リト ライ する よう に し ま 
39 
9VOICE…… 音 声 合成 スタート ・ ル ー チ ン 
ラベ ル 名 | 相対 値 | ユーザ ー セ ッ ト パ ラメ ー タ | BIOS セ ッ ト : パ ラメ ー タ 
RQNO O 11 | 
RCBSTA 1 










〇 





音声 合成 を 開始 し ます . この ルー チン に 先だって 、 音 
声 合成 の パラ メー タ と 音声 デー タ が 音声 合成 デバ イス 
に 送ら れ て いな けれ ば な り ま せん . こ の ルー チン は 、 
音声 合成 を スタ ー ト し 、 音 声 合成 が 終了 する の を 待っ 
で 0: ター ンジ 2 ま 9 。 

RCBSTA は 常に 正常 終了 を 示し ます . 
9BEEPON…… ビー プ 音 発生 ルー チン 





ラベ ル 名 | 相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ バ ラメ ー タ 
RQNO o 12 
RCBSTA I 









〇 





ビー プ 音 の 発生 を 行ない ます . RCBSTA は 常に 正常 


終了 を 示し ます . 
(BEEPOF…… ビー ブ 音 太 ド ッ ジ ・ ル ー チ シン 

ラベ ル 名 | 相対 値 | ユ - サ ー セ ッ ト : パ ラメ ー タ | BIOS セ ッ ト パ ラメ ー タ 
RQNO O 
RCBSTA 1 
















BEEPON で 発生 中 の ビー プ 音 を スト ッ プ し ます . 
RCBSTA は 常に 正常 終了 を し ます . 





,&O 


(19LPOUT…… プリ ンタ 出力 ルー チン 


RQNO 
RCBSTA 








RCBDBA 
RCBLNH 
RCBLNL 

















ブリ ジグ に だ に エ デ ー ア ・ ジ ロッ クジ を 出 連 計 ま 9。 の の 
ルー チン は 、 プ ブリ ンタ の 行 と いう 概念 は まっ だ た く 持っ 
て いま せん . し た が っ て 、 改行 の た め の コ ー ド も ユー 
ザー の 側 で 、 印 字 デ ー タ と と も に 送っ て 走る 必要 が あ 
り ま す . h 

また 、 印 字 中 に 紙切れ 、 オ フラ イン な ど に より 、 プ 
リン タ が ノッ トレ ディ に な っ た 後 、 再 び レ ディ に 戻っ 
だ た と き 、 行 を 打ち 直す と いう よう な 処置 は 行なっ て い 
ませ ん ・. 

RCBDBA に プリ ンタ に 出力 する デー タ の 先頭 アド レ 
ス を セッ ト し 、RCBLNH、 工 で 出力 デー タ の バイ ト 数 を 
管 め ドド 寺 ま 誠に > 

プリ ンタ に 1 文字 出力 し た いこ と が あり ます が 、 こ 
の と き は 、RCB 8 バイ ト の うち の 、 最 後 の 2 バイ ト を 
プリ ント ・ デ ー タ バッ ファ に 使い ます . そう すれ ば 
RCB の 他 に 、 バ ッ フ ァ を 設け る 必要 は な く な り ま す . 
0HDCOPY…… CRT ス クリ ー ン ハー ドコ ピー・ ル ー 

チ シ ジン 


| 相対 値 | ユー ザー セッ ト パ ラ メー タ | BIOS セ ッ ト パ ラメ ー タ 


RQNO 

RCBSTA 
RCBDBA 
RCBCDT 

















CRT ス クリ ー ン を プリ ンタ に コピ ー す る .。 綻 忌 記 
ー で は 、 ス クリ ー ン 上 の 1 ドッ ト を プリ ンタ の 横 方 向 
4 ドッ ト に 拡大 し て 印字 し ます . この 結果 、 3 レベ ル 
の 濃 深 の つい た プリ ント を する こと が 可能 で す . スク 
リー ン 上 で は 、 8 色 カ ラー な の で 、 各 色 に 対応 し た 濃 
淡 レ ベル を 実現 する こと は 残念 な が ら で き ませ ん ・ 

そこ で 、 ど の 色 を どの 濃淡 に 対応 きせ る の か を RCB 
CDT の 2 バイ ト で 指定 し て も ら わ な けれ ば な り ま せん ・ 

RCBCDT は 黒 レ ベル で プリ ント する カラ ー の 指定 を 、 
RCBCDT+1 は 灰 レ ベル で プリ ント する カラ ー の 指定 
を 行ない ます . 

RCBCDT の スバ イト で 、 各 ビッ ト が カラ ー コ ー ド を 
表わし 、 ビ ッ ト が 立っ て いれ ば 、 そ の 色 が その 濃淡 レ 
ベル で プリ ント され ます . 

RCBCDT、RCBCDT 十 1 と も に ビッ ト が 立っ て い 
る と き に は 、 時 レ ベル で プリ ント され ます . 
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&O 





sug5 4 つら 


ae 











RCBDBA で 指定 する バッ ファ の 長 さ は 210D バ イト 以 
上 で な けれ ば な : り ませ ん ・ 

濃 決 レベ ル は 黒 、 灰 、 白 の 3 つ で す . これ ら は 、 プ 
リン タ の ドッ ト 表 現 で は 次 の よう に な り ま す . 














CRT 画 面 と プリ ント 用 紙 の 関係 は 次 の よう に な り ま 
す . また 、CRT ス クリ ー ン の タテ メ ヨ コ の 比率 と プリ 
ンタ 用 紙上 で の タテ メ ヨ コ の 比率 は ほぼ 同じ で す . 

















ノー プリ ント ラス ト ・ ポ ジ シ ョ ン 















































ジリ ンタ 用 紙 





^ プ リン ト フ ァ ー ス ト ・ ボ ポジション 


紙 送 り 方 向 











(座標 計算 ) 





Pui( 7, Y77 ) 

















CRT 画 面 か ら デ ー タ を 入力 する と き は 、 画 面 を 1 一 
160 の ブロ ッ ク に 分 割 し 、 ブ ロッ ク 単 位 で CRT 画 面 の 入 
力 を 行ない ます . 

ブロック の 座標 (Pumi、Pli) の 指定 は 、 ブ ロッ ク 番号 
i に より 行なう . Pui、Plji は 次 の よう に 算出 され ます . 
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(1) i 三 寄 数 の と き 
Xq 王 4Gー1) Ymj 王 100 
XjiーXuni 十 7 Yj 一 199 
(2) i 三 偶 数 の と き 
Xui 王 4 人 ーー 2 ) Yumー 0 
Xlji 王 Xuni 十 7 Yji 一 99 
(95SUBOUT…… サブ プ シ ステ ム ア ウ トブ プッ ト ・ ル ー チ 


ン 


相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 


RQNO 

RCBSTA 
RCBDBA 
RCBLNH 
RCBLNL 

















デイ スジ レイ > サブ シン ステ 次 避 w 避 マン シド お よび デ 
ー タ を 出力 し ます . 一 度 に 出力 で きる バイ ト 数 は 最大 
128 バ イト で す 。 これ は 、 六 有紀 と ネイ ルン の . 及 シタ ニー ェ 
イス 領域 の バイ ト 数 で す . 

この ルー チン は 、 ユ ニ ユー ザー が バッ ファ 上 に 用 意 し た 
デー タ を そっ くり その まま 、 サ プ ブ に 送り 出す だ け で す . 
し た が っ て 、 継 続 フ ラグ の 処理 な ど は 、 ユ ー ザ ー が 行 
な わな けれ ば な り ま せん . 

RCBDBA に デー タ ・ バ ッ フ ァ の 先頭 アド レス を セッ ト 
し 、RCBLNH、 上 し に デー タ の バイ ト 数 を セッ ト す る .. 
だ た だ し 、RCBLNH 王 0 と し 、RCBLNL 一 1 一 128 で な 
けれ ば な り ま せん . 

この ルー チン は 、 サ ブ の 動作 完了 を 待た ず に リタ ー 
ン す る の で 、 ス テイ タス RCBDBA は 常に 正常 終了 を 示 


し しま)93 
19SUBIN…… サブ シス テム ・ イ ンプ ッ ト ・ ル ー チ ン 


| 相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIOS セ ッ ト . パ ラメ ー タ 


RQNO 

RCBSTA 
RCBDBA 
RCBLNH 
RCBLNL 





























RCBMTB 


サブ プシ ステ ム に コマ ンド と デー タ を 送り 、 そ の 結果 
を デー タダ タ ・ バ パッ ファ に 返す . この ルー チン は ほ は? が か 
ら の 入力 デー タ が ある コマ ンド を 実行 する と き に 使い 
ます . SUBOUT エ ルー チン を 使う の は 、 サ ブ か ら の 入力 
デー タ が な い コ マン ド を 実行 する と き で す . 

この ルー チン の 場合 も 、 継 続 フ ラグ の 処理 な ど は ユ 
ー ザ ー が 行なわ な けれ ば な り ま せん . 

RCBDBA に デー タ ・ バ ッ フ ァ の 先頭 アド レス を セッ 
ト し 、RCBLNH、L し に デー タ の バイ ト 数 を セッ ト し ま 
す . この ルー チン の 実行 後 は 、 デ ー タ ・ バ ッ フ ァ の 内 
容 は 入力 され た デー タ に な り ま す . サブ プ に 出力 し た 、 
コマ ンド と デー ジグ は 失 な われ 5 で 3 まま す <。 


RCBMTB に は 、RCBDBA で 指定 し た バッ ファ へ へ 転 
送 バ イト 数 を セッ ト し ます . BIOS は 、 指 定 き され た バイ 
ト 数 だ け デ ー タ を 転送 し ます . RCBMTB に は 0 一 128 の 
値 を セッ ト し ます . BIOS リターン 時 に は 、RCBLNH、 
L に 、 ユ ー ザ ー バ バッファ へ の 転送 バイ ト 数 が セッ ト さ れ 
ま 39 
9INPUT…… AZ2S2 ン zc2220I1 2 の 2 ジス 
| 相対 値 | ユー ザー セッ ト ・ パ ラメ ー ダ | BIOS セ ッ ト パ ラメ ー タ 
18 












RQNO 

RCBSTA 
RCBDBA 
RCBLNH 
RCBLNL 
RCBBMH 
RCBBML 




















OIO 














N 
に | RIZ 一 |O 
0 6 





OIOIOIOIO 


サブ シス テム の コン ソー ル 画 面 に 文 字 列 を 表示 後 、 
オペ レー タ に より 変更 され た フィ ー ル ド の うち で 、 最 
上 段 の フィ ー ル ド を 読み 込み ます . 

サブ シス テム が 変更 きれ た フィ ー ル ド の デー タ を 転 
送 し 始め る の は 、 終 了 キ ー コ ー ド (RETURN、CTRL- 
C、 CTRL-X、 CLEAR) が 入力 され た 直後 で す . 

RCBDBA 上 に あっ た 画面 表示 用 デー タ は 破壊 され ま 
す . また 、RCBLNH、 の 内 容 も BIOS で 新しく セッ ト 
さま 9 

入力 デー タ は RCBDBA の 指す バッ ファ 上 に 次 の よう 
に 返さ れ ま す . 





RCBLNH、 し に セッ ト さ れる バイ ト 数 


久生 力 宙 され 昌 た ま Z 和 スト 


OO_RETURN 
終了 キー コー ド {1 OI CTRL-C or CTRL-X 
O2 CLEAR 





















0INPUTC…… サブ プシ ステ ム 継 続行 入力 ルー チン 

ラベ ル 名 
RQNO 
RCBSTA 
RCBDBA 
RCBLNH 
RCBLNL 
RCBBMH 
RCBBML 








| 相対 値 | ユー ザー セッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 





















































INPUT ル ー チ ン 使 用 後に コー ル す る . この ルー チン 
は 、INPUT で 転送 きれ な か っ た 変更 フィ ー ル ド ( 未 転 
送 フ ィ ー ル ド ) の 転送 を 行ない ます . 

INPUT エ ルー チン の コー ル 後 は 、 続け て INPUTC ル ー 
チン を コー ル し な けれ ば な り ま せん . INPUTC ル ー チ 
ン は 、 未 転送 フィ ー ル ド が な く な る まで コー ル し 続け 
な けれ ば な り ま せん ・ 

バッ ファ 上 で の 、 入力 デー タ の 返し 方 は INPUT ル ー 
チン の 場合 と 同じ で す . 


&O 








ミーーーーRCBLNH、 し に セッ ト され る バイ ト 数 


入 入力 され た テキ スト 


一 終了 キー コー ド 











10OUTPUT…… サ プシ ステ ム ・ キ ャ ラク タ ・ デ ー タ 出 
カカ ルー チン 


| 相対 値 | ユー ザー セッ ト : パ ラメ ー タ | BIOS セ ッ ト : パ ラメ ー タ 


RQNO 

RCBSTA 
RCBDBA 
RCBLNH 
RCBLNL 




















RCBDBA で 示さ れる バッ ファ 上 の デー タ を RCBLN 
H、 工 で 指定 され た バイ ト 数 分 だ け 、 サ プシ ステ ム の C 
RT 画面 に 表示 し ます . 
⑳2KEYIN…… キー ボー ド 1 廊 字 入力 ルー チン 

ラベ ル 名 | 相対 値 | ユーザ ー セ ッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 

RQNO 

RCBSTA 








RCBDBA 
RCBLNH 
RCBLNL 














RCBDBA に は 、 キ ーー 入力 デ ー タ ・ バ ッ フ ァ ウ の 先頭 ア 
ドレ ス を セッ ト す る . バッ ファ は 2 バイ ト 用 意 し ます . 

RCBLNH、 工 は キー 入力 デー タ の バイ ト 数 を 表わし 
常に $ 0 0 0 2 が BIOS で 設定 され ます . 

RCB は 8 バイ ト あ り 、 こ の ルー チン の 場合 後ろ の 2 
バイ ト が 空い て いる の で 、 こ の 2 バイ ト を キー 入力 デ 
ー タ ・ バ ッ フ ァ と し て も か まい ませ ん ・ 
キー 入力 デー タ ・ バ ッ フ ァ 





LK | EN | 


K : 入力 キー コー ド 
EN : キー 入力 の 有無 O: 無 
1 : 有 











@9KANJIR…… 漢 字 ROM デ ー タ リー ド ・ ル ー チ ン 


RQNO 
RCBSTA 








RCBDBA 
RCBJCD 








漢字 デー タ は 1 字 に つき 32 バ イト で す . 空き 番号 に 
な っ て いる JIS コー ド に 対し て は 、32 バ イト の 0 を 返す . 

漢字 1 文字 の デー タ 32 バ イト に 対し て 下図 の よう に 
上 L 1 一 L16、R1 一 R16 な る . ラベ ル を 付け ます . 

RCBDBA で 示さ れる バッ ファ 上 に は 、L1、R1、 工 
2、R2、…… L16、R16 の 順に デー タ が 格納 され ます . 
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= RCBDBA 





漢字 バッ ファ 











0LPCHK…… プリ ンタ の レデ ィ チ ェ ッ ク ・ ル ー チ ン 


| 相対 値 | ユー ザー セッ ト パ ラ メー タ | BIO5 セ ッ ト ・ パ ラメ ー タ 
o 23 
I 








ラベ ル 名 
RQNO 
RCBSTA 




















〇 





プ 六 シタ が レレ 


プリ ンタ の レデ ィ チ ェ ッ ク を 行なう 
ディ で あれ ば 、 正 帯 ス ティ タス を 返し 、 ペー パー エン 
プティ 、 ノ フット レデ ィ の と き は それ ぞ れ エラ ー 番 号 を 


RCBSTA に 返し ます . 
RCBSTA 三 0 正常 (レデ ィ ) 

50 ペー パー エン プ テ イ 

54。 ブウ ドル レイ 
@5BIINIT…・BIOS イ ニシ ャ ライ ズ ・ ル ー チ ン 
| 相対 値 | ユー サー セ ッ ト ・ パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 
Oo 24 
1 









ラベ ル 名 
RQNO 
RCBSTA 



















〇 





BIOS の 初期 設定 を 行なう . この ルー チン は 、 シ ステ 
ム の 初期 設定 時 に コー ル し ます . 
600VPARM…… 音声 合成 パラ メー タ ・ セ モ セット ・ ル ー チ 
ン 


| 相対 値 | ユー が ザー セット: パラ メー タダ | BIO5 セ ッ ト パ ラメ ー タ 
RQNo 
RCBSTA 








RCBDBA 
RCBLNH 
RCBLNL 

















音声 合成 デバ イス に 音声 合成 パラ メー タ を 送り 出し 
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て や る ルー チン で す . 音声 合成 パラ メー タ の 格納 領域 
の アド レス を RCBDBA に セッ ト し 、 パ ラメ ー タ の 長 さ 
を RCBLNH、 に モット す る . 

音声 合成 デバ イス で 発生 する エラ ー は な い の で 、RC 
BSTA は 常に 正常 終了 を 示し ます . 
(vVDPUT… 音 声 合成 デー タ 転 送 ル ー チ ン 


| 相対 値 | ユー ザー セッ ト パ ラ メー タ | BIOS セ ッ ト ・ バ ラメ ー タ 


RQNO 

RCBSTA 
RCBDBA 
RCBLNH 
RCBLNL 


























音声 合成 デー タ を 音声 合成 デバ イス 部 の RAM メ モリ 
に 転送 し ます . RAM の 容量 は 2 K バ イト で 、 ア ドレ ス 
が $0000 一 $0 7 まで で す . 音声 デー タ が 2 
K バ イト を 越え て 、 転 送 き れん た と き は 、 転 送 ア ドレ ス が 
再び $0000 か ら 始 まり ます . つま り 、 転 送 ア ドレ 
ス は $ 8 0 0 の モー ド と な り ま す . 

RCBDBA に 音声 デー タ の 先頭 を セッ ト し 、 転 送 バ イ 
ト 数 を RCBLNH、 に モッ ト し ます . RCBSTA は 常に 
正常 終了 を 示し ます . 
80VRESET…… 音声 合成 デバ イス ・ リ セッ ト ・ ル ー チ 


ン 












ラベ ル 名 | 相対 値 | ユー ザー セッ ト パ ラメ ー タ | BIOS セ ッ ト ・ パ ラメ ー タ 
RQNO Oo 27 
RCBSTA | | 〇 


音声 合成 デバ イス に リセ ッ ト 信 号 を 送る . 


L プ 1]BIDS の エラ ー 番 号 


BIOS は 、 各 種 【(O の エラ ー に つい て 、 エ ラー 番号 を 
定め て お り 、 エ ラー が 起こ っ た 場合 に 、 そ の 番号 を R 
CB の ステ イタ ス ・ バ イト に 返し ます . 

BIOS の エラ ー 番 号 と I/O の エラ ー 内 容 と の 対応 は 次 
の と お り で す ・. 

な お 、 エ ラー が な いと き に は 、_ 0 を ステ イダ タス"* 
イト に 返し ます . 
g) 0 番台 …… BIOS シ ステ ム ・ エ ラー 
1 番 RCB エ ラー 
2 番 デバ イス ・ ア ン ア ベ ィ ラブ ル ・ エ ラー 
(b)10 番 台 …… フル ロ ドジ ルン ピース ンク 0 ラー 
10 番 ドラ イブ ・ ノ ッ ト レ ディ 
11 番 ディ スク ・ ラ イト プロ テク ト 
12 番 . ハ ー ド ・ エ ラ . 一 
(ニン シーク ジュ ーー ュ ロ 多 ドッ デー 、 レ ラー 
に 2 ッ シ ド ジッ ンジ ドリ 
13 番 CRC エ ラー 
14 番 DD マー ク 検 出 
15 番 タイ ム ・ オ ー バ ー エ ラー 
c)30 番 台 …… バブル カセ ッ ト ・ エ ラー 












LO 
時 2 [BBIO5 ル = チッ 人 角 上 信 


32 番 不良 ルー プ 数 が 多い 
33 番 デー タ ・ ト ラン ス フ ァ ・ エ ラー 


(1)BIOS の ワー ク ・ エ リア 
BIOS の ワー ク ・ エ リア は $FEFEE0 一 $EFEEF の 


34 番 CRC エ ラー ワ 16 バ イト に 設定 され て いま す . 

3 へ SN と ベ マン ネジ ドー 
3 0 co この 16 バ イト は 、 フ ロッ ピー の アク セス と サブ 入出 
5 導 に 了 、 力 の と き に 使わ れ ま す . 
37 番 デバ イス ・ ノ ッ ディ (バフ プリ ッ BIOS を 使う と き は 、 こ れ ら の RAM 領 域 を ユー ザー 

未 装 着 ) が 使っ て は な り ま せん 
ム … プ リン タ ・ エ ラー、 オ ー デ ィ オ カセ ッ ト ・ に 
(d)50 番 台 、 (2) ハ ー ド コピー・ ル ー チ ン の バッ ファ の 確保 
エラ ー 


HDCOPY、 SCREEN ルー チン は 209 バ イ ト の ワー ク 
領域 が 必要 で す . 209 バ イト 以上 の エリ ア を 確保 し 、 そ 
の アド レス を RCBDBA に セッ ト し て くだ さい ・. 
(3FIRQ、IRQ の マス ク 

BIOS は 必要 に 応じ て FIRQ と IRQ を マス ク し 計ら 9 が 
し た が っ て 、BIOS 実 行 中 は FIRQ、 IRQ が か か ら な い 
こと が あり ます . 

(4) カ セット の リー ド / ラ イト 

カセ モット の 1 バイ トリ ー ド / ラ イト ・ ル レー チン の 使用 に 
あたっ て は 、 時 間 的 な 制約 を 充分 に 考慮 し な けれ ば な 
り ま せん ・ 

(5) フ ロッ ピー ディ スク ・ リ ー ド / ラ イト 

フロ ッ ピ ー デ ィ ス ク の リー ド / ラ イト ・ ル ー チ ン は 、 
BASIC の マス ク ROM で は な く 、 ブ ー ト 用 の ROM (M 
BS8516) 上 に の せま す . これ は 、 デ ィ ス ク が 8 シンパ ンー 
に な っ た と き に 対応 する こと と 、 BIOS が 使用 する マ 
スク ROM の エリ ア を で きる か ぎり 少な く する だ た めで す . 

ディ スク に つい て は 、5" と 8'" は BASIC で 同時 に 扱う 
こと は な いと いう 前 提 で す . 

まだ 畔 5 な と Y80G の (は プー ト 用 の ROM が 別物 に な る と い 
う 前 提 で 設計 し て いま す . 

(6) バ ブル 

バブ プル ・ カ セッ ト は 、32K バ イト の み を 考 虚 し て お 
り 、128K バ イト の バブ ル ・ カ モッ ト の 場合 は 、 ブ ログ 
ラム の 変更 が 必要 と な り ま す . 


50 番 プリ ンタ ・ ペ ー パ ー エ ンプ ティ 

15 導 ポ 2805 ジ ング ノッ ドレ ディ 

52 番 オー ディ オカ セッ ト ・ リ ー ド エラ ー 

(@)60、70 番 台 …… サ プ ブ プシ ステ ム ・ エ ラー 

60 番 INIT コ マン ド の パラ メー タ に 誤り が あ る 

61 番 コン ソー ル 座 標 エ ラー 

62 番 複数 バイ ト の オー ダ SEQ で 必要 な デー タ が 
な い 

63 番 グラ フィ ッ ク 座 標 エ ラー 

64 番 使用 で き な い ファ ンク ショ ン ・ コ ー ド 、 ま 
た は 未定 義 の フラ ァ ン クシ ョ ン ・ コ ー ド 

65 番 座標 数 が 規定 値 よ り 多 い 、 また は 少な い 

66 番 次 字数 が 規定 値 よ り 多 い 、 ま た は 少な い 

67 番 色 指定 数 が 規定 値 よ り 多 い 、 ま た は 少な い 

68 番 ファ ンク ショ ン ・ キ ー 番 号 エ ラー 

69 番 パラ メー タ ・ エ ラー 

70 番 。 コマ ジン ド ・ 王 ラー 
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RPCDR2OS0XO20 の 622 


公 


ン の ペン ン ペン ン ペ ング 


概 読 


 』 鞍 


FPC-X で は 、 中 央 処理 装置 の 負荷 を 軽減 する た め に 
Display、Keyboard の 制御 を 専用 の プロ モッ サ で 行ない 
ます . この 部 分 を Display Sub-system と 呼び ます . 


S 1. イ ンタ ー フ ェ イ ス 


サブ プシ ステ ム と メイ ン ・ シ ステ ム の 情報 交換 は 、 通 
信用 バッ ファ (Communication Buffer) と 制御 線 で 行 な 








われ ます . 
9 NUTS 上 







_CoMMAND ABORT 








| ArreNrioN 
目 ……. 


[1 通信 用 バッ ファ 


(Communication Buffer) 


コマ ンド ・ デ ー タ の 交換 に 使わ れ ま す . 
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ソー 


パ 
NozNZAN > 


09 < 
OO OO 













0 | ERROR CODE 
1 STATUS 

2 COMMAND 

3 data 

127 

















a. READY REQ 
SUBSYSTEM を HALT し 新た に コマ ンド を 設定 し 
な い 場 合 、 こ の bit を ON に し 、BUSY Line を 落す (Read 
y) . 
b. ERROR C ODE 
コマ ンド ・ コ ー ド お よび デー タ に 誤り が あっ た 場合 に 
設定 され る . 正しく 処理 され た 場合 は 0 . 
c. STATUS 














0 一 3 PE 割り 込み コー ド 1-10 


4 TIMER 割 り 込 み 割り 込み 処 
5 INTERVAL TIMER 割 り 込 み | 理 参照 

6 0 時 割り 込み 

7 デー タ 継 続 フ ラグ 各 コ マン ド 和 参照 


d.。 COMMAND 各 コ マン ド 参 照 
っ data 各 コ マン ド 参 照 


コマ ンド 一 覧 表 


機能 ブロック | 


| コー ド 16 進 
INIT 





ERASE 





PUT 





GET 





GETC 





GET Character Block Il 





PUT Character Block Il 





GET Character Block ろ 





PUT Charater Block 用 





GET Buffer Address 





TAB SET 





CONSOLE CONTROL 





ERASE 2 





1 CHARACTER LINE 





LINE 





CHAIN 





POINT 





PAINT 





SYMBOL 





CHANGE COLOR 





GET BLOCK 1 





PUT BLOCK ! 





GET BLOCK2 





PUT BLOCK2 





GRAPHIC CURSOR 





INKEY 





Define string of PF 
GET string of PF 





&O 


コマ ンド 動作 を 中 止 さ せる 割り 込み 要求 で す .(1 ・ 
2 割り 込み 処理 参照 ) 


[5IATTENTION 
メイ ン か ら 依 頼 の あっ た 割り 込み 事象 が 発生 し た こ 
と を 通知 し ます (1 ・ ら 2 割り 込み 処理 参照 ) ・ 


S 性 . 割 り 込 み 処理 


サブ プシ ステ ム は メイ ン ・ シ ステ ム に 対し て 次 の 割り 
込み 機能 を 持っ て いま す . 


I1ICOMMAND ABORT 
(メイ ン … サ プ ブ ) 

GET お よび GRAPHIC CURSOR コ マン ド 実 行 中 の 
場合 に 、 コ マン ド の 実行 を 中 止 し し 、 た だ ち に コマ ンド 
待ち に な り ま す . 

[2IATTENTION 
(サブ プー メ イン ) 

サブ シス テム は 、 割 り 込 み 原因 を 通信 用 バッ ファ 中 
の STATUS バ イト に 設定 し 、 メ イン ・ シ ステ ム に 割り 
込み を か け ま す . サブ シス テム で は STATUS バ イト 中 
の 各 原 因 の パー ト に 0 でない 数 を 書き 込む だ け な の で 、 
メイ ン の 割り 込み 処理 ルー チン は 、 割 り 込み を 受け 付 
けた と き 、 ま た は 必要 で な く な っ た とき に 割り 込み 原 
因 の 各 パ ー ト を 0 に する 必要 が あり ます ( 注 : デー タ 
継続 フラ グ を 変更 し て は な ら な い ) . 

STATUS バ イト の 構成 








Interrupt Control 





SET TIMER 





READ TIMER 





TEST 











CONTINUE 


ヒコ ンコ に EL 
10 進 (16 進 ) 


6O(3O) INIT コマ ンド の パラ メー タ に 誤り が ある . 





MSB 






TIMER 1 1 割り 込 
INTERVAL | | み 原 因 
O 時 刻 | 











61(3D) コン ソー ル 座 標 値 に 誤り が ある ・ 











62(3E) オー ダ ・ シ ー ケ ンス に 誤り が ある .- 
63(3F) グラ フィ ッ ク 座 標 値 に 誤り が ある . 








64(40) ファ ンク ショ ン ・ コ ー ド に 誤り が ある - 





65(41) 座標 数 に 誤り が ある . 





66(42) 廊 字 数 に 誤り が ある 





67(43) 色 数 に 誤り が ある - 





68(44) PF キー 番号 に 誤り が ある . 





69(45) コマ ンド ・ バ パラメータ に 誤り が ある . 








7O(46) コマ ンド ・ コ ー ド に 誤り が ある 


2IHALT 
サブ プシ ステ ム の 動作 を 停止 きせ 、 メ イン ・ シ ステ ム 
か ら 通 信用 バッ ファ へ の 参照 を 可能 に し ます . 
|3IBUSY 

サ プ ブシ ステ ム が コマ ンド 実行 中 で ある こと を 通知 し 
まぐ す > 
|4ICOMMAND ABORT 














第 2 音 コン ソー ル 


S 1. 吾 示 
1 。 記 応 肝 帆 


中 央 処理 装置 か ら 送 られ て きた デー タ 、 お よび キー 
ボー ド か ら 入 力 さ れ だ デー タ は 、 バ パッ ファ ・ ダ モリ に 
格納 され ます . バッ ファ 中 の キャ ラク タ ・ コ ー ド は 、 
コン ソー ル 制 御 プ ログ ラム で ドッ ト ・ パ ター ン に 変換 
され 、V-RAM (ディ スプ "レイ 、RGB の 3 色 ) に 展開 さ 
まき 。 

バッ ファ ・ メ モリ の アド レス と CRT 上 の 文字 表示 位 
置 と は 2 種類 の 対応 が あり ます (アド レス は 列 、 行 の 
2 次 元 で 表わす ) . 
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1O 


[1180 六 字 表 示 














































デ アド レス 
25 行 (10 進 ) 
0 ,0 
ーーew | | 
w 
0 に | 生計 3 79.0 
隊 0 1 
| 5| ーー 内 MIN 
9 0 ,24 
基 N | 
25 行 80 列 79 , 24 
20 行 
0,0 
79, 0 
2 行 1 列 0 , 1 
20 行 1 列 0 ,19 
20 行 80 列 79 ,19 
r 補 = 持 三 
[2140 文 字 表 示 
e アド レス 
25 行 (10 進 ) 
1 行 1 列 0 
39, 0 
2 行 1 列 0 , 1 
0 ,24 
39 , 24 
20 行 
0,0 
39, 0 
01 0,1 
た | 
30 0 ,19 
20 行 40 列 39 ,19 














































横 軸 
80 文 字 
OF が 8 L15 632 639 
回 回 症 40 
40 文 字 
0 15 16 23 624 639 
因 還 a 2 iatu3 な 71 
縦 軸 
25 行 
0 
7 
8 
15 
192 
行 25 行 20 
199 | 
レグ 

















コン ソー ル 動 作 で の 廊 字 位置 と グラ フィ ッ ク 画 面 の 


座標 位置 の 関係 を 示す . 
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局 。 ジ ツー ル 短 伯 の [ 司 食 科 
[1 動作 モー ド 


Display Sub-system の コン ソー ル 動 作 に は 、 画 面 制 


御 に スク ロー ル と ペー ジ が あり 、 1 画面 中 に 混在 し て 
も よい (た だ し 、 ス クロ ー ル 範囲 は 1 つ だ け ) ・ 


画面 の モー ド 構 成 の 例 





| ペー ジ ・ モ ミー ド 」 還 請 計 
スク ロー ル ・ モ ー ド 


| ベー ジー モー ド s 








オペ レー タ で 、 カ ー ソ ル が 移動 で きる 範囲 は 、 そ の 


と き の バ ッ フ ァ ・ ア ドレ ス を 含む 画面 モー ド の 範囲 で 


( 注 )PF 定 義文 字 列 表示 を 指示 する 場合 、 最 終 行 と その 


手前 の 2 行 は 、 スク ロー ル 、 ペ ー ジ の いずれ に も 
使用 で きま せん . 





バッ ファ ・ ア ドレ ス と は 、 コ マン ド で 文字 を 表 
示す る 位置 で す バッ ファ ・ ア ドレ ス は コマ ンド 
(画面 の 消去 ) や オー ダ (SBA、 EA、NL…) な ど で 
設定 され 、 女 字 を 表示 する た びに 1 加算 きれ ます . 
オペ レー タ に よる カー ソル の 移動 で は 次 の 場合 に 
限り 、 バ ッ フ ァ ・ ア ドレ ス は 変化 し ます . オペ レ 
ー タ が 挿入 し た 文字 位置 (Y*z 填 X、z は 横文字 数 ) 
が バッ ファ ・ ア ドレ ス よ り 大 きい か 等 し い 場 合 に 
バッ ファ ・ ア ドレ ス は 変化 し 、 そ の 文字 の 次 を 示 
(5 ま 059 が es 











a) ス クロ ー ル ・ モ ー ド 画面 

スク ロー ル ・ モ ー ド 画面 で は 、 そ の 画面 範囲 の 最終 
文字 に 文字 を 出力 (コマ ンド お よび オペ レー タ ) し た 場 
合 、 画 面 範囲 の 第 2 行か ら 最終 行 ま で の 行 は 1 行 上 へ 
移動 し 、 最 下段 は Null が 挿入 きれ ます . この こと で 最 
上 段 で あっ た 行 は 画面 か ら 消 を える こと に な り ま す . ま 
た 、 バ ッ フ ァ ・ ア ドレ ス は 最 下 段 先頭 文字 位置 に 移動 
(2 まま 982 


内 回 
回 ls] 回 | 最終 文字 位置 
~ー バッ ファ ・ ア ドレ ス 
| 回 加 
kllel El EE 


回 MEUMEI 





,O 


フィ ー ル ド と は 、 一 連 の 文字 列 を 単位 と し て プログ 
ラム で 定義 きれ 、 デ ー タ の 論理 処理 、 表 示 を 行なう 最 
小 の 単位 で す . 

フィ ー ル ド の 先頭 は アデ テト リ ビ ュー ト ・ バ バッファ テ 中 の 
アデ アトリビュート 廊 字 (Attribute character、 次 項 参 照 ) 
で 、 フ フィー ルド ・ ス ター ト ・ ビ ッ ト が ON で ある アト リ 
ビュ ー ト 廊 字 に 対応 する 廊 字 (表示 され る ) で 始ま り 、 
その 終り は 次 の フィ ー ル ド の 先頭 の 直前 か その フィ ー 
ルド の 属す る モー ド 画 面 の 終り まで で す . 

プロ グラ ム で フィ ー ル ド が 定義 き 8 きれ て いな いか 、 ま 
だ た は スク ロー ル で フィ ー ル ド の 先頭 を 失 な っ た 残り の 
部 分 (モー ド 別 の 画面 範囲 の 先頭 に フィ ー ル ド の 先頭 
が 無い ) は 、 非 保護 フィ ー ル ド と し て 扱い ます . 
|3|] ア トリ ビュ ー ト 文字 

コン ソー ル の バッ ファ に は 文字 コー ド ・ バ ッ フ ァ と 
アト リ ビ ュ ー ト ・ バ パッ ファ が あり ます 王 文 字 ゴ コー ド ・ 
バッ ファ に は 廊 字 コー ド (JIS 8 単位 ) が あり 、 ア ト 
リ ビ ュ ー ト ・ バ ッ フ ァ に は 該当 する 文字 の 性 格 を 表 わ 
す 情 報 が 書き 込ま れ ま す . この 情報 を アト リ ビ ュ ー ト 

















(b) ペ ー ジ ・ モ ー ド 画面 

ペー ジ ・ モ ー ド 画面 で は 、 そ の 画面 範囲 (最大 2 つ 、 
独立 ) の 最終 文字 位置 に コマ ンド に より 文字 を 表示 し 
た 場合 、 バ ッ フ ァ ・ ア ドレ ス は 先頭 文字 に 移動 し ます . 























文字 と 呼び ます ・. 
アト リピ ビ ュー トト 文字 の 構成 を 示し ます . 
が 人 @ 避 、 衝 SG の 0 9 
2SlsO ICE 文字 表示 色 を 示す 
3 |R *O* 普 、*1" 反転 
4 P *O" 非 保護 、' 1 * 保護 
5 アキ 
6 |M は ー ダ 0 サ プ シ ステ ム 内 で 
され た こと を 示す 設定 され る 
2Z F フィ ー ル ド の 先頭 を 示す 























AB 岡 
回 呈 | 
| クッ 前 明 * 
回 EE3I 回 ME 


回 本 3ME2k 還 











オペ レー タ に より 最終 文字 位置 に 文字 が 挿入 され た 
場合 は 、 画 面 範 囲 の 先頭 か ら 最 初 の 非 保 護 フ ィ ー ル ド 
の 先頭 に バッ ファ ・ ア ドレ ス は 移動 し ます . 


I フ ィ ー ル ド 





アト リピ ビュ ー ト 文字 は コン ソー ル 出 力 廊 字 列 中 の オ 
ー ダ ー ( 副 指 令 ) と し て Sub に 送ら れ 、 ア トリ ビュ ー ト 
・ バ バッファ に 設定 され ます . 


S 己 . コ ン ソ ー ル ・ コ マン ド 


[1IINIT 





O | 2 3 4 56789 AB 


上 1c cdlsulslrelsl 


急 撲 能 : コン ソー ル 機 能 の 初期 化 を し ます 
6C-| に コロ マジ ンド ュ コー ド 01se -①) 

BC | : 背景 色 (0 一 7) 

NC | : 桁 数 (80 ま た は 40) 
NL | : 行 数 (25 ま た は 20) 
SL | : ス クロ ー ル 開始 行 番号 















































253 


10 


NS | : スク ロー ル 行 数 

FD | : ファ ンク ショ ン ・ キ ー 表 示 0 三 非 表 示 キ 0 表示 

EERS| : 初期 設定 後 の 画面 の 消去 0 一 し な い キ 0 する 

GR | : 単色 表示 (グリ ー ン ) 0 しない キキ 0 する 

( 注 ) [Fp]1 の 場合 、 最 終 2 行 は PF 表示 用 と し て 確 
保 さ きれ る の で 、[SL | お よび [Ns | に よる スク ロー ル 
・ ウ ィ ン ド ウ の 指示 は この 部 分 を 含ん で は いけ ま 
せん ・ 

復 帰 情 報 : エ ラー コー ド (エラ ー の 場合 、 RESET 

T 時 の パラ メー タ で 初期 化 ) . 






























































RESET 時 の パラ メー タ 


BC ビビ 0、|NC ビ 80、| NL ビ 25、| SL ビ 0、|NS ビ 25、 
FD 0、|ERS ビ 1、|GR ビビ 0 



























































[2IERASE 





1 2 3 4 











信 機 能 : 画面 お よび コン ソー ル ・ バ ッ フ ァ を 初期 化し 














ます -。 
[| Cc |: コマ ンド ・ コ ー ド 02e (② 
W | : 範囲 0 全 画 面 
1 ズ ク セ ロー ル 
2 ペー ジ 1 


3 ペー ジ 2 
Bc | : 背景 色 0 一 7(W 三 0 有効 ) 
劉 復 帰 情報 : エ ラー コー ド 
[3IPUT 

















OL YS23 き 人 呈 


| lslclnl string 








候 機 能 : 文字 列 を コン ソー ル 画 面 に 表示 し ます . 
S |: 継続 フラ グ ・ ビ ッ ト (MSB) 

G | コマ ン iE る 3 演 宙 当 0316!(3) 

N |: 今 回 出力 の strmg の バイ ト 数 

string| : 出力 文字 列 (オー ダ を 含む ) 
劉 復 帰 情報 






































0 還る 
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El ラー ロード (ラウ ッッ テラ シー) 











出力 文字 列 が 124 バ イト を 越え る 場合 や 、 処 理 上 分 割 
し た い 場 合 は 、S デ * 1 "で コマ ンド を 発信 し ます . 残り 
の 出力 文字 列 は 次 の 形式 で 転送 し ます . 





O) 上 る 3 .:4 


| lslewlnl string 


S'* 0 "まで 連続 し た 廊 字 列 と し て 扱 か われ ます . 
コマ ンド の 使用 例 
人 隊 2 山 ll 


























cecJfwe に 0 


Lls yrr'srsrresim 





この 例 は スク ロー ル 範 囲 で 使用 する 一 般 形 で す . 
< 例 2 >IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 





6 1 2 の 34.05 6] 7?8f SO.『1) る 


L | lsls 隔 xy gelrlelsT 





この 例 は ペー ジ 範 囲 で 使用 する 一 般 形 で す . 






































GEZ に つる 4 


[| lslelNl string 


@ 撲 能 : 文字 列 を コン ソー ル 画 面 に 表示 後 、 オ ペレ ー 
タ か ら 変 更 き れ た フィ ー ル ド の うち で 、 最 上 
段 の フィ ー ル ド を 読み 込み ます . カー ソル の 
表示 位置 は 、 文 字 列 ・ 表 示 後 の バッ ファ ・ ア 
ドレ ス の 位置 で す . 

S′ | : 継続 フラ グ ・ ビ ッ ト (MSB) 

[Cc |: コマ ンド ・ コ ー ド 04ne (4) 

N | : 今回 出力 の strig の バイ ト 数 

string | : 出力 文字 列 ( オ ー ダ を 含む ) 

出力 文字 列 の 継続 法 は [3IPUT コ マン ド と 同じ で す . 

[Ss' |* 0 "の 廊 字 列 の 表示 が 終る と 、 オ ペー レー タ に よ 



























































る Key 入 力 が 可能 に な り ま す . 
劉 復 帰 情報 





OAM 1 2 どき か 35620 BSJ1O「 軸 


| [slelklNey ェ "2 Texr 














・ 継 続 フ ラグ ・ ビ ッ ト (MSB) 
・ 終 了 キ ー コ ー ド (00 : RETURN、01 : CTL-C 
or。CTL-X、02 : CLEAR) 
N |: 今回 転送 分 の 変更 フィ ー ル ド デ ー タ ・ バ イト 
数 
SBA| |z| |z| : 変更 フィ ー ル ド の 先頭 座標 
TEXT|: フィ ー ル ド 中 の 制御 コー ド (00 一 1F、 7F) 
を 除く 文字 列 
( 注 ) 変 更 フ ィ ー ル ド が な い 場 合 、IN 了 に 0 
変更 フィ ー ル ド が 空 文字 列 の 場合 、IN ビ 3 
( |SBA| |x| 2| のみ) 
変更 フィ ー ル ド の 文字 列 長 が 長い 場合 、| S' | 一 *1『 
と し て 分 割 転 送 を 行なう の で 、 メ イン ・ シ ステ ム は 次 
の よう に 残り を 要求 し ます . 











































































































念 復 帰 情 報 








Or 1 ZSGk4 ポ 5 コ .6: 07 


Llslol IN| Texr 











必 下 、 sl 三 ?0! ま で 繰り 返し ます 
SBA| |z| [| が な いこ と に 注意 し て くだ さい . 


IS5IGETC 


























Oo Ii 2 
LT jel Ear 


劉 撲 能 : GET 後 オペ レー タ に よる 修正 され た フィ ー ル 
ド で 未 転送 の フィ ー ル ド を 転送 し ます . 

CI: コマ ンド ・ コ ー ド 05ie (5) 

人 復帰 情報 : [4IGET と 同じ . 



































I6IGET CHARACTER BLOCK1 


,O 





9 1 を 登 益 - 号 々 


LL Tekyioem 








信 撲 能 : 対角線 座標 で 示さ れる 枠 内 の 廊 字 コー ド を 読 
み 取 り ま す . 

C 居 ラマ ギ ジ ド g ら ドー06a6 (6) 

Xi | | Yi | | xs | | Ys | : 対角線 座標 (コン ソー ル ) 

食 復 帰 情報 









































め 。」) 受 本 必 号 を 




















S |: 継続 フラ グ ・ ビ ッ ト (MSB) 
B |: 今回 転送 バイ ト 数 











Cn |: 廊 字 
S' | 王 *1 ? の 場合 は 継続 コマ ンド (100) で 残り の デー タ 
を 要求 する こと (|S|*0 "まで 繰り 返す ) . 
































ABCIDEFGIHIJ 
OPQIRSTUIVWX 
OI2I3456|789 
イロ ハ | ニ ホ ヘ ト | チ リ ヌ 


枠 







*ーーDEFGRSTU3456 ニ ホ ヘ ト 


枠 と 転送 文字 順 





[7IPUT CHARACTER BLOCK 1 





O 1 2 3456@7891IO 


回 EK2KS2EEECOEE 











念 失 能 : 文 角 線 座 標 で 示さ れる 枠 内 に 女 字 を 表示 し ま 
す . 

S' | : 継続 フラ グ ・ ビ ッ ト (MSB) 

LC]: コマ ンド ・ コ ー ド 07ie (7) 

| Yi |-| xz | | Ys | : 対角線 座標 (コン ソー ル ) 

at | : ア トリ ビュ ー ト (( 色 指定 ) 

B |: 今 回 転送 バイ ト 数 

Cn | : 文字 

分 割 転送 の 場合 は [S'| 三 * 1 "に て コマ ンド を 発信 する 

ご 万 .。 
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&O 


久 継 続 デ ー タ 転送 の 形式 





り 7 記 の つう 


[shwlg| Ci C>2 


以下 [Ss|*0 "まで 繰り 返し ます 

枠 と 廊 字 列 順 は 、[6IGET CHARACTER BLOCK 
| 要 EN 
[SIGET CHARACTER BLOCK2 









































1 2 る 2-S4- 5~6 


o 
| | lclxi Yixs Ys 











念 機能 : 対角線 座標 で 示さ れる 枠 内 の アト リ ビ ュ ー ト 
と 廊 字 を 読み 取り ます . 

C |: コマ ンド ・ コ ー ド 08ie (8) 

| | Yi 一 | Xs | Ys |: 対角線 座標 (コン ソー ル ) 

氏 復 帰 情報 








に 
































0 3 PB の 6 / 


| slolglst Cxiatz(G2  ・ で y 














S' |: 継続 フラ グ ・ ビ ッ ト (MSB) 

B |: 今 回 転送 バイ ト 数 

atz |・ ア トリ ビュ ー ト 

Cz | : 文字 

S | 一 * 1 "の 場合 は 継続 コマ ンド (100) で 残り の デー タ 
を 要求 し ます (|[S' | 一 * 0 * ま で 繰り 返す ) . 

枠 と 転送 文字 順 は 、[6IGET CHARACTER BLOC 
K 1 と 同じ で す . 

[SIPUT CHARACTER BLOCK2 

































































O' 1 2 3 5647 8 Si に Lil 用 


sleKY eiklmleereraees 











久 機 能 : 対角線 座標 で 示さ れる 枠 内 に アト リ ビ ュ ー ト 
付 の 文字 を 表示 し ます . 

S' | : 継続 フラ グ ・ ビ ッ ト (MSB) 

: コ マン ド ・ コ ー ド 09ie (9) 

Xi | | Yi |-| xs | | Ys | : 対角線 座標 (コン ソー ル ) 

B | : 今回 転送 バイ ト 数 

atz|: アトリビュート 
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[cz] : 廊 字 

分 割 転送 の 場合 は 、[S' | 一 * 1 "に て コマ ンド を 発信 し 
ます . 

@ 符 続 デー タ 転 送 の 形式 

















O | 2 3 4 5 ら 6 


| 15 emlB] 慈 続 デー タ 




















( 注 ) 継 続 デ ー タ は 前 転送 が [at | 、[cC」] の いずれ で 終了 し 
た か に より 、[at |]、[C」 の いずれ か で 始ま る ・ 
以下 、 [5] 一 * 0 "まで 繰り 返す . 
梓 と 廊 字 順 は 、ISIGET CHARACTER BLOCK 1 
ど 同 で 


IOIGET Buffen Address 


















































Or まる 
LT le] 


@ 機 能 : 現在 の バッ ファ ・ ボ イン タ の 示し て いる アド 
レス を 読み 取り ます . 

Cl: コマ ンド ・ コ ー ド 0Aie (1⑪0 

人 復帰 情報 























Oc の まつ の 


IX、 [| : バッ ファ ・ ア ドレ ス 


[illITAB SET 














O6 1 2 3 4 5.6@.7.8.9 1Olil。I2 


LLTeL _ sm | 











念 機能 : タブ 位置 を 設定 し ます . 

cl: コマ ンド ・ コ ー ド 0Bie ⑪ 

「TAB 仁 置 | : 10 バ イト (80bit) を 画面 の 1 行 分 の イメ 
ー ジ と し 、ON の 位置 を TAB 停止 位置 と 
する . 先頭 バイ ト の MSB を コン ソー ル 座 
標 X の 0、 最 終 バ イト の LSB を コン ソー ル 
座標 X の 79 と 考え ます . 

人 @ 復 帰 情 報 : な し 

I2ICONSOLE CONTROL 


























0 1 名 人 


届 還 固 較 











劉 撲 能 : 種々 の コン ソー ル 機 能 を 選択 する . 
CE コマ シド ミード"-0Gie や 2 
CF] : 制御 フラ グ 


























7 いら FES、 30。3 2 1s 6 


MSB LSB 






カー ソル 表示 
"1 する "0 じ な いび 


る 0 必 が い 
ペー ジ ・ ウ ェ イ ト 
2 こす る に "04 の ほな いび 
プッ ト ・ ウ ェ イ ト 
SO の る 0753 じ が な い 

オー ト LF 
OS まる 10 比 が か がい ゆ 























RESET 時 23e 
久 復 帰 情報 : な し 
II3IERASE 2 





OZ2 療 SR 人 4 電 選 


| | lclwleccl 











錯 撲 能 : 画面 お よび コン ソー ル ・ バ バッファ を 初期 化し 




















ま :9s 
GE コマ シド ュ コ ーー。0D5e、 3 
W | : 範囲 0 全 画 面 
1 スク ロー ル 
2 ペー ジ 1 
3 ペー ジ 2 





Bc | : 背景 色 0 一 7 (W 一 0 の と きのみ 有効 ) 
FC | : 文字 色 0 一 15 


4ICHARACTER LINE 























O 1| 2 3 4 567891IOIMIl2I3 


Ll lcleuewl lx ly lxzl yl 

















人 機種 : [Xi|・[Yil か ら [Xz|・[Ya] まで 廊 字 で 直線 を 引く 
か 、 ま だ た は 四角 を 描き ます . 


で. に. コマ ンド ・ コ ロード 
































』O 





CL |・ カ ラー コー ド 

ICHR| : 文字 コー ド 

X: |、| Yi | : コン ソー ル 座 標 1 

Xz |、| Ys | : コン ソー ル 座 標 2 

LB |]: ボッ クス ・ フ ラグ (0 : 直 線 1: 枠 2: 
四角 形 塗 り ) 

劉 復 帰 情報 : な し 

( 注 ) 座 標 は コン ソー ル で す が 、 コ ン ソ ー ル ・ バ ベッ ファ 

は 変化 し ませ ん ・- 


S 3. オ ー ダ 


オー ダ と は 、 コ ン ソ ー ル 出力 の デー タ 列 中 で 書き 込 
み ア ドレ ス を 指定 し た り 、 フ ィ ー ル ド を 定義 し た りす 
る た め の 副 指令 で す . 

オー ダ は 、00ie 一 1Fie、7Fie の 範囲 の コー ド で す が 、 
次 項 以 下 に 記述 の な いも の は 何 も 動 作 し ませ ん (No 
operation Order) . また 、 コ ン ソ ー ル 動作 制御 で オー 
ダ 動 作 を し な いよ う 指 示さ れ て いる 場合 は 、 す べ て の 
値 (00e 一 FEFie) が デー タ と し て 扱わ れ て 表示 され ま 
す 


1 。 オ ー ダ の 男 園 



































Start Field 
(SF ) 


Set Buffer Address 
( SBA ) 


Repeat Character 
(RC) 


Erose Line 
(EL) 














Bell 
(BEL ) 


Back Space 
(BS ) 


Horizontal Tab 
(HT ) 


Line Feed 
(LF ) 














HOME 








Erase All 
( 


EA ) 


Carriage Return 
(CR ) 


己 。 デ ダ の 洋二 名 簡 傘 
[11SF ビ オーダ 

SF オー ダ は 2 バイ ト か ら な る オー ダ ・ シ ー ケ ンス で 、 
バッ ファ 中 に フィ ー ル ド を 定義 むる だ ため に 使い ます 
SF 文字 に 続く 1 バイ ト は アト リピ ビュート 文字 と し て ア 
トリ ビュ ー ト ・ バ ッ フ ァ の 現在 の バッ ファ ・ ア ドレ ス 
か ら 、 こ の と き 形 成 き れる フィ ー ル ド の 終り まで の 間 
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510 


の すべ て に 設定 され ます . この オー ダ 自 身 で バッ ファ ・ 


アド レス は 変化 し ませ ん . 
く 例 IIIIIIIIIIIIIIIIIIIIIIIIIIIII 則 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 





現在 の バッ ファ ・ ア ドレ ス 
フィ ー ル ド の 先頭 
SN 


の 9 
lalglclplelrlelHlilulkllwlNlolPlIRls] 


出力 








sF| |at| | ィ l ロ | へ ハ に |*|^| ト | テ 









































IAlg] イ | ハハ に |*|^ 人 | チ |klLIMlNlolPlGIR]s| 
トニ ーー アト リ ビ ピュ ー ト 訪 字 ah 一 一 4 











この 例 で は 出力 文字 列 に よっ て フィ ー ル ド 範 囲 を 変 
えて いま す . 同国 ま で atnt の アト リ ビ ュ ー ト と な り ま 
す が 、|KILIMINI の 表示 色 は 以前 の まま で す . 

ai の 設定 は 次 の 段階 を 経て いま す . 
































〈①SF オ ー ダ に よる 





IAlglclplElFlelnl ilJlklIMINlolPlGIRlSI 
トーーーー ath ーー 











⑨ 一 連 の 文字 列 が ① の 範囲 を 越え た 





IAlgl ィ la し |*| に FlkILIwINlolPlalRls] 





トー ath 』 














※・『 一 連 の 文字 列 』 と は 、SF オ ー ダ に 続く 文字 デー 
タ 、 BEE オー グ 、。BS オ ー ダ 、HE オ ー ジ SS 人 RC オー ダ 
の 並び の こと で す . 


[2ISBA オ ー ダ 

SBA オ ー ダ は 、 3 バイ ト か ら な る オー ダ ・ シ ー ケ ン 
ス で 、 一 般 デ ー タ の 書き 込み 、 特 定 の オー ダ の 動作 に 
先立っ て バッ ファ ・ ア ドレ ス を 確定 する た め に 使い ま 
す . 

バッ ファ ・ ア ドレ ス は 、 横 軸 (X、0 一 79)*、 縮 軸 
(Y、0 一 24)* ま で 構成 され ます . 

* XX 値 の 上 限 は 、39、79 の 2 種類 

**※ Y 値 の 上 限 は 、19、24 の 2 種類 


[3IRC オ ー ダ 

3 バイ ト か ら な る オー ダ ・ シ ー ケ ンス で 、 現 在 の バ 
ッ フ ァ ・ ア ドレ ス よ り 指 定 個数 分 指定 文字 を 表示 し ま 
9 
[4EL オ ー ダ 

現在 の バッ ファ ・ ア ドレ ス か ら そ の フィ ー ル ド の 終 
り ま で を Naull で 埋め ます . バッ ファ ・ ア ドレ ス は 変化 
し ませ ぜん 
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I5IBEL オ ー ダ 

べ ベル を 鳴ら し ます . 
[6IBS オ ー ダ 

現在 の バッ ファ ・ ア ドレ ス が フィ ー ル ド の 先頭 で な 
いな ら バ パ バッファ ・ ア ドレ ス を 1 つ 前 に 戻し ます . 
ZIHT オ ニダ 

コン ソー ル 動 作 制 御 が タブ ON な ら ば 、 湊 の タブ 停止 
位置 まで バッ ファ ・ ア ドレ ス を 移動 きせ 、 移 動 し た 範 
囲 を SPACE に し ます . 


IIlLF オ ー ダ 


バッ ファ ・ ア ドレ ス を 同一 座標 で Y に 1 つ 進 め ま 











あわ % 
|I9IHOME オ ー ダ 

バッ ファ ・ ア ドレ ス を 現在 の モー ド 画 面 の 先頭 へ 移 
動 し ます . 
IOEA オ ー ダ 

現在 の モー ド 画 面 を すべ て Null に し て 、 バ ッ フ ァ ・ ア 
ドレ ス を その 先頭 へ 移動 し ます . 
Ii1ICR オ ー ダ 

バッ ファ ・ ア ドレ ス を 現在 の 行 の 先頭 へ 移動 し ます 
また 、 コ ン ソ ー ル 制御 で オー ト LF が 選択 され て いる 場 
合 は 、[8lLF オ ー ダ の 動作 も 行ない ます . 


$S4. オ ペレ ー タ 制御 機能 


] 全局 T ヨ マ ジ 民 
[1] カ ー ソ ル 移 動 




















(ag) 











これ ら の キー は 、 カ ー ソ ル を 行 ま た は 、 文 字 単 位 で 
指定 され た 方 向 へ 移動 きせ ます . いずれ の キー も 同一 
行 ま た は 同一 桁 で ラッ プ し ます . 















































コン トロ ー ル ・ シ フト に よる 同一 機能 キー 


回 能 拉 還 Mi 
I I 
HMD 

















これ ら の キー は カー ソル を 英 数 文字 列 の 先頭 へ 移動 
させ る も の で す . これ ら の キー は 画面 の 先頭 と 終端 で 
ラッ プ し ま 替 。 





















































衝 纏 前川 
WO03 
EEETWTSSIWU 選 下 【BS で 区 上 に アフ タゴ MI 1 
| 5HiT 
FUJITSU [| TD。 TEL フフ フー11ITI 
| smm HH- ト | sm | 
FUJITSU LTD. TELI77 フ 7ーIIIiI 
1 間 員 同 
FUJITSU LTD. [TEL 7 フフ ーIIII 
コン トロ ー ル ・ シ フト に よる 同一 機能 キー 
| sam H-|- 
合間 
(c) 
| 5HW | shmm | 








&O 


これ ら の キー は カー ソル を フィ ー ル ド の 先頭 に 移動 
させ る も の で 、[smmFTHT 人 1] は 、 前 方 へ [sHmFT は 、 
後方 へ それ ぞ れ 移動 し ます . これ ら の キー は 画面 の 先 
頭 と 終端 で ラッ プ し ます . 









































隊 コ ント ロー ル ・ シ フト に よる 同一 機能 キー 


Lwm 直上 [ 吾 


I 








この キー は カー ソル を 画面 の 先頭 に 移動 する も の で 


す . 
2) 編集 キー 


(a) 


固 (INSERT MODE) 


この キー の 押下 に より 、 キ ー ボ ー ド は 挿入 モー ド に 
設定 され 、 キ ー ボ ー ド 上 の INSERT MODE イン ジ ケ 
ー タ が 点灯 (表示 ON の と き ) し 、 文 字 の 挿入 動作 が 可 
E に な り . ま す 。 
挿入 動作 は カー ソル 位置 に よっ て 以下 の よう に 行 な 
あれ ます 。 
① カ ー ソ ル の 示す アド レス の 内 容 が Null で ある 場合 、 デ 
ー タ ・ キ ー を 打鍵 する と カー ソル の 位置 に その 文字 が 
が 入り ます . 

(カー ソル の 示す アド レス の 内 容 は Null で は あり ませ ん 
が 、 み カー ソル の 示す アド レス 以降 その フィ ー ル ド の 
終り まで に Nall が 存在 する 場合 、 デ ー タ ・ キ ー を 打鍵 
する と カー ソル 位置 に その 内 容 が 入り 、 直 前 に カー 
ソル 位置 に あっ た 文字 、 お よび 同一 フィ ー ル ド 内 の 
それ 以降 の 廊 字 は 1 婦 字 分 右 へ シフ ト し ます . た だ 
し 、Nul お よび それ 以降 の 文字 は シフ ト す る こと は あ 
り ま せん . 

カー ソル 以降 その フィ ー ル ド の 終り まで Nall が 存在 
し な い 場 合 、 挿 入 動作 は 行なわ れ ま せん ・ 
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10 


く 例 肝 誕 IIUUUIUIIIUUIUIUUUUIUIUUUUUUUUUUU 





カーン ソル の 位置 が Null の 場合 


人 回 回 回 回 選 剛 
の 
イ 
I 
レ 














jam 
SN カー ソル 
R [Cl と 打鍵 
の 
先 
頭 
〈 例 2 IIIHIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIUIIIIIIIIIIIIIIIIIIIIIIIIII ブ IIIIIIIIIII 





y フィ ー ル ド の 終り が Null の 場合 


人 回 回 問 還 国人 還 回 
フ 
イ 
I 
レ 
































< 例 3 IIIIIHIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIIIIIIIIIIIIIII ブ IIIIIIIIIIIIIIIIIIIII 
y カー ソル 以降 フィ ー ル ド の 終り まで に 
Null が 存在 する 場合 
人 回 回 回 印 回 団 回 話 
アン ーー | 
1 く カー ソル 
レ 








Null 以 降 の 文字 は シフ ト し な 
いこ と に 注意 
INSERT MODE の 解除 は | INS | を も うぅ 一 度 押す こと で 行 
な いま す . 




















隊 コン トロ ー ル ・ シ フト に よる 同一 機能 キー 


回 - し mm 昌紀 








この キー を 押す と 、 カ ー ソ ル 位 置 に あっ た 文字 は 前 
除き れ 、 カ ー ソ ル 以 降 Null の 直前 か 、 ま た は フィ ー ル ド 
の 最後 まで の 文字 は 1 廊 字 分 左 ヘ シフ ト し 、 そ の 後に 
Nall が 挿入 され ます . 
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この キー は 、 カ ー ソ ル 位 置 が フィ ー ル ド の 先頭 で な 
いな ら ば 、 カ ー ソ ル を 1 一 左 に 移動 し 、[pEL| と 同じ 動 
催 を まず 。 


























コン トロ ー ル ・ シ フト に よる 同一 機能 キー 








民 


この キー は 、 カ ー ソ ル 以 降 フ ィ ー ル ド の 終り まで を 
Null に し ます . 














隊 コン トロ ー ル ・ シ フト に よる 同一 機能 キー 


軸 n akt」 








この キー は タブ 動作 が 選択 きれ て いれ ば 、 カ ー ソ ル 
を 右 方 向 に 次 の タブ 停止 位置 まで 移動 きせ ます . また 、 
移動 し た 範 較 は スペ ー ス に な り ま す . 














コン トロ ー ル ・ シ フト に よる 同一 機能 キー 








この キー は 、 カ ー ソ ル が 画面 の 最上 段 で な けれ ば 、 
同じ 桁 で 1 つ 上 の 行 の 文字 を 右 方 向 に タブ 停止 位置 まで 
複写 し ます . 














コン トロ ー ル ・ シ フト に よる 同一 機能 キー 











3] 終端 キー 











この キー は 、 入 力 を 終結 する の に 使い ます . 通常 は 
正常 終了 を 意味 し ます . 





コン トロ ー ル ・ シ フト に よる 同一 機能 キー 








(b) 


この キー は 、 入 力 を 終結 する の に 使い ます . 通常 は 
取り 消し を 意味 し ます . 


(c) 


この キー は 、 現 在 の 入力 画面 範囲 を 消去 する の に 使 
いま す が 、 プ ログ ラム に 消去 を 通知 する た め に 入力 を 
終結 し ます . 通常 は プロ グラ ム で 再び 入力 状態 に され 


ます . 
己 。 選 UT 避 マジ 悦 
[il 表示 停止 


回 


この キー が 入力 され る と 現在 依頼 きれ て いる 文字 列 
表示 後 、 新 た に キー 入力 され る まで PUT コ マン ド の 状 
問 で 待ち ます . 

停止 状態 を 解除 する に は 、STOP お よび PF を 除く い 
ずれ の キー で あっ て も か まい ませ ん . 

( 注 ) コ ン ソ ー ル 制御 で プッ ト ・ ウ ェ イ ト が 選択 され て い 
な い 場 合 は 、 上 記 動 作 は 行ない ませ ん . 
[2| ペ ー ジ ・ リ ミッ ト 

ペー ジ ・ モ ー ド 画面 に 表示 中 に 、 画 面 の 最終 文字 位 
置 に 廊 字 を 表示 する か 、 ま た は 、 最 終 行 表示 中 に LF 
オー ダ を 受け 付け た 場合 、 ベ ル が 鳴り 、 表 示 動 作 は 停 
IiE じ ます すぐ 。 

停止 状態 を 解除 する に は STOP お よび PE を 除く い ず 
れ か の キー を 入力 し ます . 

( 注 ) コ ン ソ ー ル 制御 で ペー ジ ・ ウ ェ イ ト が 選択 され て 
いな い 場 合 は 、 上 記 動 作 は 行ない ませ ん . 
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欠 3③ 導 ククル 


S 1. 吾 示 


グラ フィ ッ ク 画 面 は 、R、G、B そ れ ぞ れ 独 立 な V- RA 
M 上 の ビッ ト の ON/OFF の 合成 で 作ら れ ま す . 

グラ フィ ッ ク 画 面 は 、 横 640 ド ッ ト 、 縦 200 ド ッ ト の 
大 き さ で す . グラ ィ ッ ク 画 面 の アド レス (座標 は ) 横 
(X) 2 バイ ト 、 縦 (Y) 2 バイ ト で 構成 され ます . 

み カジ ラー ラー ド 、 フ ァ ジ クジ ョ ンジ コード お よ が み アグ 
ーー 論理 演算 の カラ ー コ ー ド を 示し ます . 

カラ ー コ ー ド 表 









































PSET 指定 色 の ドッ ト を 表示 . 
PRESET ドッ ト を 背景 色 に する ・ 

OR 出力 色 と 画面 色 の OR を と る . 
AND 出力 色 と 画面 の AND を と る . 
XOR 出力 色 と 画面 色 の XOR を と る . 
出力 ビッ ト ・ バ パタ ー ン を NOT す る . 























尊 


O 
O 
O 





滅 
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AND 演 算 カ ラー コー ド 表 










































































S 己 . グ ラフ ィ ッ ク ・ コ マン ド 


[1ILINE 





OO lm の 3s4s5 皮 6 7 8。9.1O 11 1 る 














念 検 能 : X ュ ・Yi か ら Xz・Ys2 ま で 直線 を 引く か 、 ま だ た は 
四角 を 描き ます . 

Cs コマ ンド ・ コ ー ド 15je。 9 

GE カゼ セー コー ドド 

F |: ファ ンク ショ ン ・ コ ー ド (NOT を 除く ) 

Xi |。 | Yil: 座標 1 2Bytes 2 進 

Xsz | | Ys |: 座 標 2 2Bytes 2 進 

Bl: ボッ クス ・ フ ラグ (0 : 直線 _ 1: 四角形 
2 : 四角 に 塗る ) 

信 復 帰 情報 : な し 

|2ICHAIN 





















































9 4 人 受 、 うい くん 5 6 7 8 9 1 の 0W1 1 妥 1S 


LL dglslx 'Y 
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急 機 能 : 指定 座標 問 を 直線 で 結び ます . 

C |: コ マン ド ・ コ ー ド 16ie 6@2 

G み ラー ラー ド 

F |: ファンク ショ ン ・ コ ー ド (NOT を 除く ) 
N | : 座標 点数 (最大 30) 

X。 | | Y。 | : 座標 

候 復 帰 情報 : な し 

[3IPOINT 















































1 ャ る ご ーー ちら ー ら ー ダ ( 9ml⑨ 


男 還 550E 














候 撲 能 : z 個 の 点 を 表示 し ます . 

で] コマ ジ シド ュ コード 。 1736。@8 

N | : 表示 点数 (最大 20 個 ) 

X/ | | Y/| : 点 座標 

CcLl: カラ ー コ ー ド 

F ヵ |: ファンク ショ ン ・ コ ー ド (NOT を 除く ) 
人 復帰 情報 : な し 

|4IPAINT 















































O。 Il 2 3 ョ 4 5 6 758。 8.41⑨、! 














信 拉 能 : 初期 座標 の 位置 か ら 指定 され た 境界 色 の 内 部 
を 、 指 定 色 で 塗り ます . 

C |: コマ ンド ・ コ ー ド 18ie 0⑳9 

, | Y |: 初期 座標 

Pc | : ペイ ント ・ カ ラー コー ド 

Nc | : 境界 色 の 数 max8 

Bcz| : 境界 色 

候 復 帰 情報 : な し 

( 注 ) ペ イン ト ・ カ ラー お よび 画面 の 端 は 、 境 界 色 と み 
0 し 3 ま 95 


[5ISYMBOL 















































GO 2 8』2 らら 7K8B SUIOYNI 


LT lckdrlklylmlx ry 


I2 13 14 15 16 





string 








@ 機 能 : 文字 列 を 指定 座標 より 指定 角度 、 大 き さ で 表 
示し ます . この 場合 娘 字 を 構成 する ドッ ト 以 
外 は 変化 し ませ ん . 

C | コマ ンド ・ コ ー ド 19ie 95 

















GO 加 に の シャー ラー ィ ー 

に SE ジジ クー シン ョ ニン ント ー、 ド 

: が 4 クル コー に 0、- 工 2、 83K(90: が だ つ ) 
・ 文 字 横幅 倍率 (1 で 8 ドット) 

H | : 文字 高き 倍率 (1 で 8 ドッ ト ) 

Xi | | Yil: 座標 

N | : 文字 数 (最大 80) 

String| : JIS コ ー ド 文字 列 














ア 


















































較 座 標 指示 ドッ ト 
=| 』 上 の 


アン グル O 1 ら 








人 復帰 情報 : な し 
I6ICHANGE COLOR 





の 、 1 の 9 6 7k80 9016 


韻 較 回 


1112131415 











久 撲 能 : 対角線 で 示さ れる 枠 内 の 色 を 変え ます . 
C |: コマ ンド ・ コ ー ド 14ie 96 

Xi | | Yi | 一 | xs | | Ys | 三 対角線 座標 

N | : 変更 数 (最大 8 ) 

|cL 引 : 旧 カ ラー コー ド 

cs0 以 ラッ ニニ コッ ニ ド 

劉 復 帰 情報 : な し 

|7IGET BLOCK 1 
























































0 | る 状 5 677 GS VO 


LTLIeLs rw ry 





,O 





O 1 2 3456 ロ 


| lslelg] Pattern 














S' | : デー タ 継 続 フ ラグ ・ ビ ッ ト (MSB) 
B | : 今回 転送 パタ ー ン ・ バ イト 数 
[Pattern |: 画面 デー タ 
作 引 前川 軸 和田 四 
































SYS の さ 


指定 色 x : 不定 
賠 











| s' |=* 1 "の 場合 、 本 体側 は 、 次 の よう に 残り の デー タ 
を 要求 し ます . 





Oi 1 る 
Ll lmw 








コマ ンド ・ コ ー ド 100 は 、 前 コマ ンド 処理 継続 を 示し 
まさ 9 。 
人 次 の 復帰 情報 





6 1 全う 


[olslolg| Pattern 


以下 、[ Ss | 一 *0*" と な る まで 繰り 返し ます . 
[SIPUT BLOCK 1 

















劉 撲 能 : 対角線 で 示さ れる 枠 内 の 指定 され た 色 を 『1* 
その 他 を "0 "と し て 画面 を 読み 取り ます . 

C |: コ マン ド ・ コ ー ド 1Bie 67 

Xi | | Yi -| xs | | Ys | : 対角線 座標 

N | : 指定 色 数 (1 一 8) 

CL: カ ラー コー ド 


借 復 帰 情報 


















































と 1 号 全 、 ゼ 8 SIO.) 


還 配 基 但 拓 ロ 


I31415I6I71I8 


lg Pattern 











久 機 能 : 対角線 で 示す 枠 内 に 指定 色 で パタ ー ン を 表示 
し まま 、 

S' |: 処理 継続 フラ グ ・ ビ ッ ト (MSB) 

[Cc ]: コマ ンド ・ コ ー ド 1Cie 6@8 

[Yi |-[ xs | [Ys ] : 対角線 座標 

LcL]: カラ ー コ ー ド 
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10 


EE 清 ア ァ ジ クン ジョ / ツ ・ コ ー ド 

B | : バイ ト 数 (N 寺 Pattern で 今回 転送 分 ) 
Pattern|: ド ッ ト ・ パ ター ン 

| 一"*1'? で コマ ンド を 発し た 場合 、 サ ブ 側 は 前 コマ 
ンド 処理 の 継続 状態 で 待ち ます . 

本 体側 は 次 の よう に 残り の デー タ を 渡し ます . 









































1 2 3 4 5 


O 
[| lslhlg| Pattern 














以下 、 |S| 王 *0 "と な る まで 繰り 返し ます . 

Pattern デ ー タ 中 の 1"? の ビッ ト に 対し 、F、 CL で 指 
示さ れる 動作 を 行ない 、『0 "の ビッ ト に 対し て は 何 も 行 
な いま せん . た だ し 、F が NOT(5) で ある 場合 は 、 逆 に 
な り ま す . 











ファ ンク ショ ン ・ コ ー ド | 
PSET 指定 色 ド ッ ト を 表示 
PRESET 背景 色 ド ッ ト を 表示 








OR 指定 色 と 画 面 を OR 





AND 指定 色 と 画 面 を AND 
EOR 指定 色 と 画面 を EOR 
NOT Pattern を NOT し 、PSET 処 理 


I9IGET BLOCK 2 











OL 3 4 86 70.8eSUOJLI.2 


Llslclx 'w xr'Y rl 


I3141516 


lg| Pattern 

















On 1 2 うつ c4 5.6 プア 8 9.10 


LLIeLs im rw 








劉 機 能 : 対角線 で 示さ れる 枠 内 の 3 原色 の 画面 デー タ 
読み 取り ます . 

GC 1: コマ ンド ・ コ ー ド 1Die 9 

Xi | | Yi |-| xs | | Ys | : 対角線 座標 

劉 復 帰 情報 











S 























の 6 1 人 3 4 与 台 


| lslolg Pattern 











S | : デー タ 継 続 フ ラグ ・ ビ ッ ト (MSB) 
[| ] : 今回 転送 パタ ー ン ・ バ イト 数 
[Pattern | : 画面 デー タ 

[_s]= "1* の 場合 の 処理 は 、[GET BLOCK 1 と 同 
し で 、 青 、 赤 、 緑 の 順 で す . 


[IOIPUT BLOCK 2 
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借 機 能 : 対角線 で 示す 枠 内 に GET BLOCK2 で 読ん だ 
デー タ を 表示 し ます . 

S' | : 継続 フラ グ (MSB 王 "15) 

C.13 ヨ マンド ・ コ ー ド TEis 60 

Xi | | Yi |-[ xs | | Yz ] : 対 角 座 標 

DM|: アキ 

F |: ファ ンク ショ ン ・ コ ー ド (PRESET(1) を 除く ) 

B | : 今回 転送 分 バイ ト 数 

Pattern | : 出力 画面 デー タ 

S | 一 *1! の 処理 は 、[8IPUT BLOCK 1 と 同じ . 


IIGRAPHIC CURSOR 




























































































の 1 3 5 6 - ア 。 ね 
LllcledwlxlY 


念 失 能 : オペ レー タ の 指示 し た 座標 を 読み 取り ます . 
Cc |: コマ ンド k コ 出 Al 61 

| cL | : カー ソル の 表示 色 

N | : 要求 座標 数 (1 一 10) 

X | [ Y |: 初期 座標 

人 復帰 情報 

Gi の 972KP5CG6 


LLIeLx riY 上 Te Tw | 


S . オ ペレ ー タ 制御 機能 
1 。 ダ マダラ ヲイ ッッ 字 ツジ 尿 
[1] カー ソル 移動 キー 

(a) 


これ ら の キー は 、 グ ラフ ィ ッ ク ・ カ ー ソ ル を 1 ステ 
ッ プ (1 一 10 ド ッ ト ) 指定 され た 方 向 に 移動 きせ る も 


の で 。 
(b) 


Lmm Ht| | mmm HI 
Lim HI 9 ! 


これ ら の キー は 、 グ ラフ ィ ッ ク ・ カ ー ソ ル を 指定 方 










































































向 に 20 ド ッ ト 単 位 に 移動 きせ る も の で す . 





| 5 | 旨 符 * つ ) 


これ ら の キー は 、 カ ー ソ ル 1 ステ ッ プ 移動 の ドッ ト 
数 を 設定 し ます . 1 一 9 は 、 そ の 数 で 0 は 10 を 移動 ド 


ッ ト 数 に し ます . 
初期 値 は 1 で す . 


| 
L mmmw | 


座標 の 読み 取り を 行ない ます . 指示 数 の 座標 が 読み 
取ら れ た だ たら 、 コ マン ド を 終了 し ます . 


張 人 4 革 キ ー ボ ー ド 


STOP キ ー を 除く キー は 、 す べ て サブ シス テム で 読 
み 取 られ ます . 

PF キー を 除く キー( す べ て の SHIFT モ ー ド ) は 8 ビッ ト の 
キー コー ド で 表わさ きれ ま す キー コー ド に つい て は 、 
ハー ドウ ェ ア の 解説 書 を 参照 し て くだ さい . ここ で は 
PE キー の 扱い に つい て 説明 し ます . 
PF(Programable Function) 
KEY 

サ プ シ ステ ム は 、10 個 の PF を 持ち 、1 一 10 の 番号 で 
識別 し ます . PF は 、 個 々 に 次 の 2 つの 機能 の うち 、 い 
ずれ か 一 方 を 選択 で きま す . 

(8) 壇 字 列 の 生成 

PF キー を 押す こと に より 、 複 数 の デー タ ・ キ ー が 連続 
し て 押さ れ た の と 同等 の 機能 を 持ち ます . 

(b) 割 り 込 み の 発生 

PF キー を 押す こと に より 、 メ イン ・ シ ステ ム に PF 割 
り 込 み を 起こ す . また 、 こ の 場合 COMMUNICATION 
BUFFER 中 の STATUS バ イト の 0 一 3 ビット に PEF 番 
号 が 置か れ ま す . 


S 1 . キ ー ボ ー ド ・ コ マン ド 


[1IINKEY 


























D.1 る 3 


LT lelg 


念 擬 能 : キー コー ド を 読み 取り ます . 











&O 





C |: コマ ンド ・ コ ー ド 29ie 
CF | : 制御 フラ グ 




















7 e 543z2 io 
MsB |o o o o ol il|i|i| Lsg 
Wait 

RESET | 

RESET 2 











RESET 1 、2 の いずれ か が ON の 場合 Read 動 作 に 先 
だ っ て 次 の こと が 行なわ れ ま す . 
RESET1 一 * 1 ? : KEY レジ スタ を 何 も 入 力 さ れ て い 
な い 状 態 に し ます . 
RESET2 王 "1" : KEY レジ スタ の 内 容 が PF 生成 コ 
ー ド で な いな ら ば RESET1 一 * 1 
の 動作 を し ます . 
同時 に ON な ら RESET1 一 * 1 ? の 動作 を 取り ます 
Wait 王 *1? の と き は 、 キ ー の 入力 を 待ち ます . 
食 復 帰 情報 





O 1 23 4 























ce ーー ド 
EN | : 入力 の 有無 0: 無 


1 : 有 
I2IDEFINE STRING OF PF 





O 1 2 3 4 .56 7 


[TcfkikL ss 


劉 撲 能 : ファ ンク ショ ン ・ キ ー に 文字 列 を 定義 し ます . 
| Cc |: コマ ンド ・ コ ー ド 2Aie 
LN |: ファ ンク ショ ン ・ キ ー 番 号 1 一 10 

N |: 文 字数 0 一 15 

string | : 文字 列 

劉 復 帰 情報 : な し 

[3IGET STRING OF PF 


o Ii 2 3 
LT lee 


劉 撲 能 : PF に 定義 され て いる 文字 列 を 読み 取り ます . 
C |: コマ ンド ・ コ ー ド 2Bie 
No. | : PF 番号 (1 一 10) 
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(o) 二 | 還 記 2 匠 <) 

lo| lolwslN| string 
No |: PE 番号 
N |: 文字 数 (0 一 15) 
string | : 文字 列 











[4IINTERRUPT CONTROL 





Oi そう 人 











念 機 能 : PF 割り 込み の 選択 を 行ない ます . 
C |: コ マン ド ・ コ ー ド 2Cie 6⑭ 
Ic | : 割り 込み 制御 *1! で 割り 込み 























6.5,4.3.2 1 0.7 6 5 4.3 2 」。.9⑨ 
MSB LSB 


1098765432 ろ 1 で PF 番号 








RESET 時 0000is 
候 復 帰 情 報 : な し 


電 ら 詞 タイ マ 


タイ マ は 、 次 の 5 つの レジ スタ で 構成 され ます . 
①TC 制 御 レ ジス タ 1 バイ ト 


数 値 の 形式 は 、T 1 と 同じ 
(《④T2 20ms デ クリ メン ト ・ カ ウン タ 4 バイト 
⑤T2-D 再 設定 値 レ ジス タ 4 バイ ト 

羽 羽 選 

タイ マー 動作 を 機能 別に 説明 し ます . 
① 時 計 

T エ 1 は 、20ms に 1 回 カウ ント ・ ア ッ プ し 、 自 動 的 に 秒 、 
分 、 時 の 桁 上 り を 行ない ます . 
② タ イマ 割り 込み 

T1 が 、 カ ウン ト ・ ア デップ され だ とき に 、TC の Bit 0 
が * 1 "で ある な ら ば 、T1 と T1- 1 の 値 を 比較 し 等 し け 
れ ば ま タ イマ 割り 込み フラ グ を 設定 し 、 割 り 込 み を か 
け ま す . 
⑧ カ ウン タ 

T2 は 、20ms に 1 回 カウ ント ・ ダ ウン し 、 結 果 が 0 で 
あれ ば T2-D の 値 を T2 に ロー ド し ます (RESTORE) . 
(〈④ イ ンタ ー バ ル ・ タ イマ 割り 込み 

RESTORE を 行なっ た と き に TC の Bit1 が '1' で ある な 
ら ば 、 ま イン ター バル ・ タ イマ 割り 込み フラ グ を 設定 
し 、 割 り 込 み を か け ま す . 

この 後 、TC の Bit2 が * 1" なら ば 、TC の Bit 1 を *0" 
に し ます 。 こ の こと は 2 つの モー ド を 作る こと に な り 
ます 








TC Bit2 一 *OY -@ * 6 4 





Tc git2 一 "|" る 


time 








FT2--Tz-p--T2-p--T2-p- ゴ | 
*COMMUNICATION BUFFER 参 照 eE 割り 込み 














プ 5-ー5 - 和 4-3 こ る --|- 〇 
MSB LSB 


タイ マ 割 り 込 み イ ネー ブル 
*1? イ ネー ブル 

イン ター バル タイ マ 割 り 込み イネ ー プ ブル 
*1" イ ネー ブル 

イン ター バル ・ ワ ン シ ョ ッ ト 
*'1 "ワン ショ ッ ト 

O 時 割り 込み イネ ー プ ブル 
*1*) イネ ー プ ブル 








⑤ 0 時 割り 込み 
T エ 1 が カウ ント ・ ア ッ プ され た とき に 、T 1 の すべ て 
の 桁 が 0 で 、TC の Bit 3 が "1'" なら ば 、 0 時 刻 割 り 込 
み フ ラグ を 設定 し 、 割 り 込 み を か け ま す . 
血 Ka 和 Q 


多 イ ママ ジ 全 
[1ISET TIMER 








RESET 時 00ie 
②T 1 24 時 時 計 4 バイ ト 





O 時 O 一 23 
I 分 O 一 59 
と 秒 Oー 59 
に 】 20ms の O 一 49 





OS: る 2 こ 3。2..5、 6。7。 8 SalOi 12 
LTLTelesfig Ti_ ] rirni 


I31415I161I7181920 














⑧T 1 -| 割り 込み 予約 時 刻 
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@ 撲 能 : タイ マ の レジ スタ に 値 を 設定 し ます . 
GIIK に コマ ド ゃ ふ ラー ドド 。8Dies*61 
RS | : 設定 する レジ スタ の 選択 (ビッ ト ・ オ ン ) 

















76 記 5 4 3. 2 じ iO 


MsB | | | |ilililrlilrsg 
| | LTC 
| | ・ 制御 レジ スタ 
| ーーーT 1 
・ 24 時 時 計 
ーーーT 1 -| 


・ 割 り 込み 予約 時 刻 
3 レプ 
・ 20ms デ クリ メン ト ・ カ ウン タ 
2-D 
・ 再 設 定 値 レジ スタ 














候 復 帰 情報 : な し 
[2IREAD TIMER 


WW は 2 
LT lel 


念 拉 能 : タイ マ の レジ スタ を 読み 取り ます . 
Ga コマ ンジ sD・ コ ー ド 3Ene 62 
念 復帰 情報 























O | 2 . 3 人 4 5_GmwZASDG IO II 12 
回避 9 剛 本 | TTY | 


I31415I617 18 192O 























Tc : 制御 レジ スタ 

T1 1: 24 時 時 計 

Ti-」 | : 割り 込み 予約 時 刻 

T2 | : 20ms デ クリ メン ト ・ カ ウン タ 




















Tz-D| : 再 設定 値 レ ビジ スタ 


第 0 痢 メル テ ナ ン メ ゴマ ボ 


[LITEST 























11 121314 


test sub command 








劉 検 能 : 種々 の サ プ コ マン ド に より 、 サ ブシ ステ ム 内 
を 絶対 アド レス で 参照 で きる . 


,O 





C |: コマ ンド ・ コ ー ド 3Fie 3) 

KEYwORD | キーワード (YAMAUCHTI ) 
8 バイト すべ て が 、 シ ステ ム で 決定 さ 
れ だ た も の と 一 致し な い 場 合 は 、 こ の コ 
マン ド は 、 動 作 し ませ ん ・- 

test sub command | : サブ コマ ンド の 並び 


S 1. サ プ コ マン ド 


サ プ コ マン ド は 、 サ プ コ マン ド ・ コ ー ド と 複数 個 の 
オペ ラン ド (な い 場 合 も ある ) で 構成 され ます . 
未定 義 の サブ プ コ マン ド ・ コ ー ド の 場合 は 、TEST コ 
マン ド を 終了 し ます 。 
I1IEND サ プ コ マン ド 
信 形 式 : 



































O 


人 @ 拉 能 : TEST コ マン ド の 実行 を 終了 し ます 


I2IMOVE サ プ ブ コマ ンド 
外形 式 : 




















劉 撲 能 : SRC で 示さ れる アド レス か ら DST で 示さ れる 
アド レス に BYT の バイ ト 数 デー タ を 複写 し ま 
39 
( 注 )BYT を 0 と し た 場合 、65536 バ イト の デー タ を 複写 
し ます .。 


[3JMP サ プ ブ コ マン ド 
人 形式 : 





信 撲 能 : ADR で 示さ れる アド レス へ サ プ コ マン ド の 制 


御 を 移し ます . 


|4|JMSR サ プ コ マン ド 
念 形 式 : 











58 ABR | 











@ 撲 能 : ADR で 示さ れる アド レス の 機械 語 サ プルー チ 
ン を 呼び 出し ます . 
機械 語 ル ー チ ン か ら の 復帰 は RTS (39ie) で 行 
な いま す 」 
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0 


サブ プ シ ステ ム ・ モ ニタ ソー ス 


リス ト 




























































3 00109 Boo0 R ..UG  E6U 
00002 DP 人 RSt 00110 COO00 R ..CRB EgU 
00003 TTL CRT SUB-SYSTEP1 * FUJITSU MICR ロ B UERSIUN * 00111 FE7DO R ..RTB E6U 
00004 NR ERTM ロ N 00112 D380 R .COMRR ERU 
00005 円 00113 Dgoo  ..CFNT EBU 
00006 に CRT SUB-SYSTEM MONITOR 00114 DooO R STKTQP EmU 
0000Y + 00115 * 
00008 * FUNCTI ロ N BLOCK 0 CONMUNICRT 
DO6 れ 6 * RARHE oo118 D38o R ERRREG EBU 
0oO1 1 門 KEYBDRD 00119 D3B1 人 STATUS EQU 
00012 F TIMER 00120 D382 R CMDREG EQU 
00013 円 00121 D383 RR CMDPRM ESU 
00014 に FACILITIES 912 D400 R GND EQU 
0oo15 * DISPLRY(URRM 16K*3) 
00016 * KEYBORD OO124 oooF R PFI EGU 
Oo017 * 20 MG TIMER 00125 oo10 R TMI EBU 
00018 * BUZZER oo126 oO20 R INI EgU 
OoO19 円 00127 0040 8 0 上 

* OO128 ooBQ 
00021 内 EEYIRITNOSIGHU 00129 OOFO R PFI$  EBU 
00022 * FEB。 1981 SUB-SYSTEM2 VO.0 00130 OOEF R TMIS  E65U 
00023 * MRR。 3 19B1 SUB SYSTEM2 VO.1 00131 OO0DF R INI$ EQU 
00024 ャ RPR。 3 1981 VO0.2 00132 QOBF R NMDI$ EBU 
00025 に RFPR、 10 19B1 VO.3 0 007F R 9NI5ES EBU 
00026 * RFPR。 16 19B1 U1.0 
00027 * RPR. 30 19B1 U1.1 00135 * 1/O REGIST 
0002B * JUNE 3 19B1 り 3.0 00136 に 
00029 * JUNE 6 19B1 U3.1 001376 0000 SnRG 
00030 * JUNE 10 19B1 り 3.2 D400 R .* ま DRG SET 
00031 * 0013B 0000 DS 
00032 * JULY ? 19B1 り 3.3 FMB HIGH SPEED D400 R KCOD1 EgU 
00033 に VERSION D401 R .$ORG SET 
00034 * 001398 000O DS 
00035 * SEP.。 3 198B1 V4.0 MaSK RUM UERSIUN D401 R KC ロ D2 EBU 
00036 円 2 D402 R .$DRG に 
3 5 00140 0O 
6 M CODED BY PM.YRPMUCHI Da ES 
00039 * RLL RIGHT RESERUED D403 R .sDRG SET 
0oo40 * 00141R OOOO DS 
00041 * D403 R BUZZER EQU 
00042 SDRG IRCR D404 QR .SDRG SET 
00043 - SDRG SET \0 00142R 0000 DS 
00044 ENDN D404 R RTTENT EQU 
00045 DS MRCR D405 RR .$DRG SET 
00046 \0 ERIU . $DRG 001438 0000 DS 
00047 ・$DRG SET .$DRG+\1 D405 R I ロ RDUNM E6U 
0o048 ENDN D4o8 R .$DRG SET 
00049 FLGENT MACR 00144 0000 DS 
QooO50 \1 FCB $B6 LDR # D408 R CRTDN EgU 
00051 \O CLRR D409 R .S ロ RG SET 
00052 ST \2 00145 OO000 DS 
00053 ENDM D409 R VACE  EGU 
00054 SKIFP2 MRCR D40 R 。.$DRG SET 
00055 FCH $BC CMPX # 00146R 0000 DS 
00056 ENDN D408 R BUSY  EGU 
00057 SKIFP1 MRCR D40B R 。、$URG SET 
000SB FCH $21 00147 0000 DS 
00059 ENDN D40B R InRDM2 EgU 
00060 RTSPUL MRCR D40D 人 .$URG SET 
00061 PULS \OFC 0014BR 00O0 DS 
00062 ENDN D40D 人 INSLED EQU 
00063 RCK MACR D40E R .$DRG SET 
00064 BITR aCKIRQ 00149 000O DS 
00065 ENDN D40E R SQFFST EgU 
00066 SCRON MRCR D410 R .$ORG SET 
0006? BITR CRTON 9 0O15O 幅 
OOO68 ENDN 00151 
0o069 SCROFF MaCR 00152 0007 R RMCL  EBU 
00oO7O STA CRTON 00153 0oOB R RIRU  EGU 
0oO71 ENDM 00154 oo10 R RMPT EQU 
0007Y2 URCON MACR Oo155 0o40 R RMMD  EeU 
0oOY3 BITR UaCC 00156 00B0 R RMFL ERGU 
00074 ENDN 0015? wa 
oooY5 URCOFF MCR 00158 005O R CSCX1 EQU 
0007Y6 ST UaCC QO159 002B R CSCX2  EGU 
0007? ENDIY 00160 0019 R CSCY1 EQU 
00078 BSYON MACR QO161 0014 R CSCY2 EGU 
00079 ST BUSY 00162 0o50 R BXBSZ EQU 
00OBO ENDN 0QO163 ozB0 R GXD E6U 
000B1 BSYOFF MACR 00164 OOCB 人 BYD EgU 
000B2 TST BUSY 0O165 OoO8 R CFH EeU 
00083 ENDN 00166 F] 
000B4 BUZZDN MCR 00167 oo10 R PFSZ  EGU 
oo983 SG8 BUZZER oo169 内 
NDN * V 
00087 SYSREG MRCR 1 に RIRBLES 
000BB BITR RTTENT 001728 DO00 RG 
OOG8B3 ENON1 oo173 Dooo auGRBL EeU 
COO30 TNSON PACR 001748 Dooo 0002 R ..IRE RNB 
CDO BITR INSLED 0o1?5R Dooz Ooo1  a ..CONT RMB 
00092 ENDN 00176 * 
00093 INSOFF MaCR 00177 。 kEYBOeD 
00094 ST INSLED 00178B 所 
2 ラコ ENDW oo179 DOO3 ooo1 。 Ra KEYDT RMB 
OOGO2B EE RCR 00180Q DOO4 ooo1 Ra RPB 
9902 DRCC 半 ま 40 ooO181 DOO5 OO02 PFIX RWB 
00098 ENDM 00182 5 
00099 CLF MCR 00183 。 TIMER 
00100 NDCC #$BF 00184 准 
MO1OI ENDR 00185Q DOOY 0001 人 .PFIRG RNB 
914 oo18ea DooB Oo01 Ra.TMGC RWB 
00187R DOO9 0001 R .$TC RMB 

90 CONSTRNT URLUE ON LRBEL 001BBa DOOa 99o4 8 TL RTB 
00107 OO000 。 6..VB EgU  s0000 BLUE RaN 0 0 RA 
00108 4000。 OR ENU 0000. ED 00191 Do16 0004 a .$T2D RMB 
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$BOOO GREEN URRNM 

$COOO CHRRRCTER BUFFER 

・・ ERB+2000 RTTRIBUTE BUFFER 
5D3BO CUNMUNICRTIHN RRER 
$DBOO  。 ロ RIGINRL FUNT 

$DOO0 


IOUN REG. 


・COPRR ERRUR CODE 

・CUMRR+1 

・COR+2 CONMPND CDE 
・CUIRR+3 FRRRMETER 

・CUPWfRR+128B END DF RRER PRST 1 


$OF STRTUS 0-3 
$10 STRTUS 4 
20 STRTUS 5 
$40 STRTUS 6 
SBQO STRTUS ? 
ー-PF1-$FFO1 
-TII-$FFO1 
ー-INI-$FFO1 
ーNMDI-$FFO1 
ー-CNTFLG-$FFO1 
DR 
$D400 
$D400 
KCUD1・1 MSB KDB 
・$DRG 
・$DRG+ 1 
KCOD21 KDO-KDY 
・$URG 
・$SHRG+ 1 
RCEKIRD・1 RCKNHMLEGE TRG 
・$DRG 
・$URG+ 1 
BUZZER,1 BUZZER 
・$URG 
・$DRG+ 1 
RTTENT,1 MRIN SYSTEI REBUEST 
・$UDRG 
・BURG+1 
IORDUM,3 DUPMY 
・$URG 
・SRG+ コ 
CRTDN, 1 DISPLRY DN/ ロ FF 
・$DRG 
・ も SHRG+ 1 
URCC:1 VRAM _RCCESS 
・$URG 
・$HRG+1 
BUSY+1 BUSY STRTE 
・$SURG 
・5HRG+1 
IURDM2 2 DUNMMY 
・$DRG 
・ SURG+ ら 
INSLED,1 INSERT IDE LED 
・ SURG 
・SHRG+ 1 
SHFFST・2 URRI DFFSET REG. 
・ SURG 
・ SURG+2 
07 EOL ロ R RSK UN RTTR. 
$08 REVERSE PRSKN RTTR. 
510 PRUTECT MRSK _DN RTTR. 
40 MODIFYED TRG MRSK UN RTTR. 
$B0 FIELD STRRT MRSK _DN RTTR. 
BO NUMBER _ ロ F CULUIN IN LINE:INY 
40 NUMBER OF CHLUWN IN LINE,LITTLE 
25 NUMBER ロ F LINE,MRNY 
20 NUWWBER UHF LINE,LITTLE 
B0 HURIZUNTRL BYTES,BRRPHIC 
640Q HURIZHNTRL DOT 
200 UERTICRL DOT 
B HEIGHT DF CHRR FUNT 
16 
$DOOO 
る 2 IRQ ENTRY RDDRESS 
1 CUNT FLRG SRVE 
1 FLRG 
1 CODE 
る PF STRING PTR 
1 FF INTERRUPT CODE 
由 RCCESS FLRG 
1 COUNTROL 
4 CLOCK 
4 INTERRUPT TIIE 
4 COUNTER 
4 RESTQORE DRTR 





00192 

00193 
00194R 
0019SR 
00196R 
00197R 
00198R 
00199 
OO0200R 
00201RF 
O00202R 
00203R 
00204 
00205R 
O00206R 
00207R 
00208R 
00209R 
00210R 
00211 
00212 
00213 
00214R 
0021SR 
O0216R 
00217R 
Q0218R 
00219R 
0022OR 
00221R 
00222R 
00223R 
00224R 
00225R 
00226R 
00227R 
0022BR 
002298 
002308 
002318 
00232R 
002338 
00234R 
00235a 
00236R 
00237 
0023BR 
002398 
002406 
00241 人 8 
00242R 
002438 
00244R 
00245 

00246R 


00247R 


0024B8 


00249 


002SO 

00251R 
00252R 
00253R 
00254R 
Oo02SS8 


00256R 


00257a 


DOBB 


DOBB 


DOBB 


DOBB 


EO000 


EOOO 86 
E002 1F 
EoO04 CC 


OODO 


EOOO 
DO 
BB 
0000 


や や や や や や や や ヤセ ャ や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や セア 


や や や や や や や や や や や や や や や や や や や や や や や や や や や や 


や 


や や や や 


1O 


サ プ ブシ ステ ム ・ モ ニタ ソー ス ・ リ スト 








* 
- CURSR RMB 1 STTE REG. DF CURSDR DISPLRY 
- CURTN RB 1 TIPIER ロ F CURSOR 
- CURST RMB 1 
- VOFST RMB 2 VRAM DFFSET FOR SCRDLL 
.CSCTL RIB 1 
PUTCFG RIE 1 CONTINURNCE PUT FLRG. 
CSLCDS RMB 1 EnNSDLE CDL ロ R DISBLE(MON ロ SELECTI ロ N) 
- TRBST RPB 10 
--RCL RMB 1 RTTR CDLOR CODE 
--BCL RB 1 BRCK COLUR CODE 
>. ELEX RMB 1 
--CMD KRPB 1 CHaR MIDTH FLRG,O=SMRLL , 1=LRRGE 
--CHT RMB 1 CHRR UNDER MRRGIN+0 QR 2. 
-・INS RB 1 INSERT FLRG 
-EKEY RMB 1 ENTER KEY CODE 
--LNCD RB 1 0 LONG 
--LNC RMB 1 NUMYBER DF CDLUYNS IN LINE 
--DNL KRPB 1 NUMBER DF LINES IN DISPLRY 
--FS RMB 1 KEY INDICRTE FLRG 
--UCU RMB 2 URRNM RDDR UNIT DF CHR COLUWN 
--ULU RMB 2 URI DDR UNIT DF CHR LINE 
-.DMaP RB 8 IP DF DISPLAY PLRCE 
-BPY RMB 1 BUFFER PTR Y 
-BPX RWB 1 BUFFER PTR X 
-BPRD RMB 2 BUFFER PTR (RDDR) 
-BQRD RMB 2 BUFFER PTR,RTTR. 
-BURD RMB 2 BUFFER PTR,VRRM RDDR 
-YDRG RMB 3 CURR.。 DISPLRY MINDCM 
-EY RMB 1 CUSDR RDDR Y 
-EX RMB 1 CUSOR ADDR X 
-CBAD RMB 2 CUSOR BUFFER DDR 
-CaRD RMB 2 CUSDR RTTR aDDR 
-CURD RMB 2 CUSDR URRM RDDR 
-BCL RMB 1 COLOR CODE 
-GF RWB 1 FUNCTION CODE 
-BY RMB 2 RXIS Y GRRPH 
-BX RWB 2 RXIS X GRRPH 
-BAD RMB 2 URRNM DDR 
-GBMK RB 1 BIT MRK 
- BOXX1 RMB 2 BOX X1 
- BOXY1 RYB 2 BOX Y1 
- BODXX2 RMB 2 BOX X2 
.BOXY2 RMB 2 BOX Yz 
-LX1 RMB 2 X CO-QRDINRTE DF POINT1 
-LY1 RMB 2 Y CD-ORDINATE OF POINT1 
-LX2 RMB 2 X CQ-0RDINRTE DF PDINT2 
-LY2 。 RMB 2 Y CO-0RDINaTE OF POINT2 
-CBTOP RMB 2 CLERR BUFFER TOF RDDR 
-CBBTM RB 2 CLERR BUFFER BUTTON DDR+1 
-CVTOF RMB 2 CLEAR VRM TOP DDR 
- COBTM RB る CLERR URRP BTTOM ADDR+1 
-ERSIX RMB 2 ERRSE 1X 
内 

SORG  .CBTOP 
-* ま ORG SET - CBTOP 

DS BLUSID,3 LINEX SIDE. BLUE 
BLUSID EQU .$DRG 
- ORG SET - $DRG+3 

DS REDSID,3 LINEX SIDE. RED 
REDSID EQU  .$ORG 
SDRG SET .* ロ RG+3 

DS BRESID,3 LINEX SIDE. GREEN 
GRESID EgU  . 
- SDRG SET - SDRG+ う 
に 
EXFONT RIB 18 EXTD FONT 

SORG EXFONT 
-$DRG SET EXFONT 

DS BLUDSF,3 RRM HOOK BLUE DuT DISPLAY 
BLUDSF ESU .$ORG 
- SORG SET .$QRG+3 

DS REDDSP,3 RRM HUDK RED DOT DISPLRY 
REDDSF EQU .$ ロ RG 
- SDRG SET .$DRG+3 

DS GREDSP,3 RM HOOK FOR GREEN DOT DISPLRY 
BREDSP EQU .$ORG 
- DRG SET .*$ORG+3 

DS BLULIN,3 RRM HODK FDR X PRRRLLEL LINE*S BLUE 
BLULIN EQU .s*ORG 
- SORG SET - SDRG+ さ 

DS REDLIN,3 RA HOOK FDR X PRRALLEL LINE*'S RED 
REDLIN EQU .sDRG 
- SORG SET .*DRG+3 

DS GREL IN3 RRM HOK FOR X PRRLLEL LINE*S GREEN 
GRELIN ERU .$DRG 
- SDRG SET - $DRG+ さ 
HKFLG RMB 2 CURRENT COLUR FDR CHRRRCTER 
HKBLUE RB 3 BLUE 
HKRED RYB 3 RED 
HKGREE RMB 3 EREEN 
e 
- MORK RME .COMRR-(PFSZ*10+$20)-* 
* 


・PFTBL RIB PFSZ*10 PF TRBLE 
URRBL$ EQU ああ 


F 
ト し エ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エナ エエ] 


TTk NMRIN - CRT SUBSYYSTEM2 一 
SETDP  $DO 
URG SEOQ0 


*s REST.R.RIT POINT 
= 
RESTAR E5U 


LDR #$ も DO 
TFR RxDP 
LDD #0 INIT URRIRBLE 
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&O 


サ プ シ ステ ム ・ モ ニタ 


00zB1a 
0oz2B2R 
002B38 
0o2B4R 
002B5R 
oozBea 
002B7R 
oo2BB 
002B9R 
oo290 
00291 
Oo292a 
00293R 
Oo294 
002956 
0o296 
00297 
0o29B 
00299 
00300 
00301R 
oo302a 
人 
ood03a 
00304a 
00305R 
00306a 
00307 
0030B 
00309R 
003108 
Q031 1 
00312a 
00313a 
00314R 
00315 
00316R 
00317R 
0031BR 
003198 
0032OR 
00321R 
00322R 
00323R 
00324 
00325 
00326a 
00327a 
0032Ba 


00337R 
00338a 
00339 
00340a 
00341 
00342Za 
003438 
人 
00344 
a 
00345a 
a 
003468 
R 
00347R 
0034BR 
003498 
0Q0350A 
003518 
00352ZR 
003538 
00354a 
00355A 
00356n 
00357a 
0035Ba 
00359 
00360 
00361R 
00362a 
003638 
00364R 
00365R 
00366R 
00367R 
0036BA 
00369a 
0037OR 
00371R 
00372a 
003738 
00374R 
00375a 
003Y6A 
00377R 
oo378a 
00379 





E007 
EOOR 
EQ0C 
EQOOF 
E011 
EO013 
E015 


E018 


E01 に 
EQ1F 
E021 


E024 


EO027 
EO2B 
EO02H 
EO2D 
E030 
E033 
E036 


E039 
E03H 
E03E 
E041 
E043 
E046 


E049 
EO4B 
E04D 
EQ4F 
E051 
E053 
E054 
EOS6 


E059 
EOSB 
EO5C 


EOSE 
E060 
E062 


EO64 
E064 
EO6? 
E069 
EO6B 
E06D 


EO6F 
EQO?0 
E072 
E074 
EOY6 
EO0YB 
EO7R 
E07C 
EOYE 
EOB0 
EOBZ 
EQ0B4 
EQOB6 
EOBB 
EOBR 
EOBE 
EOBE 
E030 
E092 
E094 
EO096 
E098 
E09R 
E09 に 
E09E 
EQRO 
EORZ 
EOR4 
EQOR6 
EOQRB 
EORR 
EO0R に 
EORE 
EOBO 
EOB2 
EOB4 
EOB6 
EOBB 
EOBR 
EOBC 
EOBE 


ジー ス ・ リ スト 











BE Dooo Aa LDX #VRRBL 人 EOC2 19 R 
ED gl 人 RESTOO STD 。 ,X++ 人 E0C3 oo A 
BC  p360 Aa CMPX 。#VRRBLS R EOC4 19 a 
25 。 F9 EQOOA BL RESToo 人 EOC5 oo A 
Be 07 R LDR #s07 人 EOC6 01 R 
97 2C RA STR ..aCL RTTRIBUTE 人 EOCY oo a 
FC D4oO  a LDD KCOD1 TURN DFF THE KEY STROBE. 00381 * 
* 0o38z ・ 
1oCE DoOO Aa LDS #STKTOP INIT SP 003B3 > 
・ 00384 *ERROR 
BD EDB  R JSR 。 DEFRLT DEFAULT INIT 00385 * 
Be 23 Aa LDA #s23 00386R EOCB B6 3C ERR60 LDA 
BD EDY?7 Ra JSR CNSINT 00387 EOCR SKIP2 
・ R EOCA BC a FCB 
7F  D381 Ra CLR STRTUS CLERR INTERRUFT 003BBR EOCB B6 3D R ERR61 LDA 
* 00389R EOCD SKIPz 
EOz7 CMDCTLEgU  * 人 EOCD BC R FCB 
* 00390R EOCE B6 3E 人 ERR62 LDR 
・CUMMRND HANDLER 00391R EODO SKIPe 
Ra EODO BC A FCB 
1ocE DOO0 RA LDS #STKTOP INIT SP 00392R EOD1 B6 3F 人 ERR63 LDA 
CLF ”。 CLERR KEY MaSK 00393 EOD3 SKIFz 
1C BF a RNDCC  #$BF R EOD3 BC a FCB 
YF  D3gz Aa CLR CVMDREG CONMMaND NON 00394R EOD4 B6 40 R ERR64 LDA 
BD ED94 Ra JSR CURSET 00395R EOD6 SKIF2 
BD EDB  ^a JSR CURGO R EOD6 BC RA FCB 
BD  E12F Aa JSR CMDMRI 00396R EODY B6 41 R ERR65 LDR 
* 00397R EOD9 SKIFe 
E039 RCMDCT1EgU  +* R EOD9 BC A FCB 
34 02 Ra FPSHS RA oo039BR EODR B6 42 人 ERR66 LDA 
BD EDB1 RA JSR 。 CURSTP 003996 EODC SKIF2 
BD  E123 Ra CDCNT JSR COMINT CTL REG CLERR R EQODC BC RA FCB 
35 02 a PULS RA 00400R EODD B6 43 人 ERR67 LDA 
Fe  EO6F  a LDB ” CMDPN NO. OF URILBLE COWMAND 00401 EQDF SKIFe 
BE EoO7O Aa LDX #CMDPTR COPMRND ENTRY TQBLE R EQDF BC R FCB 
内 oo402R EOEO B6 44 R ERR6B LDA 
1  B4 R CMDCT2 CMPFA OX 00403R EOE2 SKIPa 
25 。 0o4  EO51 BLn CMDCT3 Lou 人 EOE2 BC A FCB 
R1 01 A CMFA 1.X 00404R EOE3 B6 45 人 ERR69 LDA 
23 QB EOS9 BLS CMDJWP EXIST THIS BLCCK 00405R EOE5 SKIF2 
30 04 人 CMDCT3 LEAX 4xX NEXT BLOCK 人 EOE5 BC RA FCB 
SR DECB oo406A EOE6 B6 46 人 ERRYO LDR 
26 F3  E0O49 BNE CMDCT2 00407 * 
EEoE6 Ra JMP ERRYO UNRURIRRBLE 0o408 EOEB ERROR EQU 
内 00409R EOEB BY "D380 Ra ST 
E059  aCMDJWPEGU  * 004108 EOEB YE  EO62 Ra JWP 
RO  B4 RA SUBA 0xX DFFSET ON BLOCK 00411 
48 LSLR 00412 ト エ エエ エエ エエ エエ エエ] 
RE 02 RA LDX az,x VECTOR TaBLE TOP 00414 EOEE CONTO E9U 
00415 * 
RONR ue で 00416 * INTERPIDIRT 
00417 * 
AD 84 R EQCMD JSR  ・X BRRNCH TO COPWYQND 4 TOY 
2 e 0o419 * 。 BUSY LINE 
20  C3 EQ27 CMSEND BRR CMDCTL SEND& MT 00420 *  RND MRIT 
0o421 * 
EO64 8IRoRB EoU ee 0 
B5  D402 Ra BITR RCKIRQ 00423 * BREAK NOM 
9gE oo RA LDX  ..1RGE 00424 
27 BC EO27 BEg CMDCTL NQENTRY 0042SR EOEE 34 0g 人 PSHS 
aD  B4 A JSR  ,X 004266 EOFO B6 Bo A LDR 
20 B の oo427a EOF2 BA  D 
に Ag 0042BA EOF5 B?  D3B1 RA ST 
04 R CMDPN FCB (CON$-CIDPTR )/4 00429R EOFB BD 35  E1Z2F 
00430R EOFR B1 64 R CMFA 
CIOD HDPTRFDB  $010DxCONS CONSOLE BLncK EE は 
00432 * 
1S20 8 FDB 1520,GRa$ BRRPHIC BLQCK 94 EorE  a Coos god 
2 『 00434R EOFE YF  D 
292c 8 FDB 292C,KEY$ KEYBORD BLOCK 0435 ELo1 96 定 8 LO 
00436Q E103 B4  D38B1 
に A FDB  。 *3D3F,TIM$ TIMER BLOCK 60437m E19 57 D391 8 STe 
E15B CONS FDB INIT 0043BR E109 7F 
Ez50 。 Ra FDB ERRSE 00439 E10C RTSPUL 
ESE5 Ra FDB PUT R E10C 35  B2 代 PULS 
ESE4 Ra FDB GET oo440 ・ 
EBEF 内 FDB BETC 00441 エエ エエ エエ エイ エエ エエ 
ECR1 RA FDB  CGBLK1 oo442a E10E 10CE DOOO RCNTBT LDS 
EDIE  R FDB CFPBLK1 004438 E112 34 02 R PSHS 
ECaO Ra FDB ”  CGBLK2 oo4448 E114 BD ED94 Ra JSR 
ED1D Ra FDB CPBLK2 00445 E117 YE  EO3E  R JP 
EC98 Ra FDB EETBaD 0944? E118 CONTI EQU 
* 
時 4 時 er mw 
E246  R FDB ” NERASE ら 
EE4B GRA5 FDH LINE 0041 > BUSY EiNE 
FO74 RA FDB CHaIN oo452 * 。 MRIT FOR 
F3F3 Ra FDB  PniNT Po っ 。 RODSSAVE 
FOB3 8 FDB SYmBoL 0045S ・ IF NEw co 
FIEB RA FDB CHANGE 65545 Tn 
F236 Ra FDB GBLK1 
F427 Aa DEPBLE1 00458a E11Q 34 02 R PSHS 
F39? 。 R FDB BEBCKz2 004598 E11C BD 11 E12F BSR 
F56Q  R FDB PBLK2 oo460a E11E B1 64 A CPa 
F65SE Ra FDB "BCURS 00461 E120 26 EC  E1OE BNE 
EE22  R FDB CHRLN 00462R E122 SKIP2 
FDY6  。 RKEY5 FDB INkEY 人 E122 BC 人 FCB 
FDE5  R FDB FUNKEY oo463 * 
FE29 。 Ra FDB GSTRPE 00464Q E123 34 02 R COMINT PSHS 
FE44 RA PDBT SHETNT 0o465Q E125 B6  D3B1  a CONTI2LDa 
FEBF RTIH を EDB 。。 SETTJW 00466A E12B 97 02 STa 
FEBY Ra FDB REDTIM ET 0 
2 コ 人 内 FHB LES7 00469 [エエ エエ エエ エエ エエ よ 了 1 
夫 004716 E12C 32 62 R CDMQB LERS 
RA 


0o380R EoCO oo NPGRY1 FCB 0:BO,25,0,25,0・1.0 00472R E12E 3B RTI 
R EOC1 5o 4 00473 E12F a CmDuarEgU 
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ENTRY 

#60 INIT PRRRN 

$BC CPPX 柱 

#61 CO0-ODRDINRTE ロ F CUNSDLE 
$BC CMPX # 

#62 ORDER SEG. 

$BC CNPX 六 

#63 CU-DRDINRTE UF BRRPHIC 
$BC CMPX # 

#64 FUNCTIHN CODE 

BC CIPX 六 

#65 N0。 OF CU- ロ RDINRTE 
$BC CMPX # 

#66 Nd. DF CHRRRCTER 
*$BC CTPX 

67 N0。 F COLOR 

$B ビ CNPX 間 

68 PF NO. 

BC CNPX # 

#69 INVRLID FRRRIETER 
$B ヒ CNPX # 

7O INVRLID CDNRND 


・EIfRR SET ERRR STRTUS 
CFSEND SEND 


ヒエ エエ エエ エエ エエ エエ エエ エエ エナ エエ エエ エエ エエ エエ ナナ すす 1 
トコ 


E SEND PROCESS 


S FLRG UN 
LOM 
FOR CONTINUE CPMRND. 


FPND IS NOT CDNTINUE+ 
CONYRND RND DQ NEM COMMRND. 


R 
#CNTFLG 
STRTUS 
STRTUS 
CMDMRI 
#100 
CNTRBT 


MRIT 
CONTINUE ? 


ERRREG 
##CNTFL$ 
STRTUS 
STRTUS 
CPMDREG 
R 

RPC 


エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ 2 


#STKTOP 
人 


CURSET 
CMDCNT 


ロロ 
DUS DaTR 


LOM> 
CUNTINUE COIMRND+ 
CONT FLRG 


PRND IS NT CUNTINUE 
CONfRND RND D ロ NEM COMIRND. 


R 
CMDMRI 
答 100 
CNTRBT 


MRIT 
CONTINUE ? 


$BC CMPX 
人 

STRTUS 

・・ CONT 

CONTO02 


に エエ エエ エエ エエ エエ すさ エエ エエ で 3 


ら 25 


MRIT FOR CONMRND 





00474 人 Aa 
0047SA 
004?6 人 8 
004Y7R 
0047BR 
00479a 
004B0R 
004B1 人 8 
004BZ2R 
1 
004838 
00484 
00485R 
004B6R 
00487 
O048Ba 
月 
004898 
004908 
00491 人 
00492a 
00493 
00494 
00495 
00497 
00498 
00499 
00500 
00501 
00502 
00S03 
00504 
00505 
00506 
0050Y 
00508R 
00509R 
00510R 
0051 1 人 
00512R 
005138 
00514R 
0051Sa 
00516 
00517R 
00518R 
00519 
00520R 
00521 
00522a 
005238 
00524R 
0052Sa 
00526 
Q0052YR 
0052BR 
00529 
00530R 
00531 
00532 
00533 
00534R 
00535R 
00536 
00537R 
0053BR 
00539 
00540R 
0054 1 
00542R 
005438 
00544R 
0054SR 
00546R 
00547Aa 
0054BR 
00549 
00550 
005S1 
0055Z2R 
00553 
00554R 
005S5S5R 
00556AR 
00557R 
005SBR 
00559R 
005608 
00561 
00562a 
005638 
00564R 
00565R 
00566R 
00567 
0056BA 
00569R 
O005YOR 
00571R 
O005Y2a 
00573R 
00574R 
00575 
00576 
0057? 
0057B 
005?9R 


E12F 
E131 
E134 
E136 
E138 
E13 
E13D 
E13F 
E142 
E142 
E145 
E148 
E14R 
E14D 
E14F 
E151 
E151 
E154 
E156 
E158 
E15R 


E15B 
E1SD 
E160 
E163 
E165 
E16Y 
E16B 
E16B 
E16D 
E16F 
E1?1 
E17?3 
E175 
E17? 
E179 
E17B 
E17D 
E17F 
E1B0 
E183 
E185 
E18? 
E1B9 
E18B 
E1BD 
E18F 
E192 
E194 
E196 
E198 
E19 
E19C 
E19E 
E18O 
E1R1 
E1Z2 
E1R4 
E1R6 
E1aB 
E1RR 
E1RC 
E1RE 
E1BO 
E1B2 
E1B4 
E1B6 
E1BB 


E1BR 


E1BC 
E1BE 
E1CO 
E1C2 
E1C4 
E1C6 
E1CB 
E1CR 
E1CC 
E1CE 
E1DO 


E1D3 
E1D5 
E1DB 
E1DB 
E1DF 
E1E1 
E1E4 


E1EY 





BD 


E1S5B 


D380 


や や や や や や や や アセ 


さ ぅ ゃ ゃ っ ゃ や や や や や 


目 本 
ーー ピ ビ 
=』 


や や や や や や や や や 


mm 西 
テー ビ 
ロ _ 
や や や や や 


MD や や や や 


E1R 


が か > キッ キ コ 


E1D 


や や や や や 


E1D: 


7 


や や や や エ 


セ 


や ャ や や や や や 


や や 


10 


サ プ シ ステ な ・ モ ニー ウニ ー ツ シース 革 梁 ズ ド 





CDMR5 LDR 


CMDMR6 LDR 


CTPDMR9 BSYUN 


X 

#CMDMIRB 

・・1IREE 

X 

IRQ ENRBLE 

ERRREG 

#$7F 

ERRREG 


BUSY 

CMDREG 
CMDLJ9 
ERRREG 
CIDUMR5 
ENMDMR6 


BUSY 

IRGI DISRBLE 
・・IRGE 
・・ TRGIE+1 


エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ ] 


T に 


・CUIRR+ さ 
・COPRR+4 
・COIRR+5 
・COMRR+6 
・CUNMRR+ マ 
・CCWRR+8 


か 


NIT EGIU 
CLR 
JSR 
LDU 
LDR 
STR 
CLRB 
LDX 
LDR 
CMPR 
BE 
CMPR 
BNE 
LDB 
LERX 
STA 
STB 
STX 
CLRB 
LDX 
LDR 
CMPR 
BE 
CMPR 
BNE 
LDB 
LDX 
STR 
STB 
STX 
STX 
LDB 
STB 
BEB 
DECR 
DECR 
INIT40 STR 
ST 
CPMPR 
BLS 
LDR 
STR 
STR 
RDDR 
CFPR 
BHI 
STR 
ST 
ELR 
LDR 
STR 
TST 
BPI 
LDR 
BEG 
LDa 
INITSO STR 
LDR 
BEB 
JIP 


INIT21 


INIT31 


キ 
INIT90 LDR 
STR 
LDX 
LDY 
LDB 
JSR 
JIP 


DEFRLT 


ドコ 


INIT - INITIRLIZE CODE - 


INIT COWMRND 


BRCEK CULUR CODE 

NO. OF CULUMN ON LINE 
NO. DF LINE ON DISPLRY 
STRRT LINE NO. OF SCROLL 
NO. DF SCROLL LINE 
INDICRTER FLRG 


PUTCFG 

CURCLR 

#。 CUIRR 

3U 

・・ BCL SET BRCK COULOR 

#1 

4U 

CSCX1 

INIT21 

#CSCX2 

INIT90 MIDTH ERROR 

# 昌 CHRR MIDTH FLAG=B=LRREE 
1:X 

・・LNC 

--EMD CHRR MIDTH FLRG SET 
・・ VCU UNIT OF STEP 

#RXBSZ *CFH 

5U SET NO. DF LINE 
##CSCY1 

INIT31 

#CSEY2 

INIT90 HEIGHT ERROR 

も 4 CHRR _ HEIGHT FLAG=2=UNDER MRGIN 
#tGXBSZ*(CFH+2 ) 

・・DNL 

・- CEHT CHRR _ HEIGHT FLRG SET 
・・VLU UNIT ロ F LINE STEF 
HKFLG 

BU 

ゃ ・FS INDICRTE FLRG 
INIT40 


USE 2 LINE FR INDICRTE 
・・ DMRP+2w3 INDICRTE STRRT LINE 
・・ DIRF+2*2+1 PRGE2 END LINE 
6U 
INIT90 SCRULL STRRT ERROR 
6U 
・・ DF+2wQ_ SCRULL STRRT LINE 
・・ DFP+2*1+1 PRGE1 END LINE 
?U 
・・ DMRP+ ご * さ 
INIT90 
・・ DRP+2*O+1 SCRULL END 
・・ DMRF+2*2 PRGBE2 STRRT 
・・ DIRP+2*1 FRGE1 STRRT 0CUNSTRNT 
・ DNL 8 
・・ DRP+2* コ +1 INDICRTE END,DISPLRY END 
守 U 
INIT90 
10U 
INITS5O 
半 $FF 
CSLCDS 
9U 
HOIE 
ERSRLL 


SCRULL NEG, 
SET CHNSHLE CHLUR DISRBLE SMITCH 


NT ERRSE 
ERRSE 

60 ERRDR CDE 
ERRREG 

##INPRRI 

#CMDPRI 

# 日 

NMOUE 


INIT DEFRULT SET 


エエ エエ エエ エエ エエ エエ エエ エエ エナ すす エエ エエ エエ エエ エ エナ エエ エエ エエ エエ エエ エエ すす エエ] 


キ 
HOIE EQU 


JSR 


INDICT 


271 





,O 


サブ プ ジ ステ バム ・ モ ニタ 


005BOR E1ER CE 
O05 ヨ 1R E1ED SF 
005B2R E1EE SC 
005 ヨ 3 E1EF RG 
005B4R E1F1 R1 
O005BSR E1F3 2? 
00586R E1F5 9? 
0058YR ETFY 97 
005BBR E1F9 D? 
0058B3R E1FB E6 
00590R E1FD D? 
00591R E1FF OF 
00592R E201 BD 
00593R EZ203 20 
00594 
00595 
Q0596R E205 BD 
O00597R _E207 9F 
00598R EZ209 
00599R EZ20C 39 
00600 
00601R E2OD SF 
00602R E2O0E 

R EZ2OE 
00603R E2OF DC 
00604 
00605 E211 34 
00606R E213 D6 
00607R E215 3D 
O060BR E216 EB 
00609R E21B B9 
00610R EZ21R 1F 
00611R E21C 31 
00612R E220 39 
00613 
00614 
00615R EZ221 BD 
00616R E223 DD 
O00617R E22S 39 
00618 
Q0619R E226 SF 
00620R E227 

R EZ22Y 
00621R EZ22B DC 
00622 
00623R E22R 34 
O0624R E22C 96 
00625R E22E 3D 
OO0626R EZ2F 34 
00627R E231 R6 
O062BR E233 D6 
00629R EZ235 3D 
O0630R EZ236 E3 
00631 EZ23B ED 
00632R EZ23R RG 
00633R E23C D6 
Q0634R E23E 3D 
00635R E23F 1E 
00636R E241 E3 
00637R _E243 32 
0063BR E245 39 


00653R 
OO0654R EZ252 BD 
006SSR EZS5 De 
QO656 
00657R E257 B6 
O006SBR E2SR 26 
00659R E25C D? 
O0660R E2SE B6 
00661R E261 9? 
00662 
00663R _E263 BE 
O00664R E266 CE 
0066SR EZ269 00 
O0666R EZ26B 

R E26H BY 
O0066?R EZ26E BD 
O0066BR EZ2P1 

R EZ2?1 BS 
00669R 
006?YOR EZ?6 96 
006?1R E2YB De6 
00672R E2YR DD 
00673R EZ2YC BD 
00674R EZ7F BD 
0067S5R 
006?6R EZ2BS RG6 
00677R EZB7 BD 
0067BR EZ2BR R6 
00679R E2BCE BR 
OO068OR EZ2BE RY 
00681R E290 
O06B2R E294 22 
O00683R E296 25 


272 


ンー ス ・ リ スト 


DO3B 


EQ 
01 


B9 07DO 


E221 
05 
49 


ED 


は 1 
人 
は 1 
AR 
1 
は 1 
R 
1 
R 


人 
E228 
に 1 


や や や や や や や や や や や や や や や 


や や や や や や や や や や や や や や や セア や や ヤ や や ヤ や アロ ヤヤ ヤヤ や や ヤ や 。 コ や や や 


E2BS 


LDU #。 。 DRP 
CLRB 
HOE10 INCB 
LDR *U+ 
CMPR *U+ 
BEGI HOWE10 
STA ・ MDRG 
STR ・BPY 
STB ・MDRG+2 
LDB ー1:U 
STB ・PMDRG+1 
BFPTRL CLR ・BPX 
BUFPTR BSR BBRDR 
BRR BVRDR 
に 
BBRDR EGU * 
BSR BRDRN 
STX ・BPRD 
STY ・BaRD 
RTS 
円 
BRDRL  CLRB 
SKIP2 
FCB $BC CTWPX # 
BRDRN LDD ・BPY CURRENT BUFFER PUINTER 
BRDR 。 E6U =* 
PSHS  B 
LDB ・ LNC 
PMUL 
RDDB *+ 
RDCR 共 ..CRB/256 
TFR DsX 
LERY ・・ RTB-. . CRBX 
RTS 
* 
BVRDR EQU * 
BSR BURDN 
STD ・BURD 
RTS 
に 
BURDL  CLRB 
SKIP2 
FCB $BC CTFX # 
BVRDN LDD ・BPY CURRENT BUF PTR 
BVGD EQU * 
PSHS Ra 
LDR ・・ VCU+ 1 
PUL 
FPSHS D 
LDR 25 Y 
LDB ・・ ULU+1 LSBH 
PUL 
RDDD 5 
STD 3S 
LDR 2:5 
LDB ・・VLU PMSB 
PUL 
EXG RsB 
RDDD し に 】 
LEAS 3 ヵ S 
RTS 
円 
* ERRSE COMMRND 
円 
・C ロ MRR+3 MINDOM NO、 
* ・EOWRR+4 BRCK、 COLOR CODE 
2 ・EOIWRR+5 CHLUR CUDE (NEM ERRSE CDMIRND ) 
NERRSE CLR FUTCFG 
JSR CURCLR 
LDB ・EUIAR+5 LURD CULUDR. 
BRR ERRSD ロ 
円 
ERRSE  EGU 
CLR PUTCFG 
JSR CURCLR 
LDR ・・ EL LRD THE CURRENT CULUR CODE 
ERRSDO E6U に 
LDR ・CUIRR+3 
BNE ERRSEO 
STB ・・ REL SET THE COLUR CODE. 
LDR ・COMYRR+4 
STA ・・ BCL SET BRCK CULOR 
ERSRLL EQU に 
LDX #0 
LDU #$4000 
NEG CSLCDS 
SCRQFF 
STA CRTON 
JSR ERSSO04 
SCRON 
BITR CRTON 
NEG CSLCDS 
LDR ・・ DP+2 TOP URRN Y 
LDB ・・ DP+2*4-1 BOTTON VRM Y PRST 1 
STD ・ CUTOP 
JSR ERSBUF 
JSR HOWE 
RSSFLD LDU #. . DWRP RSSUME FIELD MRRK 
ERSRL5 LDR *U++ 
JSR BRDRL 
LDR sY 
DRR RMFL 
STa *Y 
CIPU #. . DMRP+B 
BHI ERSRL9 
BLO ERSRLS 


OO06848 
0068SR 
00686R 
006B7 

O06BBa 
006B9R 
00690R 
00691 

00692a 
00693R 
00694R 
0069SR 
00696R 
00697R 
00698R 
006998 
00?00R 
00701 
00702R 
007038 
00704R 
00705 

00706R 
00707A 
0070BR 
00709R 
00710R 
00711R 
00712R 
007138 
00714R 
0071SR 
00716R 
00718 

00719 

00720 

00721 


0074BR 
00749R 
007SOR 
007S1R 
00752R 
007S53a 
00754R 
007S5SR 
007S6R 
007S57R 
007S5BR 
00759 
00760R 
00761R 
00762R 
00763R 
00764 
0076SR 
00766 
007678 
00768 
00769 
007708 
人 
007?1R 
00772R 
00773 人 6 
00774R 
R 
0077SR 
007?6R 
007?7 朋 
0OY?BR 
00779 
007BOR 
007B1R 
007BZ2R 
007B3R 
007Yg4R 
007BSR 
O07B6 
00Y8B8 
007B9 
00790 


E298 
E29R 
E29C 


EZ29D 
E29F 
EZ23 


E2R5 
E2R6 
E2R9 
E2RB 
E2RD 
E2RF 
E2B3 
E2B4 
E2B6 
E2B8 
E2B9 
E2BB 
E2BD 


E2BF 
E2C1 
E2C3 
E2CS 
E2CP 
EZ2C9 
E2CB 
E2CE 
E2DO 
E2D2 
E2D4 





SF Ra 
E9 EZ2B5 
03 介 
FE25 EOCB 
2C R 
E2A5 R 
DO039 1 
B6 R 
B4 R 
01 1 
FE15 EOCB 
4D R 
B4 人 
04 E2BF 
41 人 R 
R4 EZ263 
E2BF は 1 
?3 R 
4B 人 
43 R 
44 R 
60  E329 
4B は 1 
E2OD R 
R4 | 
B0 R 
R4 R 
E201 1 
E2DY 1 
?4 R 
E226 は 1 
03 人 
4000 R 
OE EZ2F1 
4000 は 1 
06 人 
0? EZ2F1 
0000 1 
40 R 
O7 EZ2FB 
EZ2F 1 は 1 
MM 人 R 
E226 R 
01 R 
21 R 
1F E31B 
OB  E303 
04 人 
2C R 
08 R 
1D 、E323 
1R  E323 
89 BOO00 R 
C9 BOOO Ra 
2C 1 
08 人 
54  E36C 
51 E36C に 
2C R 
08 は | 
02  E323 
2D R 
E323 R 
4?  E36C 
45  E36C 
43  E36C 
E329 1 
D40B 介 
21 R 
R7 EZ2DY 
21 1 
D408 1 
?4 R 
Ez2ob R 
20 R 
B4 1 
?3 
Ez2OD R 
20 R 
04 E34 に 
2C 1 
50 人 R 
E34C ヒ R 


LERU 
BRR 
ERSRL9 RTS 


* 
ERRSEO CPPR 
LBHI 
STB 
EBU 
LSLR 
LDX 
LERX 
LDB 
CIPB 
LBEBI 
LSRA 
STR 
LDD 
TSTR 
BNE 
CTPB 
BEG 
ERRSES EGMU 
STD 
STD 
STR 
CLR 
BSR 
RSMFLD LDR 
JSR 
LDR 
DORA 
STR 
JIP 


ERASE 1 


ERRSE DI1S 
RND RTTRI 


CUTOP STRR 

CUTOP+1 PRST 

RSUKRI1 EGIU 
LDR 
JSR 
TFR 
SUBD 
BLS 
LDU 


PSHS 
BSR 


ERSS03 EQU 


ERSSO04 LDR 


ERSIINH LERX 


ERSVN 


ERSS05 EBU 


ゃ 


ERSSQF ESIU 


ERSSUB NEG 


ERSBUF 


1 


* R STORED DRT 


1O 








ー1U 
ERSRL5 


# さ 
ERR60 
・・ RCL 


トコ 


SET THE COLOR CODE. 


#。 。 DWRP-2 
RsX 

0xX 

15X 

ERR60 


・MDRG+2 KIND 
ュ X 
IS THE CURRENT MINDOM 
ERRSES FULL DF LUGICRL DISPLRY RERY 
・・ DI1RP+2* さ 
ERSRLL YES.。 
に 


・CUTUP 
・PDRG 
・BPY 
・BPX 
ERSSDF 


・PDRG RSSUIE FIELD TRG RT CURRENT MINDQM TOP. 


BUFPTR 


PLRY,CHRACTER BUFFER 
BUTE BUFFER 


T LINE DF ERRSE 
END LINE OF ERRSE 


・ CUTDF+1 GET RDDRESS THAT IS FAST 1 
BURDL TO END QF ERRSE RRER 

DU SET U 

#$4000 HUT OF BLOCKY 

ERSS03 NO. 

#4000 


D 
ERSSO3 
#O 

U 
ERSS04 
門 
・EUTUP 
BURDL 
DX 
CSLCDS 
ERSVN 
ERSINO 
#4 

<。 EL 
#RIRU 
ERSS05 


BET TOF ADDRESS DF ERRSE. 


SET X。 

COLOR ENRBLE? 

YES. 

NMILL 1 ERRSE THE NLY GREEN? 
NH。 


REUERSE? 
YES DISPLRY IS ERRSED BY GREEN. 


DISFLRY IS ERRSED BY BLRCK. 
1 MILL ERRSE UNLY GREEN URAI. 


ERSS05 
・・ VGX 
・・ UiU 


・ RCL 
#RIRU 
ERSU 


ERSU 
・・ REL 
#RIYRU 
ERSS05 
・ BEL 


1S IT REVERCE? 

YES, ERRSE CULUR IS CHRR'S CULUR. 
N ロ 。 ERRSE CULUR IS BRCK COULOR. 
ERSU 
ERSU 
ERSU 


BLUE 
RED 
GREEN & RETURN 


CRTUN 

CSLCDS 
ERSUVRIY 
CSLCDS 


CRTIN 

・CVTUP+1 GET BUFFER RDDR THaT 15 
BRDRL PRST 1 TI END OF ERRSE RRER 
Y SRVE RTTR RDDR. 

SET U CHRR RDDR 

BET BUFFER aDDRESS THRT 

15 THP OF ERRSE RRER. 

Y SRVUE RTTR RDDRR. 


ERSRRR 
・・ RCL 
XsU 


ERRSE CHRR BUFFER. 


ERRSE RTTR BUFFER 
に 


R 





00791 
00792 
00793 
00794 
00795 
00796 
0079? 
00798 
00799 
00800 
008O1a 
00802R 
008038 
00B04R 
O008B0SR 
00BO6R 
OO0807R 
00808R 
008098 
00B108 
Oo081 1 
00B12 
008138 
00B14 
人 
008B15 
00B16R 
008B17R 
QO0 ヨ 1 
00B19 
OO0B208 
00B21R 
R 
00B22R 
008238 
| 
00B24R 
00B25R 
O00B26R 
00B27R 
00828B 
00830 
00B31 
00832 
00B33R 
OOB34 
00835 
00836 
00B3YR 
00 ヨ 3BR 
00B39R 
OO0B40 
00841 
008428 
00B438 
OOB44 
00B45R 
00B46R 
00B47R 


0086SR 
00B66R 
OO0867R 
00B6BR 
00B69R 
人 
OO0 ヨ YOR 
00871 
00872 
00B73 
00874 
00B75 
00876 
00B7? 
00B7B 
00879R 
008BOR 
OO0BB1R 
00BB2R 
008838 
00BB4R 
1 
OOB85 
00886 
008B? 
008BB 
00BB9 
00B30 
00891 
00892a 
008938 


E39E 
E393E 
E3R1 
E32 
E34 
E386 
E3R7 
E3RB 
E38D 
E3RF 
E3B3 
E3B5 
E3B? 
E3B7 
E3BR 


E3BB 
E3BD 
E3BF 
E3COQ 
E3C3 
E3C5 
E3CS5 


E3CY 
E3C9 


34 
C6 
3D 
C3 
1F 


35 


DC 
BD 


02 代 
06 介 
30 1 
89 Ra 
01 1 
B4 R 
36 1 
E4 は | 
E9、 .E358 
62 人 a 
06  E368 
02  E368 
3 R 
C3 に 1 
R6 Ra 
52 R 
Q0 人 
01 E374 
D4093 人 
D3  E34C 
D409 人 
52 R 
B9 4000 
CE9 4000 8 
E3B R 
5R R 
58 1 
E3BC R 
0280 R 
04 E395 
00CB 介 
B0 1 
40 R 
20 1 
10 R 
08 1 
04 R 
02 全 
り 1 人 
E39E 1 
D409 人 
CE4 人 
01 E38? 
C9 4000 R 
02  E3RF 
02 R 
C9 BOOO R 
02  E3B? 
04 R 
D409 人 
E3BB 1 
06 R 
08 1 
DB00 R 
01 1 
B6 1 
E3CY 代 
4E R 
E211 Ra 


サブ プシ ステ ム ・ モ ニタ ソー ス 
* X STRRT DDR 
* U END RaDDR 
* 
* THESE PaRRMETERS PUST BE RS FQLLOMS. 
し 
* THE X IS LESS THRN THE U 
* SIZE (U-X) 15 EVEN NUMBER RND 
* BRERTER THRN 6. 
LERY ら ぅ X 
LERX 6X 
PSHS XY 
TFR RB IKE DRTA 
TFR DX 
LERY sX 
ERSRR3 FPSHU DiX5Y SET 6 BYTES, 
CPPU し に) 15 THE REIRINDER . GE. 67? 
BHS ERSRR3 YES. 
CPPU 25 HMI_MRNY BYTES IS REIMRIND? 
BLU ERSRR9 IT 1S 0. 
BERI ERSRRB IT IS 2. 
STD ューーU IT 1S 4. 
ERSRRB STD *ーーU 
ERSRR9 RTSPUL (DxY) 
PULS D:Y:PE 
* 
ERSU LSRR 
FSHS RsXsU 
LDR #$00 
BCE ERSU05 
CR 
ERSV05 VREUN 
BITR VRECC 
BSR ERSRRR 
URCE ロ FF 
STa URCCE 
PULS RrXsU 
LERX $4000X T ロ F _RDDRESS nF NEXT CULUR. 
LERU 4000jU END RDDRESS HF NEXT C ロ LR 
RTS 
TTL CPPN SUBRUT INE 
* BRXC :TEST GRRPHIC CO-URDINRTE XY 
GRXC EGIU に 
LDX ・BX 
LDY ・GY 
BRXCR EQU に 
RaXC1 CNMPX 間 5EXD 
BHS GRXC2 
CMFY #GYD 
BRXC2 _ RTS 
* 
BaS FCBH $B0 
FCB $40 
FCB $20 
FCB $10 
FCB $08 
FCB $04 
FCB $02 
FCB $01 
* 
束 
に 
* 
* BPGETR : RERD CULUR CDE 


FT] 
GBPGETR EQU = 
GBPGET1 VRCON 


BITR VACE 
CLRa 
BITB  ..VBiU 
BE GPGET2 
INCR 

GPGET2 BITB  ..VRuU 
BED  。BPGBET3 
RDDR  #2 

GPGET3 BITB  ..VBiU 
BE GPGET4 
RDDR  #4 

GRPGET4 UaCOFF 
STR VaCC 
RTS 

* 

* 

* 

* 

* CFDR : MAKE CHRRRCTER FONT RDDRESS 

ょ 

CFDR EBU =* 
PSHS AzB 
LDB #CFH 
PUL 
RDDD  #..CFNT 
TFR  DxX 
RTSPUL (RB) 
PULS arBxPC 

* 

に 

に 

に 

* CBaDR : CALCULATE BUFFER DDRESS 

* 

CBRDR EQU  * 
PDD BY 
JSR BADR 


s リ スト 
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10 


サ プ シ ジ シス テム ・ モ ニタ ソー スズ ス 
00894R_E3CC 9F に (1 
00895R _E3CE 109F 52 介 
Q0896R E3D1 DC 4E は 1 
00B9?R E3D3 BD E22R に 1 
0089 ヨ R E3D6 DD 4 仙 
0OB99R E3DB 39 
00900 
00901 
00902 
00903 
00904 
00905 
00906 
00907 E3D9 人 
0090 ヨ BR E3D9 91 34 
00909R E3DB 24 02 E3DF 
00910R E3DD D1 41 は 1 
00911R E3DF 39 
00912 
00913 
00914 E3EO R 
00915R E3EO 34 32 RR 
00916R E3E2 EC 61 R 
00917R E3E4 BD 12 E3F8 
0091 ヨ 8R E3E6 1E 02 仙 
00919 E3EB B6 50 1 
00920R E3ER 3D 
00921R E3EB 33 BB 人 
00922R E3ED CC E396 仙 
00923 E3FO 1E 02 R 
00924R E3F2 E6 5 代 
00925R E3F4 

R E3F4 35 Be 1 
00926 
00927 
0092B 
00929 
00930 
00931 
00932 E3F6 R 
00933R E3F6 1F 01 1 
00934R E3FB BD 05 E3FF 
00935SR E3FR 1E 01 RR 
00936R E3FC C4 07 R 
00937R E3FE 39 
00938 
00939 
00940 
0094 1 E3FF RR 
00942R E3FF 44 
00943R E400 56 
00944R E401 44 
00945R E402 56 
00946R E403 44 
00947R E404 56 
0094 ヨ R E405 39 
00949 
009SOR E406 BE D383 
00951 E409 10BE DOSF R 
00952R E40D C6 08 1 
00953_E40F 8BD 3D E44E 
00954R E411 BD OB E41E 
0095SR_ E413 DC 63 人 R 
009S56R E415 93 SF RR 
00957R E417 1F 01 1 
009S5BR E419 DC 65 R 
00959 E41B 93 61 1 
00960R E41D 39 
00961 
00962 
00963 
00964 
00965 
00966 E41E は 1 
00967R E41E CE DOSF に 1 
00968R E421 RE CE4 に 1 
00969R E423 10E 42 R 
009?0R E426 BD 1E E446 
00971R E42B RE 44 人 
00972R E42R 10RE 46 RR 
00973 E42D BD 1? E446 
00974R _ E42F RC E4 1 
0097SR _E431 24 06 E439 
00976R _E433 EC CE4 人 
00977R E435 RF C4 1 
Q097BR E437 ED 44 1 
00979R _E439 10RC 42 1 
009B0R _E43C 24 0 E445 
009B1R E43E EC 42 1 
009B2R E440 10RF 42 R 
009B3R E443 ED 46 R 
Q0984R E445 39 
00985 
009B6R E446 BD E3BC 1 
0098YR _ E449 25 FR E445 
0098BBR E44B 7E EOD1 R 
00989 
00990 
00991 
00992 
00993 
00994 
00995 
00996 
0099? E44E 1 
00998R E44E R6 BO に 1 
00999n E4SO RY RO 代 
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・ リ スト 
STX ・CBRD 0100OR 
STY ・CRRD 01001 
LDD ・EY 01002R 
JSR BUD 01003 
STD ・CVD 01004 
RTS 01005 
に 01O06 
に 01008 
01009 
キ 010108 
に 01011 人 8 
* CRXCR : TEST CHRRRCTER CU-DRDINRTE 01012 
キ 01013R 
CRXCR EQU き 01014 
CTPR ・- LNC 01015SR 
BEC CRXC2 01016R 
CIPFB ・・DNMIRP+ ご *3 01017R 
CRXC2 RTS 01018R 
キ 01019 
* 01020 
GRRDDR ER5U * 01021 
FSHS RsXnY 01022 
LDD 15 01023 
BSR GXUFFR 01024 
EXG DhY 01025R 
LDR #BXBSZ 01026R 
PUL 01027R 
LERU DX 0102BR 
LDD せ BRS 01029R 
EXG DxY 010308 
LDB BY 010318 
RTSPUL (RxXxY) 01032a 
PULS RxXrYhPC 010338 
* 01034R 
き 01035R 
* 。 BOXFF: CRLCULRTE DFFSET URLUE RND BIT NUMBER 01036 
L] ロ F GRRPHIC X CU- ロ RDINRTE 01037 
M』 0103B 
しい 01039R 
GXOFF EQU * 010408 
TFR DX TRRSFER X CO-DRDINRTE TO X 01041 
GXDFFR BSR LSRD3 010428 
EXG DX SET QFFSET URLUE 010438 
RNDB 人 # 多 0 SET BIT NUMBER Q1044 
RTS 01045R 
則 1 
* END GXOFF 01046 
ha 0104? 
LSRD3 EQU に 01048 
LSRA 01049 
RORB 01050 
し SRR 01051 
RURB 01052R 
LSRA 010538 
FRORB 01054R 
RTS 010SSR 
01056A 
BOXINV LDX CMDPRN 01057a 
LDY #. BUXX1 01058R 
LDB # 日 01059a 
BSR MOUE 010606 
BSR BQX 010618 
LDD ・BUXX2 010628 
SUBD ・ BOXX1 01063 
TFR DX 人 
LDD ・BUXY2 
SUBD  ・BOXY1 01065A 
RTS R 
5 01066R 
* 。 BUX: TEST TMO PUINT CU- ロ nRDINRTE OOGZA 
* 
1 
に 
BOX EQU * れい 
LDU #. BUXX1 TUP RDDRESS U 
BOXR  LDX uiU 0 
LDY 2 ヵ U 
BSR GRXCHK 1 
LDX 4xU 01072 
LDY 6U 01073a 
BSR GaXCHK 内 
CTPX U 
BHS BOX1 0107SA 
LDD 01o76Aa 
STX U 01077R 
STD 4.U a 
BOX1 CMPY つら ヵ U 
BHG Boxe o1o75 
LDD ら 。U 01080 
STY exU 01081 
STD 6U 01082A 
BOX2 RTS 010838 
し 
BRXCHK JSR 。 GRXCR COORDINRTES CHECK TS4R 
BCS BOX2 OK. 010BSR 
JP ERR63 ERROR 010Bea 
円 
* END BOX 0 
Ce 01088BR 
010893 
2 01090 
* IOVME: FUE DRTR 092 
円 
Ra 
IVE E5IU 人 
LDa ュ X+ LORD MOVE DRTR OO 
STA 。 ・Y+ STORE POVE DaTR 0109S8 


E452 
E453 
E455 


E456 
E459 
E4S5B 
E4SE 
E461 
E463 
E465 
E468 
E46B 


E46D 
E46F 
E472 
E475 
E477 
E479 
E4YB 
E47 ビ 
E4?D 
E47E 
E480 
E482 


E484 
E4B6 
E48Y 
E489 
E48B 
E48D 
E48F 
E491 
E491 


E493 
E495 
E498 
E49B 
E49D 
E49F 
E4R1 
E45 
E4RY 
E49 
E4RD 
E4RF 
E4RF 


E4B1 
E4B3 
E4BS 
E4B? 
E4B9 
E4BB 
E4BD 
E4BF 
E4C1 
E4C3 


E4CS 
E4C5 
E4C8 
E4C9 
E4CB 
E4CD 
E4CD 
E4DO 


E4D1 
E4D2 
E4D2 
E4DS 
E4D6 
E4D8 
E4DR 
E4Da 
E4DD 


E4DE 
E4DE 
E4E1 
E4E2 
E4E4 


96g 


EB8 
E? 


E9, 。E4 


Lu 
愉 


LU 
で 


4E 


っ ゃ っ っ ゃ ゃ ゃ 


や や や や や や や や や や や や や や や ヤ や や や や や や や セア 


や や や や や 


の や うる ちや 


DD Dc DD 


DEcCB 
BNE MOVE 
RTS 
* END MOME 
* 
に 
* SET UP LINEX ROUTINE 
。 
INITLN CLR LNCHR 
LDD  .GCL LOeD 
LDX #LNFUNC LAD 
LDU #BLULIN LOD 
BSR 。 LENTRY SET 
LDD .BCL SEP. 
LDX #LNXFNC PRRR 
LDU #BLUSID 
BSR LENTRY 
* RND D 
* SET UP BPDSP RUTINE 
* PICKUP RND SET UECTR TO 
* 
PDSPI ERU  +* 
LDD  .GCL Ra=CO 
RPDSIR LDX #GPDFNC MKE 
FENTRY LDU #BLUDSF LAD 
LENTRY CMPB  #1 ID T 
BNE N ロ TPRE NO. 
LDR  ..BCL YES 
NOTFRE LSLB 
LSLB IKE 
RBX FUNC 
LDB #SYE LORD 
BSR SETENT SET 
BSR SETENT SET 
* SET 
SETENT STB ,U+ SET 
LSRR ・ SET 
PSHS  D SaUE 
EDD* 靖 X RSSU 
BCS CBITON ISr 
LDD 2xX NO 
CBITON STD 。 ,U++ SET 
RTSPUL D 
PULS DuFC 
* 
* BPDSP : DISPLAY DOT ONG 
* 
PDSP EQU  * 
LDX  .GX LOaD 
LDY  .Gy LORD 
BPDSPC JSR 。 GRDDR VRAM 
GPDSPR PSHS  B SAVE 
JSR BLUDSP 
LDB  ,S 
LERU  ..VRiU 
JSR REDDSP 
LDB  、S 
LERU  ..VG-..VRiU 
JSR 。 GREDSP 
RTSPUL B 
PULS BuPC 
* 
PDFNC FDB GBPORRGPAND 
FDB BPRR,BPRND 
FDB BPRR,BPNOP 
FDB BPN ロ P,GPRND 
FDB GBPEOR,GPNOF 
* 
* 
BPORR E9U  * 
UaCON 
BITR VaCC 
NOP 
ロ RB OU 
STB oiU 
VRCOFF 
STA VaCC 
GFNOP RTS 
* 
GPRND EGU  * 
CQB 
VCON 
BITR VCC 
NOP 
RNDB OU 
STB OiU 
UaCQFF 
ST VaCC 
RTS 
ee 
PEOR EQGU ょ * 
UaCON 
BITA  URCC 
NOP 
EORB OU 
STB OU 
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01096R E4E6 URCOFF 
R E4E6 BY  D409 STa UaCC 
01097R E4E9 39 RTS 
01098 * 
01099 * END GPDSP 
01100 * 
01102 * 
01103 * "CDSP* DISPLRY CHRRRCTER 
01104 * 
01105 * IS THE CHRRRCTER CODE. 
ELUR RND FUNCTIUN CODE. 01106 * B IS THE COLOR CODE. 
FUNCTI ロ N ENTRY TaBLE ADDRESS. 01107 * X IS THE DISPLRY RDDRESS. 
RRP HOQK TRBLE ADDRESS. 01108 * 
THE RRM HOOKG. 01109a R CDSINT PSHS Dr.X 
3 1981 01110 に ] STD 
RLLEL T ロ X aXIS LINE*S SIDE Tn SET ENTRY | 01111a ] LDX 
011126 に ] LDB 
011138 RBX 
0 GBPFDSF INITIRLIZE. 01114 は ] 
011158 人 
011168 R CDSIN5 
DISPLRY 01117a a JUMP CODE 
011186 
011198 に 1 
LOR,B=FUNCTIDN 011208 
RM _HOOK FOR DnT DISPLRY. 01121a 人 
RA HUK DDRESS。 01122 
HE FUNCTI ロ N CODE PRESET? 011238 
01124 
USE BRCK COLCR. 01125a 
01126 
RDDRESS OF CURRENT 01127R 
TIQN'S ENTRY TRBLE. 011288 RTSPUL 
JUMF_OPERRTION CODE. 1 PULS 
BLUE'S RRPM HOK 01129 
RED'S RAM HOCK O1130 EgU 
EREEN*S RM HOOK。 01131 LSRR EXTEND 人 *S LOMER 4 
JUMP 01132 RORB BITS TU BBITS ロ N B. 
COLOR BIT TO C. 011336 RSRB RETURNS R IS LOBICRL 
01134R LSRA SHIFTED RIGHT 4. 
ME BIT-0N'S ENTRY 01135 RORB 
T_ ロ N? YES. 011368 RSRB 
LORD BIT-nFF'S ENTRY. 01137R LSRR 
ENTRRY DDRESS. 0113Ba RORB 
011398 RSR 
011408 LSR 
01141R RORB 
01142R RSRB 
RAPHIC C ロ - ロ RDINRTE 01 143 RTS 
01144 
01145R LDX ・CVRD 
01146R SKIP2 
X CO ロ RDINRTES 1 FCB $BC CMPX # 
Y COORDINRTES 01147a LDX ・ BURD 
DDR。 MaDE 01148 EGU * 
BIT MaSK 01149 LERU ぃ X 
01150R JSR CFRDR 。X=FONT RDDR. 
011518 LDR CSLCDS 
01152R BEQ CDSPN 
011538 BITB  #RMRU 
01154R BNE CDSMRU 
01155R LDD #Ow256+4 
01 156R BRR CDSFO 
01157R LDD #4*256+0 
01158 BR CDSFO 
01159R LDa -.BCL BACK COLOR LODED. 
SET 011608 R BITB  #aMRU IF REVERSE IS DIRECTED 
011618 BEg CDSPO BRCK CDLOR RND CHRR 
PRESET 01162a EXG RB COLDR RRE EXCHRNGED-. 
011638 XnU SRUE CULORS>FONT RDDR 
OR 01164 RND DISPLRY RDDR. 
01165R #$07 
RND 01166a 07 
01167R HKFLG IS REQUESTED COLOR SRME RS CURRENT COLORY 
EQOR 0116Ba CDSP1 YES. 


01 169R CDSINT HK COLOR 

01170 * 

01171RF ・・ CMD IS THE CHRRRCTER MIDTH 
01172 SRLL 

01 173 CDSPSO YES. 

01174R #EXFUNT NO 「QKE LRRGE CHRR. 
01 175R に 】 FONT RDDR RESTURE. 
01176R CEFH 

01177R B 

0117BR *X キ URIGINRL FONT LORDED. 
01179R BITEXT EXTEND LOMER 4。 

0118OR ヨ ヵ U 

01181 BITEXT EXTEND HIGHER 4BITS. 
01 182R *U+ 

01183R ・S END? 

01184R CDSP3 NO: GO DO MORE. 

01 18S5R 1S YES, RESTORE SFP. - 
01186R CSLCDS MONOY 

01187R CDSPNMN YES. 

01188 
01189 
0119308 
01191R 
011928 
01 193R 
01194R 
01 195R 
01196R 
01 197 
01 198a 
01 199 
012008 


ul 
Q 
ム 


*S 

と で に ) 
#CFH 
HKBLUE 
sS 
らら 
・・UR:X 
#CFH 
HKRED 
に 1 

2S 

・・ VGX 


や や や や や や や や や や や 
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01201 ESBC CE 000B | LDD #CFH 01297R E6ZBH BD ED9F R JSR 
01202R ESBF 9D 93 Ra JSR HKGREE 01298R E62ZE 35S 0Z 人 PULS 
01203R E591 RTSPUL (X ヵ U) 01299R E630 B1 14 朋 CMPR 

a ES91 35 DO に 1 PULS 。X,U,PC 01300R E632 24 12  E646 BHS 
01204R E593 43 CDSRUVL CM NOT REQUEST 01301R E634 BE  EBB4 R LDX 
01205R ES94 34 14 R CDSNIL PSHS X。B 01302R E637 48 LSLR 
01206R E596 BD 06 E59E BSR CDSNIS MSB PUT 01303R _E63 RD 96 は JSR 
01207R ES98 35 14 介 PULS X:H 01304R E63R 20 B6 ES5F2 BRR 
012QBR ES9R 30 01 R LERX 1X 01305 * 
01209R E59C SKIP1 * LSB PUT 01306R E63C B1 7F R PUT105 CIFR 

RR ES59C る 21 1 FCB $21 01307R E63E 2? B2 ESF2 BEG 
01210R ES9D 43 CDSRUS COMA NOT REQUEST 01308BR E640 BD 21 E663 FUT106 BSR 
01211R ES9E 97 2E R CDSNMS STR ・・ELEX REQUEST BIT STRING STORE 01309R E642 OF 1 に 人 ELR 
01212 ESRO URCON 01310R E644 2O EC ESF2 BRR 

R E5RO BS  D409 R BITR  UVRCCE 01311 * 
01213R E5R3 R6 CO R CDSTR LDR ぅ U+ 01312R E646 BO 1 ヒ R FUT10B SUBR 
Q1214R ESRS 98 2E R ERR ・・CELEX 013138 E64 2B RB ES5F2 BI 
01215R ES5R7 RY B4 R STR ュ X 01314R E64R 34 G2 R FSHS 
O1216R ESR9 30 BB SO R LERX BXBSZ ュ X 01315R E64C BD E?62 介 JSR 
01217R E5RC SR DECH 01316R E64F 35 02 人 FULS 
O121BR ESRD 26  F4 ESa3 BNE CDSTR 01317R E651 4 LSLR 
01219R ESRF URCUFF 01318BR E652 BE EC90 LDX 

R ES5RF B?  D409 R STA UaCC 01319R E6S5 RD 96 Ra JSR 
01220R E5H2 96 2E R LDR ・・CLEX RESTUDRE R. 01320R E65?7 BD  EY6B に 1 JSR 
01221R ESB4 SKIP1 013218 E6SR BD EZ201 に 1 JSR 

R ESB4 る 1 R FCB 21 01322R E6SD OF 20 人 R CLR 
01222A ESB5 43 CDSUNS COMQ 01323R E65SF 20 91 ESF2 BRR 
01223R ESB6 EDSDFS VREUN 01324 キ 

R ESB6 BS D409 人 BITR URCC 0132SR E661 B6 20 R PUTSF'C LDR 
01224R E5BH9 DB 30 人 R RDDB  ..CHT  RDD MRRGIN 01326 E663 R FUTCHR EQU 
0122SR ESBB 27 QB ESCS BE DSRTS IF PRRGIN IS ZERU GU RETURN. 01327R E663 34 16 1 PSHS 
01226Q ES5BD RY B4 R EDCLR STR ュ X 0132BR E665 RY 9F DO45 8 STR 
01227R ESBF 30 BB SO Ra LERX BXBSZ ェ X 01329R E669 E6 9F DO4? Ra LDB 
0122BR ES5C2 5R DECB 01330R E66D 2R 09  E678 BPL 
01229R ESC3 26  FB ESBD BNE CDCLR 01331R E66F OD 2o Ra TST 
01230R ES5C5S DSRTS VRE ロ FF 01332R E671 27 05 E6YB BEB 

R ESC5 Br D409 1 STR UaCC 01333R_E673 BD E6CB は | JSR 
01231R ESCB 39 RTS 01334R E6?Y6 D6 2C 1 LDB 
01232R ESC9 43 EDSCNL CO ・ 01335 E678 R PUT110 EGU 
01233R ESCR 34 14 R CDSOFL PSHS X。B 01336R E67B BD ES51F 人 R JSR 
01234R ESCC BD EB ESB6 BSR CDSDFS 01337R E67B BD E?9E fa JSR 
01235R E5CE 35 14 R PULS X。 日 01338R E6YE B6 FF 1 LDR 
01236R ES5DO 30 01 R LERX 1X 01339R E6BO 97 20 1 STR 
01237R E5D2 20 E2 ES5B6 BRR CDSQFS る 01340R E6B2 RTSPUL 
0123 キ R E6B2 35 96 に 1 PULS 
01239R ESD4 ES5B6 R CDJIP FDB CDSQFS OFF 01341 
01240R ESD6 ES9E 人 FDB CDSNN NORIRL 01342 トト LALLLLLL ユ JO 
01241R ESDB ES59D R FDB CDSRUS REUERSE 01343 に 
01242R ESDR ESBS R FDB CDSONS ON 01344 * ERRSE FIELD 
01243R ESD に ESCAR 1 FDB CDSnFL OFF 01345 に 
01244R ESDE ES594 R FDB CDSNNML NORIRL 01346 トト よ よ よ よ よさ よ さよ て 
0124SR ESEO E593 Ra FDB CDSRUL REUERSE 01347 に 
01246R ESEZ2 ESC9 に 1 FDB CDSDNL ロ N 01348 E684 R PUTOEL E6U 
01247 TTL ENSL - PUT CDE 一 01349R E6B4 OF 2 代 CLR 
01249 DO96 R PCRORD EBU ・MORK CR ORDER FLRG 013SO0R E6B6 BD E?62 R JSR 
012S0 DO3? R PUTGET EQU PCRORD+1 PUT/GET 01351R E6B9 ?7E ER9B R JPP 
01251 DO098 R PUTIX EBU PUTGET+1 01352 mw 
01252 DO9R R PUTFLD ESU PUTIX+2 ERRSE FIELD FLRG 01353 ト エ エエ エエ エエ エエ エエ エエ 】 
01253 DO9B R PUTEND EBU PUTFLD+1 013S4 各 
01254 に 01355 BELL 
01255 * BET CONMMRND 01356 
012S6 に 0135? エエ エエ エナ エエ エエ エエ エ ] 
0125? * PUT COMMRND 013S 
012SH ロ 01359 E6BC R GETBEL EQU 
012598 ESE4 FLGENT FUT,BET。PUTGET 01360 E6BC R PUTOBL EQU 

R ESE4 Be R GET FCB $B6 LDR 01361a E68C BUZZQN 

R ESE5 4F PUT CLRR R E6BC BS D403 1 BITa 

R ESE6 97 97 に 1 STA PUTGET 01362R E6BF 39 PUTNOP RTS 
01260 ロ 01363 * 
01261 ESEB R PUTOOO EQU = DISPLRY STRING BEGIN 01364 に よ よ エエ エエ エエ 
01262R ESEB BD  E9Z2F 人 JSR GETRNG DISPLRY MINDOM RRNGE MRDE 01365 に 
01263R ESEB BE D384 人 LDX #. EDUMRR+4 01366 * ERRSE RLL 
01264R ESEE 9F 98 に 1 STX PUTIX STRING PTR INIT. 0136? 
01265R ESFO OF 96 人 CLR PCRURD  CLERR CR DURDER FLRG FOR SUSPEND TO PUT. 01368 も エル よ よい よこ よし 
01266 ESF2 R PUTO10 EBMU Lu 01369 * 
01267R ESF2 BD  EY29 R JSR PUTDRT TaKE PUT CHAR 013?0 E690 R PUTOCL EQU 
0126BR ESFS 24 2  E61F BCC PUT100 EXIST 013?71R E690 96 4D 仙 LDA 
01269R ESF?Y OD に 4 R TST PUTGET DRTR END 01372R E692 BD EZ25 人 JSR 
01270R ESF9 1026 O2DF EBDC LBNE GETOOO GET UPRRTERS INPUT 01373R E695 OF 20 人 CLR 
01271R ESFD 96 1F R LDR ・CSCTL SUSPEND TO PUT? 01374R E697 39 RTS 
012Y2a ESFF BS5 10 は | BITR #CSLSUS 01375 [ 
01273 E601 27 19 E61C BEB FUT099 NO. 01376 AOL オル よう いよ て 1 
01274R E603 96 96 に 1 LDR PCRORD DID ME DO CR ORDER? 01377 
01275R E605 27 15 E61C BEG PUT099 NO. 01378 * NEM LINE 
01276R E607 SEF DISRBLE KEY INTERRUPT. 01379 め 

R E60P 1R 40 R DRCC  #$40 01380 エエ エエ エエ エエ エエ TL 
01277R_E609 DC 03 R LDD KEYDRT 013B1 を 
0127BR E6OB 4D TSTR 013B2R E698 97 96 R PUTOCR STA 
01279R E6OC 2B  OE  E61C BYI PUTO99 01383R E69R OF 44 に 1 CLR 
012B0R E60E 27 0C E61 ヒ BEG FUT099 013B4R 本 嘆 96 1F R LDR 
012B1R E610 C1 1B に 1 CPPB ESC 013BSR E69E 8B5 20 人 BITA 
012B2R E612 26 QB E61 ヒ BNE FUT099 013B6R E6RO 2 03 E65 BE 
01283R E614 OF 03 介 CLR KEYDaT 0138B? E6R2 R PUT ロ LF EQU 
012B4R E616 1 ヒビ RF 介 RNDCC  #$RRF KEY RND RBEND INTERRUPT ENRBLE. 013BBR E6R2 BD EYRF 朋 JSR 
0128BSR _E618 96 03 R_PUTO90 LDR KEYDRT MRIT 01389 E685 R PUTSSO ESU 
012B6R E61R 2 ァ FC E618 BEB FUTO90 01390R E6R5 OF 20 RR CLR 
0128YR_E61C PUT099 CLF ENRBLE KEY INTERRUPT 01391 E6R7 YE EZ201 R PUTS6O JP 

R E61C 1 ヒビ BF 1 RNDCC  #$BF 01392R E6RR 96 4B R PUTOHIY LDR 
012BBR E61E 39 RTS 01393R _E6RC ヴァ 43 人 STR 
01289 ロ 01394R E6RE OF 44 人 CLR 
01290 E61F R_ PUT10O EQU 01395R E6BO 2O  F3  E685 BR 
01291R E61F D6 1F 人 LDB ・CSCTL 01396 に 
01292R E621 C5 02 R BITB  、#CSLORD 0139? = 
01293R E623 27 1B E640 BEB PUT106 DRDER DISRBLE 01398 ト エ エエ エエ エエ エエ エエ エエ ] 
01294R E625 8B1 20 人 CPPR 3 01399 
01295R E62Y 24 13  E63C BHS PUT105 01400 * 。 STRRT FIELD 
01296R E629 34 02 人 PSHS 人 01401 癌 

01402 エエ エエ エエ よ エ よ エエ すす 了 】 
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CURCLR 

人 

#$14 

PUT10B _ CURSHR _nRDER 
#PUTURD 


[RsX] 
FUT010 


7F 

PUTO010 
FUTCHR 
・EURST 
FUTO10 


1 ビ CURSHR CUDE? 
PUTO10 Nd, NH DPERRTI ロ N. 
人 SRUE 

BTOC 

RA 


#BETJCS CURSUR ENTRY 
[RxX] CURSHR MIUE 
CTQOB BUFFER FTR 
BUFPTR 

FUTCFG 

PUTO10 


SET 


PO 
RBxX 

[. BPRD] 
[. BAAD] 
PUT110 
PUTCFG 
FUT110 
PUTATR 
・・ RCL 

L 

CDSFB 
PUTINC 
#$FF 
PUTCFG 
(ArBxX) 
RxBrXrPC 


CHaR STURE 

IS HERE TUP DF THE FIELD? 

N0。 (THE FIELD TRG 1S THE MSB.) 
CUNTINURNCE マ 

NO. 

RTTR SET UNE FIELD 


・MDRG+2 KIND OF PLACE 
ERRSE 1 
FUTCFG 


し ま 表 - ま 全 .】 


FCRURD SET THE CR QRDER FLRG. 
・BPX SET THE MQST LEFT POSITIQN. 
・ESCTL 

#CSLRLF IS THE RUTU LF ENRBLE? 
PUTS5O NO. 


還 
PUTDM 
* 


PUTCFG 
BUFPTR 
・MDRG 
・BFY 
・BPX 
PUTSSO 


TOP Y COQRDINRTES 


ト エ エ ] 


エエ ] 








01403 
01404 
0140Sa 
01406R 
01407Aa 
0140BR 
01409 
014108 
01411 
01412R 
01413a 
01414R 
014158 
01416 
01417 
01418a 
014198 
014208 
01421 
01422a 
014238 
014248 
014258 
01426 
01427 人 8 
01428 
01429 
014308 
01431 
01432 
人 
01433 
01434 
01435 
01436 
0143? 
01438 
01439 
01440 
014418 
014428 
014438 
01444R 
0144S5R 
01446 
01447R 
0144BR 
01449 
01450R 
014S51R 
01452A 
014538 
01454R 
0145Sn 
01456R 
01457R 
0145BR 
01459 
014608 
01461F 
01462R 
01463 
01464 
01465 
01466 
01467 
01468 
01469 
01470 
014718 
01 472R 
014738 
01474 
0147SR 
01476A 
01477R 
9147BR 
01479R 
014808 
014818 
01482 
014 昌 3 
01484R 
01485 
01486a 
014B7R 
01 4BBR 
014B9R 
01490 
01491 
人 
01492R 
01493 
014948 
0149S5a 
01 496R 
01497R 
R 
01498R 
01499 
01S00R 
01501R 
01502 
01503 
01S504 
01505 
01S06 
01507 


E6B2 
E6BS 
E6B 
E6B9 
E6BB 
E6BD 
E6BF 
E6C1 
E6C3 
E6C5 
E6CY 


E6CB 
E6CR 
E6CC 
E6CE 
E6DO 
E6D2 
E6D4 
E6D6 
E6D8 
E6DR 


E6DC 
E6DE 
E6EQ 
E6E と 
E6E2 


E?15 
E717 
EY19 
EY1BH 
E?1D 
E?1F 
E?20 
EY22 
EY25 
E7Y26 
EY28 


EY29 


EY2B 
E?2E 
E730 
EY32 
E734 
EY36 
E?36 
E?3B 
E?3a 
EY コ 3 に 
EYGE 
E741 
E?43 
EY43 
EY45 
EY4B 
E74BH 
E?Y4D 


E6B2 
EY29 
35 
3 編 
2C 
OB 
4? 
B4 
B0 
B4 
20 


代 
R 
E6EC 
R 
1 
E6CB 


人 
E?29 
E6EC 

代 
E?29 
E6EC 


EY2B 
R 


E722 


10 


サ プ シ ステ ム ・ モ ニタ ソー ス ・ リ スト 





ャ 
FUTQSF EQU * 


JSR FUTDRT RTTR GET 
BCS PUT?20 
RNDR #ー(RMFL+RNID ) -$FFO1 NHT RMFL 
ST ・・RCL 
BSR PUTaTR 
LDX ・BRRD 
LDR ュ X 
DRR #RMFL 
STR ュ X 
CLR PUTCFG 
RTS 
に 3 
FUTRTR E5U * 
PSHS RsH 
LDX ・BRRD 
LDR ュ X LHRD THE RTTR IN CURR. PS. 
RNDR #$3F FICKUF_USER*S RTTR FIELD 
STA ュ X 
CMPR ・・ RCL SRME RS CURR RTTR 
BE PUTRT9 YES。 DHNT RESTORE. 
LDR CSLCDS MOUN ロ Y 
BNE PUTRT9 YES.。 GO RETURN. 
LDR REL 
PUTRT5 ERU し 
STR ュ X+ 
LDB ュ X 
BPL FUTaT5 
PUTRT9 RTSPUL (Rx:H) 
FULS RxBsPC 
w 
エエ エエ エエ エエ エエ エエ エナ エエ エエ エエ すす す ] 
* * 
* SET BUFFER DDRESS * 
ャ * 





エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ イコ 


ャ 
FUTOSB EQU * 





BSR 。 PUTDAT X CO- ロ RDINRTE 
BCS FUT7Y2O 
TFR axB 
BSR PUTDAT Y CO-nRDINRTE 
PUTY20 LBCS ERR62 
EXG RuB 
JSR CRXCR 
LBCC ERR62 DRDER ERROR 
STR .BPX 
STB  .BPY 
LDX #..DMaP 
CLRA 
PUTY50 INCR 
CMPB 。 ,」X++ 
BLO PUTY5o 
CMPB  -1X 
BHS PUTYSO 
STa .MDRG+2 KIND 
LDD  -2iX 
STD .MDRG  RRNGE 
JSR GETRNG 
BRR PUT55O 
* 
アト 
内 * 
* REPERT CHRRRCTER * 
に 還 


ト エ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ 


* 
FUTORC EQU * 





BSR 。 PUTDaT NO. OF REP 
BCS PUTY2O 
TFR axB 
BSR 。 PUTDaT CHaR 
BCS PUT720 
TSTB 

3 BE PUTBO9 

PUTB05 JSR 。 PUTCHR 
DECB 
BNE PUTBO5 

PUTB09 RTS 

e 

FUTDAT EoU  ・ 
PSHS  X 

PUTDA1 E9U  * 
LDR .COMaR+3 
BNE PUTDR2 
LDR  ..CONT 
BMI PUTD83 
SEC 
RTSPUL X 
PULS XPC 

PUTDA2 LDX PUTIX 
LDA x+ 
STX PUTIX 
DEC .COMaR+3 
CLC 
RTSPUL X 
FULS 。XxPC 

PUTDA3 JSR CONTI 
LDX #.COMRR+4 
STX PUTIX 
BRR PUTD1 

・ 

の 

* ・ 

*・ BRCKSPACE * 

・ 

に に も た た よ たよ すす えす よ よ すす 





277 


』0 


サ プ シ ステ ム ・ モ ニタ 


01508 
01509 
01510R 
01511 
01512R 
01513 
0151 4 人 
01515R 
01516R 
01517R 
01518R 
01519 
0152OR 
01521R 
01522R 
01523 
01524 
0152SR 
01526R 
01527 
01528 
01529 
01530 
01531 
01532 
01533 
01534 
01535R 
01536R 
01537R 
0153BR 
01539R 
01540 
01541 
01542 
01543R 
01544R 
0154SR 
01546R 
01547R 
01548R 
015498 
01550R 
015S18 
01552AR 
015S38 
01554R 
01SSSA 
01556R 
01S5S7R 
015SBR 
01559 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01S67R 
0156BR 
01569A 
01570R 
015Y1 
01572R 
01573 
01574R 
01S5YSR 
01576R 
0157? 
01578 
01S79 
015B0 
01S81 
0158B2 
01583 
015B4 
01SBSa 
01SB6R 
015B7R 
01SBBQ 
015B9 
01590R 
01591 
01592R 
01593 
01594R 
01S9SR 
01596R 
01597R 
人 
01S98a 
01599 
016008 
016018 
01602 
01603 
016048 
0160SR 
01607 
01608 
01609 
01610 
01611 
01612 
01613 
01614Ra 
0161S5R 
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E?4F 
E751 
E?S3 
E?5S 
E7S 
E7SR 
E7SC 
EY5F 
E?61 


E?62 
E765 
E769 
EY6B 
EY6E 
E772 
E774 


EY9E 
EYRO 
E7R2 
EYR4 


EYA6 


E79 
EYRB 
E?RD 


EYRF 
E?B1 
E?YB3 
EYBS 


E?BP 
EYB9 
E?BH 


E7YBD 
E7BF 
EYC1 
EYEC3 
E7C3 
E?C6 
EYC9 
EYCB 
EYCD 
EYDO 
EYD2 
EYDS 
EYD 


EYDR 
E?DC 


ンー ス ・ リ スト 
E?4F に 1 
9E 4? RR 
6 8B4 人 
2B OR ESF 
BD OB  EY62 
BD EROF 人 
BD OF EY6B 
BD EZ201 Ra 
OF 20 代 
39 
BE DO43 人 
10BE DO4E 人 
USOT EFZ7 る 
BE DO4E R 
108E DO43 R 
C6 08 代 
YE  E44E 朋 
E77T 1 
BD  E661 R 
96 。 44 に 1 
BD 03  E%B1 
が E の の の 
39 
EYB1 1 
D6 1F 人 
C5 。 04 R 
27 5 E79 だ 
4D 
27 12  E79C 
1F 89 人 
54 
54 
54 
B4 0? に 1 
BE  E396 1 
R6  B6 人 
BE DO22 人 
RS BS に 1 
39 
4C 
39 
E79E R 
OC 44 は ] 
96 。 44 代 
91 34 人 
24 03  EYa9 
EYa6 に は] 
?E  E201 1 
OF 44 1 
96 1F 人 
2B。 PP _.E7R6 
E?6F 1 
0OC 43 に 1 
96 43 1 
91 4 ヒ 人 
25 。 EF  E786 
96 4D 1 
B1 01 人 
の の 1D  E?DA 
96 1F 仙 
BS 08 人 
27? 14  E?DY 
BS  D403 代 
BE  E690 1 
9F 00 人 
pe 認 ココ 
BD  FDBE 1 
1 10 
BE 00oOO 代 
9F 00O RR 
?E  E690O 人 
EYDR 人 
96 。 4 に Ra 
D6 4C 人 


由 
PUTOBS EQU * 
LDX  .BaAD 
LDA ュ X 
BNMI PUTOB9 FIELD TOP 
BSR BTOC 
JSR CSL 
BSR CTQOB 
JSR BUFPTR 
PUTOB9 CLR 。 PUTCFG 
RTS 
* 
BTOE  LDX  #.BFY 
LDY #。 CY 
BRR CTOBM 
CTOB  LDX  #.CY 
LDY #、 BPY 
CTOBM LDB #B 
JMP MOVE 
* 
に すす すす すす すす 1] 
ま に 
* TB * 
* 
に し た えす すす すす 】 
* 
PUTOTB EQU ロ 
JSR PUTSPC 
LDR  .BPX 
BSR TRBCHK 
BEQ FUTOTB 
RTS 
* 
TaBCHK EgU * 
LDB - CSCTL 
BITB 。#CSLTRB 
BEG TaBCK9 
TSTR 
BEQ TABCK9 
TFR auB 
LSRB 
LSRB 
LSRB 
FRNDR  #$07 
LDX #BRS 
LDA arX 
LDX  !' #.TaBST 
BITR BiX 
RTS 
TRBCK9 INCA 
RTS 
* 
し し エエ エエ よ よ よ すす エエ よ すす 】 
* 3 
* 。 INCREMANT * 
* 
| 
PUTINC EgU * 
INC  .BPX 
LDa . BFX 
CrPR  ..LNC 
BHS FUTINS RIGHT DUER 
PUTIN3 EgU * 
JMP BUFFTR 
に 
PUTIN5 CLR  .BPX DouN 
LDA  .CSCTL 
BMI PUTIN3 
に 
に も たよ すす す て よ エエ エエ ます エコ 
に 加 
* DOMN * 
に に 
した エ よ よ すす すす すす すす すす 】 
* 
PUTDM EeU * 
INC  .BPY 
LDR  .BPY 
CMPR 。.PMDRG+1 
BLD PUTIN3 INNER 
* 
LDR .MDRG+2 KIND OF MINDQM 
CMPR  #1 
BED SCRQLL 
* PAGE 
LDa  .CSCTL 
BITR 。#CSLPAG PAGE LIMIT MAIT? 
BE9 FUTDYO NO. 
BUZZnN 
BITR BUZZER 
LDX #PUTOCL 
STX --IRBE ENTRY SET 
CLI TRG ENABLE 
JSR KEYGBET 
SEI TRGg MaSK 
LDX #O 
STX ..IRGEE ENTRY CLERR 
PUTDYO JP PUTQCL 
TP 
< * 
* SCROLL * 
| 
SCROLL EgU * 
LDR .MDRGr1 
LDB .PDRGr+1 








01616R EYDE SC 
01617R EYDF DD "3 R 
0161BR EYE1 91 41 
01619R EYE3 26 32  EB17 
0162OR EYES D6 4B 介 
01621 
01622R EYEY 34 01 R 
01623R EYE9 26 2E  EB19 
01624R EYEB 96 36 R 
01625R EYED 27 11 EBOO 
01626R EYEF DC "3 R 
01627R EYF1 C3 020g R 
0162BR EYF4 DD "3 に 1 
01629R EYF6 BD  E2D? 1 
01630R ETF9 DC "3 は | 
01631 E7FB B3 0202 1 
01632R EYFE DD "3 は! 
01633 EBOO0 人 
01634R EBOO BD EZ2DY 代 
01635R EBO3 DC 1D 人 
01636R EBOS D3 39 R 
0163?7R EBOY 

R EBO? BS  D409 人 
01638R EBOR DD 1D 人 
01639R EBOCE FD  D4OE に 1 
01640R EBOF 

R EBOF B?  D4093 に 1 
01641R EB12 BD EDBE RR 
01642R EB15 20 51 EB68 
01643 
01644 EB1? 人 
01645R EB1?7 34 01 R 
01646R EB19 4 
0164?R EB1R 91 4B R 
0164BA EB1C 27 6  EBBB 
01649R EB1E 96 4C R 
0165SOR EB2ZO BD  E226 1 
01651R EB23 1F 01 1 
01652R EB2S 96 4B R 
01653R EB27 BD EZ226 1 
0165S4R EB2R 1F 02 は] 
0165SR EB2C D3 39 代 
01656R EB2E 1F 03 に 1 
0165?R EB3O 

R EB3O BS  D409 R 
016SBR EB33 96 21 R 
01659R EB35 26 20  EBSY 
01660R EB3? 34 10 人 
01661R EB39 1F 31 に 1 
01662R EB3B EC 89 8O0O R 
01663R EB3F ED  R9 BOOO Ra 
01664R EB43 EC  B9 4000 R 
01665R EB4? ED  R9 4000 8 
01666R EB4B EC 日 1 R 
0166?R EB4D ED  R1 人 
0166BR EB4F RC  E4 R 
01669R EBS1 25 EB  EB3B 
016?0R EBS3 32 62 人 
016?71R EBSS 2O0  OE  EB65S 
016Y2R EBS7 30 9 8000 8 
01673R EBSB 31 R9 BOOO R 
016?Y4R EBSF 33 ヒ C9 8000 R 
0167SR EB63 BD 38  EB9D 
016?6R EB6S 

R EB65 B7  D409 仙 
0167? 
0167BR EB6B 96 4B 1 
016Y9R EB6R BD EZ2OD R 
016BOR EB6D 34 30 R 
016B1R EB6F 96 4C 人 
016B2R EBY1 BD EZ2OD R 
01683R EB?4 35 40 人 
016B4R EB76 34 20 人 
0168SR EBYB 31 C4 和合 
0168B6R EB7R D6 34 代 
016B?R EB?C 33 CS R 
016BBR EB?E BD 1D  EB9D 
01689R EBBO 35 30 1 
01690 
01691R EBB2 D6 34 1 
01692R EBB4 33 RS R 
01693Q EBB6 BD 15 。 EB9D 
01694 
01695 EBBB 介 
01696R EBBB DC "3 代 
01697R EBBR 4R 
01698R EBBB SR 
01699R EBBC 97 43 人 
017?700R EBBE DD "3 R 
01701R EB90 35 01 人 
01702R EB92 27 03  EB97 
01703R EB94 BD  E2D? 人 
01?04R EB9? BD  E335 1 
01705R EB9R YE EZ2C9 R 
01?06 
01707 E89D 人 
01708 
01'709 
01710 
01711 
01712 
01713 
01714 
01715 
01716 
01717 
01718R EB9D 34 10 R 


INCB 
STD  .CVTOP 
CMPR  ..DMQP+6 
BNE SCROO4 
LDB  .MDRG 
* 
FPSHS CC 
BNE SCROOS 
LDR  ..FS 
BER SCROO2 
LDD  .CVTOP 
RDDD  #$0202 
STD .CUTOP 
JSR ERSURM 
LDD  .CUToP 
SUBD  #$0202 
STD .CVTaP 
SCRO02.EQU * 
JSR ERSURN 
LDD .VOFST 
RDDD  ..VLU 
VaCON 
BITA VaCC 
STD  .VQFST 
STD SQFFST 
VRCDFF 
STa UaCC 
JSR INDICT 
BRR SCRO15 
* 
SCROO04 ERU  * 
FSHS CC 
SCRO05 DECA 
CMPR  .PMDRG 
BEGQ SCRO9O 
LDR .MDRGr1 
JSR BVaDL 
TFR DX 
LDR  .MDRG 
JSR BUaDL 
TFR 。 DY 
DDD  ..VLU 
TFR DuU 
VRCDN 
BITA VaCC 
LDR CSLCDS 
BNE MNSCRL 
PSHS  X 
TFR  UxX 
PRSCRL LDD  ..VGxX 
STD  ..VeunY 
LDD  ..URX 
STD  ..VRuY 
LDD ュ X+ キ 
STD ュ Y++ 
CMPX 5 
BLO MRSCRL 
LERS 2,S 
BRR SCRO13 
MNSCRL LERX  ..VGxX 
LEAY  ..VBuY 
LEAU  ..VGuU 
BSR 。 COPLOP 
SCRO13 UaCOFF 
STA VaCC 
ま 
SCRO15 LDR .MDRG 
JSR BADRL 
PSHS XY 
LDR .MDRG+1 
JSR BaDRL 
PULS  U 
PSHS  Y 
LEAY iuU 
LDB  ..LNC 
LERU BuU 
BSR COPLOP 
PULS XY 
* 
LDB  ..LNC 
LERU BY 
BSR COPLOP 
* 
SCRO90 ERU  * 
LDD  .CVTOP 
DECA 
DECB 
STA  .BPY 
STD  .CVToP 
PULS CC 
BER SCRO95 
JSR ERSVRM 
SCRO95 JSR ERSBUF 
JP RSMFLD 
* 
COPLOP ERU  * 
* 
* COPY DaTa 
3 
* U SOURCE TOP QDDRESS 
* Y DESTINRTION TOP aD 
* X SUURCE END ADDRESS 
* U .LT. X 
* MOD (X-U:B) .ER. 0 
還 
PSHS  X 


』O 


サブ プ シ ステ ム s モニ タ 、 シー スリ スト 

















01719R EB9F 37 16 人 COPLDO PULU DX 
0172OR EBR1 ED 4 人 STD rY 
IS THE DISPLAY FULL SCROLL? 01721R EBR3 RF 22 STX 2xY 
NO. 01Y22R EBR5 37 16 1 PULU  D:X 
IS THE TUP DF SCR ロ LL MINDCM SaME RS THE TOF' Q ロ F 017Y23R EBA7 ED 24 R STD 4Y 
DISPLRY? 017Y24R EBR9 RF 26 R STX exY 
01725R EBRB 31 28 R LEAY BY 
NO. 01726R EBRD 11R3 E4 CMPU 5S 
DISPLRY PF? 01727R EBBO 25 ED  EB9F BLO COPLDn 
NO. 017Y2BR EBB2 RTSPUL X 
YES, ERASE THE LAST LINE ロ F DISPLRY. R EBB2 35 90 R PULS XPC 
01?29 円 
01730 001B Ra ESC EBU $1B 
01731 * 
01732 EBB4 R PUTORD EQU 
01733Q EBB4 EeBF に ] FDB PUTNOP  *O0 
01734R EBB6 E6BF R FDB PUTNOP  $01 
01735Q EBBB E6BF R FDB PUTN ロ P  *02 
ERASE LAST LINE BEFOR SCR ロ LLING. 01736 EBBR E6BF に ] FDB FUTNOF  $03 
01737Q EBBC E6BF に 1 FDB PUTNOP  $*04 
0173BR EBBE E6B4 R FDB PUTOEL  $05 
01739R EBCO E6BF R FDB PUTNQF  *06 
01740 EBC2 E6BC R FDB PUTOBL  $07 
01741R EBC4 E74F R FDB PUTOBS  $O8 
01742R EBC6 E7Y7 R FDB FUTOTB $09 
01743 EBCB E6A2 R FDB PUTOLF  *OR 
01744 EBCR E6RR R FDB PUTOHM  $OB 
01745R EBCC E690 R FDB PUTOCL  $OC 
01746R EBCE E69B に ] FDB FUTOCR $OD 
0174YR EBDO EeBF R FDB PUTNOP  *OE 
0174BR EBD2 E6BF R FDB PUTNOP  $OF 
01749n EBD4 E6BF a FDB PUTNOP  $10 
01750R EBD6 E6B2 FDB PUTOSF  $11 
01751Q EBDB E6E4 に ] FDB PUTOSB  $12 
ロ NLY ONE LINE 01752R EBDR E715 R FDB PUTORC  $13 
01753 * 
01754 TTL BETCN - GET CODE - 
SOURCE END RDDRESS O1756 トト 
017S5? * * 
0175B * BET COMMND * 
DESTINRTIDN TOP 01759 3 w 
01760 エエ エエ エエ エエ エエ エエ すす エエ コ 
SOURCE TOP 01761 * 
01762 Do9B R BTTOPC EQU PUTEND 
01763 Do9D R GTBTPC EQU ETTOPC+2 
PONQ? 01764 DogF R BTTDPR EQU BTBTMC+2 
YES. 01765 Doa1 R GTBTIA EGU GTTOPR+2 
SOURCE END 01766 DoQ3 R GTFLD EGU BTBTMR+2 
LOAD TOP OF SOURCE TO X. 01767 DOR4 R GTSCRL EGU GTFLD+1 
01768 * 
01769 EBDC R GETOOO EGU * 
0fY7OR EBDC OF 20 R CLR PUTCFG 
01771R EBDE BD  FDDE R JSR KEYR2 DUMMY RERD 
01772R EBE1 BD ED94 に] JSR CURSET 
01773R EBE4 BE  E927 Ra LDX GETRBT 
01774R EBEY 9F 00 に 1 STX -・ IRQE 
O1Y7S 
01776 * REPOUE MODIFIED DRTR TRG 
0177? mw 
0177BR EBE9 9E 9F 1 LDX BTTOPR 
01779R EBEB 6  B4 R GETOSO LDR sX RTTR 
017BOR EBED B4  BF に 1 RNDR  #-RIMD-$FFO1 REMVE 
Q17B1R EBEF R7  BO Ra STA ュ X+ 
017B2R EBF1 9C  R1 R CMPX GTBTMA 
01783R EBF3 25 F6  EBEB BLn GEToSO 
01784 * 
DESTINRTIDN TOP RDDRESS 017B5 EBF5 R GET100 EgU * 
017B6R EBFS BD  E3CY 1 JSR CBADR 
SRVE 017BYR EBFB B6 01 に 1 LDa #1 
SOURCE END RDDRESS 017BBR EBFR 97 1B に 1 STa ・CURTM 
017B9R EBFC BD EDBY に 1 JSR CURGO 
LORD DESTINRTION TOP RDDRESS. 01790R EBFF 1C  EF CLI IRQ ENRBLE 
SRVUE RTTR*S SOURCE END DDRESS. 01791R E901 BD  FDBE に 1 JSR KEYGET 
SET Y DESTINRTION TOP ADDRESS. 01792R E904 1 10 SEI IRG MaSK 
01793R E906 34 02 a PSHS  R 
SET U SQURCE TOP ADDRESS 01794R E90B BD ED9D R JSR CURSCL 
COPY THE CHGR. 01795Q E9OB 35 02 AR PULS Ra 
LOaD SORCE ADDRESS TO X. 01796R E90D B1 7F 人 CMPR  #$7F DELETE 
LnRD DESTINRTION TOP RDDRESS TO Y. 01797Q E9OF 26 05 E916 BNE GET110 
0179BR E911 BD  EB9Y R JSR BETDEL 
PRKE SDURCE TOP ADDRESS. 01799Q E914 20 DF  EBF5 BR GET1o0 
COPY THE RTTR. 01800R E916 B1 20 R BET110 CMPR  #" 
O1BO1R E918 25 0Q5  E91F BLn GET120 
01BO2R E91R BD  E944 AR JSR GETDT DaTR 
01803R E91D 20  D6  EBFS BRA GET1oo 
01804R E91F 48 BET120 LSLR 
01BO5SR E92O BE ECSB R LDX #GETJPP CONTROL KEY 
01BO6R E923 D 96 に 1 JSR [arX] 
01BO7R E925 2O CE  EBF5 BR GET1oo 
01BOBR E927 BE QooO R BETABT LDX #O 
01B09R E92R 9F 0O Ra STX -・ IRGE 
01B10R E92C YE ED9D ト 1 JP CURSCL 
Q1B11 * 
RSSUNE FIELD. 01812 * MINDOM RRNGE 
01B13 * 
O18B14 * X CHGR TOP 
01815 * 。Y_RTTR TOP 
O1B16 
01B17 E92F R BETRNG EQU = 
O1B18BA E92F 96 4C R LDa - MDRG+ 1 
DRESS 01819Q E931 BD  E20D  ^a JSR BaDRL 
O182OR E934 9F 9D Ra STX GTBTMC CHAR BTN 
01B21R E936 109F R1 に ] STY BTBTMR RTTR BTM 
O18z2n E939 96 4B Ra LDa ・ MDRG 
01823Q E93B BD  E2OD R JSR BaDRL 
Q1824R E93E 9F 9B に] STX GTTOPC 
01B25R E940 109F 9F に] STY BTTOPa 


ーー ニー ーー ーー ニー デー ニー 





279 


10 


サ プ シ ンス テム モータ シー スー リスト 











01B26R E943 39 GETNOP RTS 01930 * 
01B27 * 01931 * UP、 
0182B エエ トト] 01932 ロ 
01829 = 円 01933 ww 
01830 * DaTR * 01934 * 
01B31 * 由 01935 E9D8 R CSUL 
0132 [ユエ ユエ エエ すさ] 01936R _E9DB OR 4E 朋 

01B33 * 01937R E9DR 96 4E R 

01834 E944 R GETDT EGU * 01938R E9DC 91 4B R 
01835R E944 9E 50 R LDX - CBaD 01939R E9DE 2C 0O5  E9E5 
01B36R E946 109E 52 Ra LDY ・ CD 01946R E9EO 96 4C 

01837 E949 E6 Ra4 内 LDB sY 01941R E9E2 4 

01B38R E94B C5 10 は 3] BITB  #RMPT 01942R E9E3 97 4E に ] 
018396 E94D 27 04  E953 BEG GETDTO 01943n E9ES 39 CSUL90 
01840R E94F BUZZON 01944 * 

R E94F B5  D403 R BITR BUZZER 01945 TI 
01B41R E952 39 RTS 01946 * 
01B42 幅 01947 * DQM 
01843R E953 OD 31 R BETDTO TST -・INS INSERT ? 01948 いい 
01B44R E955 26 35  E9BC BNE BETINS YES 01949 し よし 
01845R E957 7  B4 人 GETDT1 STR ュ X 01950 * 
01846R E959 CR 40 に ] DRB #RMMD 01951 E9E6 RA CSDL 
01B47R E95B E7  a4 人 STB sY 01952R E9E6 OC 4E R 
01B4BR E95D BD  E51C R JSR CDSPC 01953R E9EB 96 4E R 
01B49R E960 BD  E9F3 R JSR CSR 01954R E9ER 91 4C 仙 
01850R E963 24 14  E979 BCC GETDT2 0195SR E9EC 2D 04  E9F2 
01B51R E965 96 4D 1 LDR - DRG+2 01956R E9EE 96 4B R 
01852R E967 4 DECA 01957R E9FO 9? 4E 1 
01B53Q E96B 26 OF  E979 BNE GETDT2 FAGE 01958R E9F2 39 CSDL90 
01B54R E96Q BD EDA 人 JSR SCRQLL 01959 SN 
01B55R E96D 03 Ra4 1 CON BTSCRL SET SCROLL FLRG FR INSERT MDE. 01960 吉光 
01B56R E96F OF 44 R CLR ・ BPX 01961 * 
01BS7R E971 DC 43 は | LDD -BFY 01962 * RIG 
01BSBR E9?3 DD 4E R STD 6 01963 
01B59 E9Y5 YE EZ201 人 JP BUFPTR 01964 ああ あり 
01B60R E97B 39 BETDT4 RTS 01965 * 
Q1B61R E979 BD  E3CY R GETDT2 JSR CBRDR 01966 E3F3 R CSR 
01B62R E9?YC E6  R4 R LDB rY 01967R E9F3 OC 4F 1 
01 ヨ 63R E9YE 2R 03  E983 BPL GETDT3 0196BR E9FS 96 4F 人 
01B64R E980 BUZZQN 01969R E9FY 91 34 R 

R E9BO BS  D403 1 BITR BUZZER 01970R E9F9 2D 11 EROC 
01B65R E9B83 9E 4E R BETDT3 LDX IEY 01971Q E9FB OF 4F 人 
O1B66R E9B5S 9C 43 a CMPX  .BPY 01972R E9FD OC 4E に 1 
01B6?YR E9B? 23 EF  E978 BLS GETDT4 01973R E9FF 96 4E R 
01B6BR E989 YE  EY6B R JP CTOB 01974R ERO1 91 4 ヒ C 
01869 * 01975R ERO3 2D 07 EROC 
01B7O E9BC R BETINS EQU ロ 019?6R ERO5 96 4B 人 
018?1R E98BC OF Ra4 人 CLR GTSCRL 01977R EROY 97 4E は ] 
01B72R E9BE 31 21 R LERY 1uY PRE INC 0197BR ERO9 1 01 
01873R E990 6D  BO R GETI10 TST ュ X キ NULL SERRCH 01979R EROB 39 
01B74R E992 27 OB  E99C BEG RETI20 FOUND 01980 3 
01B7SR E994 6D  RO R TST ュ Y+ RMFL 1S ISB 01981 EROC R CSL30 
01B76R E996 2R  FB  E990 BPL BETI10 NOT FIELD 01982R EROE 1 ヒ FE CSR90 
01B77R E998 BUZZON 01983R EROE 39 

R E99B 5  D403 人 BITR BUZZER 01984 * 
01BYBR E99B 39 RTS 01985 PT 
018Y9 E99C R BETI20 EgU * 01986 * 
01BBOR E99C 9E 4E Ra LDX SEY 01987 * LEF 
01BB1A E99E 34 10 R FPSHS  X 01988 * 
01BB2R E9RO 9E So R LDX .CBAD 01989 エイ エエ イ ] 
01BB3R E9R2 109E 52 R LDY -CaAD Q1990 
O1BB4 E9a5 R GETI30 ERU 内 01991 EROF R CSL 
01BB5R E9R5 1F 03 に ] TFR DU CHRR:RTTR SRVE 01992ZR EROF OR 4F 月 
01BB6R E9R7 R6  B4 R LDR ・X 01993R ER11 2R _ F9 EROC 
01BB7R E9R9 E6 Ra4 | LDB sY 01994R ER13 96 34 R 
01BBBR E9RB C4 "7F 人 RNDB  #- 人 IFL--$FFO1 REM ロ UE FIELD 01995R ER15 4 
01BB9R E9RD 34 06 人 FSHS RB STORE POS DaTR SRVE 01996R ER16 97 4F R 
01890R E9RF 1F 30 は ] TFR U,D 01997R ER1B OR 4E R 
01891R E9B1 BD 4  E957 BSR GETDT1 01998R ER1QR 96 4E R 
01B92R E9B3 BD  E3CY に] JSR CBRDR 01999R ER1C 91 4B R 
01B93Q E9B6 35 06 R FULS axB 02000R ER1E 2C EC EROC 
01B94R E9BB 4D TSTA 02001 ER2O 96 4C 人 
01B95R E9H9 26 ER  E985 BNE BETI30 NOT NULL 02002R ER22 4 人 
01896R E9BB 35 06 は ] PULS D 02003R ER23 97 4E 人 
01B97R E9BD 9H  R4 R RDDR BTSCRL 02004R ER2S 1 01 
01B98R E9BF DD 4E R STD 和み 02005R ER2Y 39 
01B99R E9C1 20 30  E9F3 BRA CSR 02o06 * 
01900 円 0zooY 
01901 エエ エエ すす エエ エイ エ すす エエ ] 02008 エエ エエ 1 
01902 * 内 02009 * 
01903 * 。 RIGHT.MRRP * 02010 * ENC 
01904 * 円 02011 * 
01905 て エエ エイ イエ イト 02012 TTYYT1 
01906 円 02013 な 
01907 E9C3 R CSRL  EGU * 02014 ERZB R GETENC 
0190BR E9C3 0C 4F R INC EX 02015 ER2B 1F 10 R 
019096 E9C5 96 4F に 1 LDa si 02016R ER2R 93 9B R 
01910R E9CY 91 34 R CMPR  ..LNC 02017R ER2C 20 04 ER32 
01911A E9C9 2D 02  E9CD BLT CSRL90 0201 昌 
01912R E9CB OF 4F Ra CLR .CX VER 0z019 ER2E R BETENR 
01913Q E9CD 39 CSRL90 RTS 0z2oz2oR ER2E AF zo は 3] 

01914 * 02021R ER30 93 9F に 1 

01915 エエ イキ ャ イト イト 02oz2 円 

01916 * 内 02023 ER32 R BETEN 

0191? * LEFT.MRRP * 02O24R ER32 9E 4B Ra 

01918 * 内 02O25R ER34 9F 4E に 1 

01919 イト Ozoz6 円 

01920 * 02027R ER36 93 33 R BETEN5 

01921 E9CE R CSLL EEU * O02028BR ER3B 2B 04 ER3E 

01922n E9CE OR 4F a DEC SEX 02029 ER3R OC 4E Ra 

01923R E9DO 2R 05  E9D7 BPL CSLL9o 02030R ER3C 2O  FB ER36 

01924R E9D2 96 34 R LDR ・・LNC 02031 紀 

01925R E9D4 4 DECR 02032R ER3E D3 33 R GETEN9 

01926Q E9D5S 97 4F R STA ン 02033a ER40 D? ~ 4F 人 

0192YR E9DY 39 CSLL9O RTS 02034R ER42 33 

01928 門 02035 * 

01929 | 02036 電導 
02037 * 
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サ プ シ ステ ム ・ モ ニタ ソー ス ・ リ スト 








* 0z0o38 * HOYE * 
MRRP * 02039 * * 
* ozo40 PT 
に し し 02041 テ 
ozo42 ER43 a CSHOME EGU * 
EgU 上 02043Q ER43 109E 9F R LDY GTTOPR RTTR 
DEC ・EY 0z2044R EA46 86  BO R CSHOMO LDR #RMFL 
LDR ・EY ozo45R ER4B C6 10 R LDB #RMPT 
CHFR  ・PDRG 0z2046 EA4R R5  R4 R CSHOM5 BITR ぃ Y 
BE CSUL9O 0z204YR ER4C 27 0O4 ER5Z BE CSHOW? 
LDR ・PDRG+ 1 ・ 0z2048R ER4E E5  R4 R BITB  Y 
DECR 02049R ERSO 27 OR ERSC BEG CSHDN9 
STA 。 .CY 02050R ER52 31 21 R CSHOM7 LEAY 1xY 
RTS 0z2051 ERS4 109C R1 人 CYPY GTBTMa 
02052R ER57 25  F1 ER4R BL CSHON5 
あゆ 02053Q ER59 109E 9F R CSHOWB LDY GTTOPA 
* 02054R ER5C BD "DO ERZE CSHOP9 BSR GETENR 
N.MRRP * 02055R ER5E 39 RTS 
0 0z056 * 
ト エ エエ エエ エエ ] 0205? エエ エエ エエ エエ エ よ よ よ よ よ よ よ よ ょ 1 
02058 * * 
EsU ad 02059 * FDRMRRD FIELD * 
INC -EY 02060 * ゆ 
LDR sa じ Y 02061 エエ エ エエ エエ エエ よ エト よ よ よ よ よ よ ] 
CMPR  .PMDRG+1 0zO62 * 
BLT CSDL9o も 02063 ERSF a BETFFD EGU * 
LDR  .MDRG 0z064R ER5F BD  E9F3 Ra JSR CSR RIGHT 
STR ・CY Oz2065R ER62 BD  E3CY R JSR CBRDR 
RTS 02066R ER65 20 DF ERA46 BRA CSHOIO 
0z067 * 
し エエ エエ 】 02068 1 
sd 02069 * BRCKMRRD FIELD 
Heews 0zoYO * 
に は 0z2071 ER67 R GETBFD EgU ・ 
eee 020Y2R EAR67 BD EROF R JSR CSL LEFT 
02073R ER6R BD  E3C7 Ra JSR CBRDR 
ESU 4 02074 ロ 
INC ・EX 0zo75 EA6D R GETBHM EGU * 
LDR ・ EX 02076 門 
CMPA  ..LNC 02O77 * SERRCH UNPRTECTED FIELD 
BLT CSR30 02O078 * FOR BACK 
CLR FNC. 02079 1 
INC ・EY 020BOR ER6D CC  BO10 に] LDD #RPFL*256+RMPT 
LDR ・EY 0z20B1R ERYO R5 Ra4 R GETBH5 BTTR  iY 
EMFR  ・PDRG+1 020B2R ER72 27 04 ER7B BEG BETBH7 NQ FIELD 
BLT CSR9O 02oB36 ER74 E5 Ra4 R BITB uiY 
LDR ・PDRG 020B4R ERT6 27  E4 ERSC BEQ CSHQM9 DEFINE 
STA 。.CY 02OB5R ERYB 31 3F R GETBHY LERY  -1xY 
SEC 020B6R ERYR 109C 9F R CEMPY GTTOFR 
RTS 0z20BYR ER7D 24 F1 ER7O BHS GETBH5 
020BBR ERYF 2O DB  EA59 BRR CSHOMB PHISICRL HOME 
E6U き 020B9 に 
ELC 02090 T 
RTS 02091 東 3 
02092 * CELERR * 
いよ 0z2093 円 * 
* 02094 | 
ra ゆ ozo95 * 
ま 0z2096 EAB1 R GETCLR EQU * 
は Oz097R ERB1 96 4D 1 LDR .MDRG+2 
02098R ERB3 BD EZR5 人 JSR ERRSE1 
EgU に 02099A ENB6 DC 43 RA LDD  .BPY 
DEC  ・CX 02100R EARBB DD 4E R STDarWQ:DY 
BPL CSL30 02101R EARBA B6 02 LDa #2 
LDR ー LNC 02102R ERBC YE  EBEB R JP GETCR1 
DECR 02103 ・ 
STa|。 な EX 02104 eeeeeeeee 
DEC *CY 02105 
LDR ・EY 0z106 *・ INSERT * 
CMPR  .PDRG 02107 な 内 
BGE CSL30 0210 昌 て トト て て て 1 
LDA . MDRG+1 02109 
DECR 0z110 ERBF R INSERT EGU * 
ST ・EY 02111 ERBF 03 31 R Cnm -. INS 
SEC 02112R ER91 26 04 ER97 BNE INSER5 
RTS 02113R ER93 1NSDFF 
R Ea93 B?  D40D 8a STa INSLED 
02114R ER96 39 RTS 
MM 人 hd 02115R ER97 INSER5 INSN 
0 ER97 B5  D40D Ba BITR INSLED 
DDE CO-ORDINRTE * 02116R ER9R 39 RTS 
02117 ・ 
本 て えて いい よう よし いし 02118 ネ キキ キキ ホキ キキ ヤ キキ や キキ ネギ キャ キキ キー 
02119 * * 
ERU と oz120Q * ERaSE FIELD KEY +* 
TFR XuD CHRR 0z121 
SUBD GTTOPC OFFSET 0z2122 ーー 
BRR BETEN 0z123 
02124 Ea9B ELKEY EGU ・ 
EeU き 02125R ER9B DC 4E Ra LDD  .CY 
TFR  Y:D 02126Q ER9D 34 06 a PSHS  D 
SUBD BTTOPR OFFSET 02127R ER9F 9E 50 R LDX - CBRD 
0z12BR ERR1 109E 52 a LDY - CaRD 
か DE 02129R ERR4 E6 4 R LDB wY 
* 0z130R ERA6 CA 40 a DRB #RMMD PODIFY TRG 
STX ID TOP Y,DESTROY .CX 021316 ERAB ET 4 ST 3V 
0Z132 EARR R ELKEY2 EQU * 
0 9 02133Q EARA RG  B4 Ra LDR  ・X 
NE 02134R ERAC 27 "QB ERB6 BE ELKEY4 NULL SKIP 
0BETEN 拓 02135 EARE 4F CLRR 
02136Q ERRF RY  B4 Ra ST e 
02137Q EAH1 E6 Ra4 R LDB ュ Y 
CD 1 3 02138R ERB3 BD ES1C Ra JSR CDSFC 
02139 ERBG6 人 ELKEY4 EQU * 
02140R ERB6 BD  E9F3 R JSR CSR 
JPvA 02141R ERB9 BD  E3C7  R JSR CBADR 
02142Q ERBC E6  R4 E1 LDB rY 1S HERE THE TUP DF FIELD? 








281 


』0 


サブ プ ブシ ステ ム ・ モ ニタ 


ジー ス ・ リ スト 





02143R ERBE 2R 
02144R ERCO 9C 
02145R ERC2 23 
02146R ERC4 EC 
02147R ERC6 DD 
0214 ヨ BR ERCB BD 
02149 
02150Q ERCB 35 
02151R ERED DD 
02152n ERCF 39 
02153 
02154 
02155 
02156 
02157 
02158 


02160 
02161a ERDO 36 
021628 ERD2 D6 
02163R ERD4 D1 
02164R ERD6 2? 
02165R ERDB 40 
02166R ERD9 

R ERD9 
02167 
0216B 
02169Q ERDR 4F 
02170R ERDB D6 
02171 ERDD 34 
02172R ERDF OF 
02173R ERE1 Be6 
02174R ERE3 E6 
02175R ERES 27 
02176R ERETY 9E 
02177R ERE9 6 
0217BR EREB BD 
02179R EREE BD 
021B0R ERF1 396 
02181a ERF3 BD 
0218B2R ERF6 26 
02183R ERFB 9E 
02184R ERFR E6 
O21BSR ERFC C5 
021B6R ERFE 27 
0218YR EBOO 35 
0218BBR EBO2 DY 
02189R EBO4 39 
02190 
02191 
02192 
02193 
02194 
02195 
02196 
02197 
0219BR EBO5 QF 
02199R EBOY 9E 
02200R ERO9 109E 
O22O1R EBOC BD 
02202R EBOE 25 
02203 
02204R EB10 BD 
02205R EB12 24 
02206R EB14 30 
02207 
02208B 
02209 
02210R EH16 9 ヒビ 
02211a EB1B 25 
02212R EH1R 96 
02213 EB1C 97 
O2214R EBI1E OF 
02215Q EB2ZO 39 
02216R EB21 YE 
02217 
02218 
02219R EB24 0OD 
O2220R EB26 26 
02221 EB2B BD 
02222R EB2R 30 
02223R EB2C 31 
O2224R EB2E C6 
02Z25R EB30'E5 
O02226R EB32 2P 
0222YR EB34 0E 
0222BR EB36 39 
02229 EH37 32 
022308 EB39 20 
02231 
02232 
02233R EB3H R6 
02234 EH3D CE 
02235 EB40 E6 
02236R EB42 R1 
02237 EB44 25 
O0223BR EB46 R1 
02239R EB4B 23 
O02240R EB4R 5R 
02241R EB4B 26 
022428 EB4D 1C 
02243R EB4F 39 
02244R EBSO 1 
02245R _EB52 39 
02246 
02247 
0224 晶 
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EAR ERRR BFL ELKEY2 
45 仙 CMPX  .BPRD 
07 ERCB BLS ELKEY6 
E4 代 LDD * ら 
43 R STD ・BFY 
EZO01 R JSR BUFPTR 
EAC R ELKEY6 EBU に 
06 は 1 PULS D 
4E R STD sEY 
RTS 
* 
エエ エエ すさ て] 
* キ 
* 。 TRB  * 
w * 
エエ エエ よ エエ エエ] 
ERDO R GETDUP ERU に 
34 介 LDR ・・LNC 
4E は 1 LDB sEY 
4B 内 CMFB ・PMDRG 
2C EBO4 BERI GETDU9 
NEGBR 
SKIP1 
る 1 人 FCB 21 
w 
ERDA 人 TRB E5U に 
CLRA 
31 R TRBDUP LDB -・ INS 
06 は 1 PSHS D 
31 R ELR ・・ INS 
20 R TRB10 LDR 3 
E4 介 LDB に ) 
Q4 EREB BEGI TaB15 
50 介 LDX ・ CBRD 
85 1 LDa BX 
E944 R TRB15 JSR GETDT 
E3CY R JSR CBRDR 
4F R LDR ・EX 
E7B1 は 1 JSR TRBCHK 
OB EBQOO BNE TaB90 
52 R LDX ・CaRD 
B4 人 LDB ュ X 
90 1 BITB 
E1 ERE1 BEG TRB10 
06 R TRB30 PULS D 
31 介 STB ・・ INS 
GETDU9 RTS 
際 
ト エ サエ エ エエ エエ すす エエ エ すす 
] F 
*。 RIGHT MRD * 
w * 
上 す て エ エエ エト エ T エ さす で 
* 
EBO05 R CSRM ESIU * 
3 R CLR GTFLD 
50 人 LDX ・EBRD 
52 R LDY ・ERRD 
16 EB2Z4 CSRM1O BSR CSRMIS 
FC EBOC BCS CSRM10 
w 
12  EB24 CSRM2O BSR CSRMS 
FC EB10 BCC CSRM20 
1F R LERX ー1 ュ X 
* UN 
* 
9D R CSRM90 CMPX GTBTMC 
07 EB21 BL CSRM95 
4B 介 LDR ・PMDRG 
4E 介 ST ・CY 
4F 人 R CLR - EX 
RTS 
ER2B R CSRM95 JIMF' GETENC 
内 
EB24 R CSRMS  EGIMU ま 
3 R に 34 GTFLD 
OF  EB3r BNE CSRUS9 
11 EB3B BSR ESMCK 
01 朋 LERX 15X 
る @1 1 LERY 15Y 
BO 1 LDB RMFL 
R4 1 BITBH 9 
0g EB36 BE CSRUIG5 
R3 1 INC GTFLD 
CSRMISG RTS 
62 R CSRMS9 LERS に よ に ]】 
DB EB16 BRR CSRUM30 
* 
EB3B R CSMCK 。 EGIU に 
B4 人 LDR ュ X 
EBB1 1 LDU #CSMCKT 
CO 朋 LDB sU+ 
C1 R CSMCK1 CPMPR >U++ 
0 EB4D BLO CSMCKB 
SF は ] CMYFR ー1U 
06 EBS5O BLS CSMCK9 
DECB 
F5 EB42 BNE CSMCK1 
FE CSMICKB CLC 
RTS 
01 CSMCK9 SEC 
RTS 
* 
エイ エナ イエ イエ イエ すす すす 
w * 


NH. (FIELD FLRG 1S MSB) 
TS HERE HUER THE BUFFER PHINTER? 


DUPLICRTE 


UNEFFECT 


1S IT DUPLICRTE? 
NO TRB. 


TaB STOP? 

YES. (TaB DISQBLE ) 
NO. 

FIELD TOP 


#RMFL+RIIPT HIR PROUTECTT 


NO. 


FIELD FQUND CLEARR 


ロ N 


DFF 
STQP PFQS 


VER 











02249 
02250 
02251 
02252 
02253 
02254R 
02255R 
022S56a 
02257R 
0225BR 
02259 
02260R 
02261R 
02262 
022638 
02264R 
02265 
02266 
02267R 
0226BR 
02269 
02270A 
02271 人 
02272R 
02273 
02274 人 Ra 
O0227S5R 
02276 
02277R 
0227BR 
02279R 
02280 
0228B1R 
022B2a 
は 1 
022B3a 
人 a 


022B4A 
R 
022BSR 
人 


022B6 
02287 
022BB 
02289 
02290 
02291 
02292 
02293 
02294 
02295a 
02296R 
02297R 
0229BR 
02299R 
02300 
02301 
02302 
02303 
02304 
02305 
02306 
02307 
02308 
02309 
02310 


.0231 1 人 8 


02312R 
023138 
023148 
0231SR 
02316R 
R 
02317R 
人 
02318 
02319 
023208 
02321RF 
02322 
023238 
02324RF 
02325R 
02326R 
02327 代 
023Z2BR 
023298 
023308 
02331A 
023328 
02333 
02334R 
02335R 
023368 
02337 
0233B8 
02339 
023408 
023418 
02342a 
023438 
02344Ra 
02345R 
02346a 
02347R 
0234Ba 
02349 


EBBR 


EBBB 
EBBD 
EBBF 
EB91 
EB94 


EB9? 
EB99 
EB9B 
EB9D 
EBRO 
EBR2 
EBR4 
EBR6 
EBR6 
EBR9 
EBR3 


EBRB 
EBRD 
EBRF 
EBB1 
EBB3 
EBB5 
EBHP 
EBB9 
EBBH 
EBBD 
EBCO 
EBC2 
EBC4 
EBC? 


EBC9 
EBC ヒ C 
EBCF 
EBD2 
EBD4 


EBD6 
EBDY 
EBD9 
EBDB 
EBDD 
EBDF 
EBE2 
EBE4 
EBE6 


BD 


393 


9E 
R6 
2B 
BD 
BD 


EB53 


EROF 
E3CY 


中 
加 
| 


や や や や や や や や 


mm 
還 や や や や や や や や 9 


| 
由 


や や や や や や 





CSLM10 


CSLM2O 


1 


CSLM90 


CSLMS 


CSLUS5 
CSLMS9 


ロ 
CSMCKT 


間 
エエ エエ よさ] 
に 

* 。 BRCK 
生 

[よさ すす すす] 
に 
GETBS9 
GETBS 


エエ エエ エ 了 ] 
* DEL 
w 

エエ エエ エゴ] 
トコ 


GETDEL 


GETD10 


GETD12 


GETD15 


GETD2O 





MRD * 
に 3 

に た す す すす すす 】 

EQU * 

ELR ETFLD 

JSR CSL 


JSR CHRDR 
BSR ESLMS 
BCC ESLM10 DFF 


BSR CSLMS 
BCS ESLM2O _ ロ N 


LERY exY 
JIYP' RETENR 


ESU * 

TST GTFLD 
BNE CSLMS9 
LDH #RIMFL 


BITB sY 

BER CSLMS5 

INC GTFLD 

BSR CSMCK 

LERX 。-1。X 

LERY 。=1vY 

RTS 

LEAS 255 1 NEST RENMVE 
LERY 1.Y 


BRR CSLM30 


FCB 4 
FCB . "0:'9 
FCB 。 *Ru'Z 
FCB $61,$7R 
FCB $BO,$FF 


FT エエ エエ よ す すす すす すす すさ 1 
ロロ 
SFPRCE & DELETE * 
コ 
FTTTTTTTLLLLTTTTT1 


RTS 
EQU に 
LDX ・CRRD 
LDR ュ X 
BII GETBS9 FIELD 
JSR CSL BRCEK 
JSR CBRDR 
DELETE 

ゃ 

円 

* 

円 

PT 
EQU 
LDD 。EY 
FSHS D 
LDX ・EBRD 
LDY ・CRRD 
LDB *Y 

BITB #RMPT 
BE GETD10 
BUZZON 
BITR BUZZER 
RTSPUL D 
PULS DPC 
EQU に 
LDB 1.Y 

BITB #RMFL 
BNE GETD2O 

LDR 1X 
STR *X 

TST sY 

BPL GETD12 

DRB RFL FIELD IRRK 
STB *Y+ 


CMPY ・BARD 
BNE GETD15 


PSHS  D 

JSR CTQB 
PULS  D 

EgU に 

JSR CDSFC 
JSR CSR 
JSR CBRDR 
LDa *X 
BNE GETD10 
CLRR 

LDB sY 
URB #RMPD 
STB sY 
STa sX 
JSR CDSP に 
PULS  D 

STD sEY 
RTS 








02350 
02351 
02352 
02353 
02354 
02355 
02356 
02357Aa 
0235Ba 
仙 
02359 
02360 
02361 
02362 
02363 
02364 
02365 
02366 
02367a 
02368 
02369 
023708 
023?1 
02372 
02373 
02374 
023?5R 
023768 
02377 
0237BR 
02379 
02380 
02381A 
0238Z2a 
023838 
023848 
023BSR 
02386R 
0238B? 
02388 
02389 
023908 
02391R 
02392 
02393 
02394Aa 
02395R 
023968 
023978 
02398 
02399 
024008 
02401R 
02402a 
024038 
02404R 
02405R 
02406a 
02407R8 
0240Ba 
02409 
024108 
02411 
024128 
024138 
02414 
02415 
024168 
02417 人 8 
02418a 
024198 
024208 
02421 
02422A 
02423 
024248 
02425R 
024268 
024278 
024288 
02429 
02430 
02431 
02432 
024338 
02434a 
02435R 
024368 
024378 
024388 
024398 
024408 
024418 
024428 
02443R 
024448 
0244SR 
02446 人 
02447R 
0244BR 
024498 
024S50a 
02451a 
02452a 
024538 
02454a 
0245Sa 


EBE? 
EBE9 
EBE9 


B6 


人 


EBEY 
01 


21 


EBER 
EBEB 


EBEF 


D383 
E92F 
9F 


R4 
02 
Ra4 
RO 


R1 


10 
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や や や や や ヤヤ やや や や や アセ や や や や や や や アセ と 


西 田 
9 
ム 。 中 
m ロ や セロ 


ドン キンキ ッテキ ッテキ ッ テ ッ テリ 


EC3i 


や やや や や や や や や や や や や や や や や や や や や や や 


| 
* 
* CRNCEL * 
* ぁ 
キャ 


* 
EETCN EEU 
LDA 
SKIF1 
FCB 
に 
ーー 
東 に 
* ENTER * 
和 宙 あ 


に 

GETCR EEU 
CLRA 

GETCR1 EQU 
STA 
LERS 


| 


$21 


F コ 


・EKEY 
25S REIUVUE RETURN 


* SEND MDIFIED FIELD 


に 

ETC  EBU 
LDa 
STa 
JSR 
LDY 
LDB 

BETCO5 LDA 
BFL 
LERU 

BETCOY BITB 
BNE 
CMFY 
BL 

し 

* NO DaTA 

* 
CLR 
RTS 

< 

GETC10 EQU 
LERY 
LDB 

GETC15 aNDB 
STB 
LDB 
BPL 
LEAY 
LEARX 
PSHS 
JSR 
PULS 
LDU 
LDa 
STa 
LDa 
STa 
LDD 
EXG 
STD 
LERY 

* 

GETC20 EQU 
LDa 
BER 
CMPU 
BLQ 
JSR 
CLR 
LDU 

BETC30 EQU 
STR 
INC 

GETC35 LDB 
BPL 
RTS 


* CONTROL KEY 

e 

EETJMP FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 


に 
・EKEY 

・ CUNRR+3 
GETRNG 
GTTQPR 
#RMPD 

Y 
GETCOP 
YY 

*Y+ 
GETC10 
GTBTIMR 
GETCOS 


・EDMRR+4 


ご 1 SET THE FIRST OF MDIFY. 


#$FF-fRNMD 

*Y+ CLEAR THE MDIFYED DRTR TRG 
*Y 

GETC15 IMORE DRTR IN FIELD, 

U 

・・ ERB-。 . RTBU 


XY 

#。 CHMRR+4 

3 

*U+ 

本 $12 SET FIELD 
ぅ U+ 

< に Y 

RB 

+U++ 


1Y PRE 1INC THE RTTR PTR 


円 
*X キ 

GETC35 

. CUMRR+12B 
GETC30 
CONTO 

・ CDMRR+4 

#. COWRR+5 

* 


U+ 
・EUIRR+4 
ュ Y エ 
GETC20 


JUMP TaBLE 


GETNQP  $00 
GETNQP  $O01 
CSLM $02 
GETCRN も 03 
BETNOP  $04 
ELKEY 05 
CSRU 06 
GETBEL  $0Y 
GETBS  $OB 
TRB $09 
GETNUP  $ ま OR 
CSHONME  $OB 
GETCLR  *OC 
GETCR *OD 
BETNOP  $*OE 
GETNOP  $OF 
GETNOP  $10 
GETDUP  $11 
INSERT  $12 
BETNOP  $13 
GETNOP  $14 
BETNOP  $15 
GETNOP  $16 
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024S6a 
02457R 
024SBA 
024598 
02460 
02461Rn 
02462R 
024638 
02464R 
02465 
02466 
02467 
02468 
02469 
024?0 
0247?1 
02472 
02473 
02474 人 8 
0247SR 
02476R 
024Y7 人 Ra 
0247B 
024B0 
024 昌 1 
024B2 
024 昌 3 
02484 
024 昌 5 
024B6R 


02487R 


0248BR 


024B9 


024908 


024918 


02492RF 


024938 


02434R 


02495a 


02496 
02497 
Ra 
R 
R 
02498R 
024998 
02500R 
025018 
02502R 
02S5038 
02504R 
O02SOSR 
02506R 
02S07R 
0250BR 
02509 
02510 
02511RF 
02512R 
02513R 
02514R 
02515n 
02516R 
02517R 
Q2518R 
02519 
02520 
02S21 
02522R 
02523a 
02524R 
02525R 
02S26R 


02527a 


0252BR 
02529a 
025308 
02531R 
02532a 
025338 
02534a 
02535R 
02536R 
02537R 
0253BR 
02539 
025408 
025418 
02542 


ECB6 
ECBB 
ECBR 
ECBC 
ECBE 
EC90 
EC92 
EC94 
EC96 


EC9B 
EC9R 
EC9C 
EC9F 


ECRO 
ECRO 


ECRO 


ECARO 


ECRO 


ECROQ 


ECRO 


ECARO 


ECRO 


ECRO 


ECRO 
ECO 
ECR1 
ECR2 
ECR4 
ECAa6 
ECR9 
ECRB 
ECD 
ECRF 
ECB1 
ECB3 
ECB5 
ECB 
ECB9 


ECBB 
ECBF 
ECC1 
ECC4 
ECCP 
ECC9 
ECEE 
ECCE 


ECCF 
ECD2 
ECD5 
ECDY 
ECD9 
ECDB 
ECDE 
ECE1 
ECE5 
ECEY 
ECE9 
ECEB 
ECEE 
ECFO 
ECF2 
ECF4 
ECF6 
ECF9 
ECFB 
ECFD 
ECFF 


DC 
1E 
FD 
39 


E943 
EBEY 
EA6 
ERSF 
E943 
E9 に 3 
E9CE 
E3D8 
E9E6 


EC98 
43 
B9 
D383 


DO96 


DO96 
D097 


D097 
DO098 


DO98 
D099 


D099 
DO9R 


DO9a 
D09H 


DO09B 
DO09C 


DO09C 
DO3D 


DO09D 
DO9E 


DQ9E 
DORO 


D383 


ンー ス ・ リ スト 


ゃ や や や や や や や アセ 


ゃ や や や 


や や や や や や や や や や や や や や や や や や や 





2844 


FDB GETNOP s*17 
FDB GETCaN $18 
FDB GETBFD *19 
FDB GETFFD s1R 
FDR GETN ロ P $1B 
GETJCS FDB 。 CSRL 1 ヒ 
FDB CSLL  s1D 
FDB CSUL  s*IE 
FDB CSDL sl1F 
内 
TTL BBADR - CONSQLE CODE - 
ヤヤ トド ャ ヤヤ ヤヤ ヤヤ キャ キャ 
+ 
* GET BUFFER RDDRESS * 
+ * 


エエ エエ エエ エエ すす すす すす すす キキ すす すす すう 


ロ 
GETBRD ERU し 


LDD  .BPY 

EXG axB 

STD .C ロ NRR+3 

RTS 
に エ エエ エエ エエ エエ エエ て すす エエ エエ エエ エエ すす エコ 
に に 
* BET CHRRRCTER BLCK * 
* あ 
し エエ エエ エエ エエ エエ エエ エエ す エ エエ エエ エエ エエ エコ 
に 

SORG  .MORK > 
- $DRG SET  .MORK 

DS CBCD 1 
CBCMD EgU  .s*DRG 
-$DRG SET .s$QRG+1 

DS CBY1,1 
CBY1 ” EgU  .sQRG 
- $ORG SET .$ ロ RG+1 

DS CBX1 1 
CBX1 ” EQU  .$ORG 
-$DRG SET .*ORG+1 

DS CBY21 
CBY2 EQU  .s$QORG 
- $DRG SET .$ ロ RG+1 

DS CBX2,1 
CBX2 ERU  .s*ORG 
- $RG SET .s$ORG+1 

DS CBXTP,1 
CBXTDP EQU .$QRG 
- $DRG SET .* ロ RG+1 

DS CFPBRT,1 
CPBRT EQU  .s$DRG 
- $DRG SET .$RG+1 

DS CPBCNT,1 
・CPBCNT ESU .$ ロ RG 
- SDRG SET .$ORG+1 

DS CBSRVE,2 
CBSRUE ERU .*$ORG 
. SDRG SET .$DRG+2 
* 

FLBENT CBBLK1 ,CGBLK2。CBCND 
CGBLK2 FCE $B6 LDR # 
CGBLK1 CLRR 

STR CBCD 

BSR CBINIT 

LDU #CMDPRM 

CLR ュ U+ 
CGB100 BSR 。 CBLRDR 

LDR CBCPMD 

BE  CGB120 

LDR 。 nyY 

BSR CGBDT 
CeB120 LDR  、X 
ン BSR CGBDT 

BRR CGB100 
CEBDT EgU  * 

CMPU  #COMEND 

BL CG5BDT5 

JSR CONTG 

LDU #CMDPRM 

CLR  ・U+ 
CGBDT5 INC CMDPRM 

STA  iU+ 

RTS 
し 』 
CBINIT EaU  * 

LDD CNDFRNM 

JSR CRXCR 

BEE CBINO5 

STR CBX1 

STB CBY1 

LDD CMDPRM+2 

JSR 。 CRXCR 
CBITN05 LBCC ERRG61 

CMPR CBX1 

BHS CBIN5O 

STR CBX1 

LDA CMDFRh 
CBIN5O STA CBXe 

CMPB CBY1 

BHS CBINEO 

STB CBY1 

LDB CDFR+1 
CBIN60 STB CBYa 

LDB CBX1 

STB CBXTOP 

RTS 











02543 
025448 
02545R 
02546R 
02547R 
02548a 
025498 
025S5OR 
02551 人 8 
02S5Z2R 
02553R 
02554a 
02555R 
02556Aa 
02557R 
025SBR 
02559 
02560 
02561 
02562 
02563 
02564 
02565 
02566R 
R 
R 
R 
02567R 
0256BR 
02569 
0257OR 
02571Aa 
02572R 
02573a 
02574R 
0257SR 
代 
02S76n 
02577R 
02S7BR 
025?9 
02SBOR 
02S5B1R 
02S5B2a 
02SB3R 
02SB4R 
025B5R 
02SB6R 
02S5B7R 
02SBBR 
025B9R 
02590 
02591 
02592a 
025938 
02594^a 
02595R 
02596R 
02597R 
02598R 
02599 
02600R 
02601R 
02602a 
02603 
02605 
02606 
02607 
02608 
02609 
02610R 
02611R 
02612R 
02614 
02615 
02616 
02617 
02618BR 
02619 
026208 
02621Rn 
02622 人 
02623 
02624R 
02625R 
02626R 
02627R 
02628R 
02629 
02630 
02631 人 R 
02632R 
02633 
026348 
02635R 
02636R 
02637R 
0263BR 
02639 
02640 
02641 
02642a 
026438 
02644R 
02645R 
02646 
02647R 
0264BR 


EDOO 
EDQ2 
EDO4 
EDO6 
EDOB 
EDOB 
EDOD 
EDOE 
ED10 
ED12 
ED13 
ED15 
ED1? 
ED18 
ED1R 


ED1D 
ED1D 
ED1E 
ED1F 
ED21 
ED23 
ED26 
ED2B 
ED2R 
ED2C 
ED2E 
ED30 
ED32 
ED32 
ED33 
ED35 
ED37 
ED39 
ED3B 
ED3D 
ED3F 
ED41 
ED44 
ED46 
ED48 
ED4R 
ED4D 
ED4F 


EDS1 
EDS3 
EDS5 
ED57 
EDS3 
ED5C 
EDSF 
ED61 
ED63 
ED65 
ED6Y 


ED6B 
ED6B 
ED6F 
ED?1 


EDY4 
ED?7 
ED?9 
ED?B 
EDYD 
EDYF 
EDB1 

EDB2 
EDB4 
EDB6 
EDBB 
EDBR 
EDBC 
EDBE 
EDBF 
ED91 

ED93 
ED94 
ED96 
ED98 
ED9R 
ED9D 
ED9F 
EDR1 
EDR3 
EDRY 
EDRB 
EDRE 
EDBO 
EDB1 
EDB3 


DC 
DD 
91 
る 22 
BD 
DC 
SC 
D1 
ど 3 
4C 
D6 
DD 
39 
32 
YE 


EDOO a CBLADR EQU 
97 R LDD 
9E RA STD 
99 Ra FR 
10 ED1B BHI 
Ez211  a JSR 
9 R LDD 
INCB 
9a R CMPB 
Q3 ED15 BLS 
INCA 
9B a LDB 
97 R CBLRD? STD 
RTS 
62 人 CBLEND LERS 
EzBz Ra JP 
* 
LU いも も すす たよ と よ すす 
$ 
+* PUT CHRRaCT 
+ 
に いし も すさ すす すす すす 
FLGENT 
Be R CPBLK2 FCB 
CPBLK1 CLRA 
96 a STA 
RC ECCF BSR 
D3B7 8a LDU 
C1 人 LDD 
9C RA STD 
D4 EDoo CPB1oO BSR 
96 RA LDa 
03 ED33 BNE 
9E 還 LDa 
SKIPg 
BC R FCH 
1C ED51 CFPB120 BSR 
B9 RA TFR 
1B ED51 BSR 
B4 RA STA 
4 RA STB 
06 R FSHS 
9E a LDD 
E2zR  R JSR 
E4 ・ LDX 
E4 に STU 
o1 RA EXG 
E521 RA JSR 
40 Aa PULS 
D9 EDza BRR 
EDS1 RCPBDT EgU 
9D A DEC 
10 ED65 BPL 
02 RA LDA 
BF ED18 BPL 
E11Q Ra JSR 
D383 8^a LDU 
Co Ra LDa 
9D 人 STa 
EC .ED51 BRA 
Co R CPBDT5 LDA 
RTS 
* 
* 
* TBSET 
JI 
ED6B TaBSET EcU 
D383  R LDX 
Dozz Ra LDY 
OR RA LDB 
E44E RA JP 
LJ 
* CONSOLE CON 
ED74 Ra CNSCTL EQU 
D383 Ra LDR 
1F 人 CNSINT STA 
01 Ra BITR 
12 EDBF BEQ 
15 ED94 BSR 
1 人 EURON LDR 
LSRR 
06 EDBA BCS 
06 R LDa 
18 STa 
1C CLR 
01 人 EURON5 LDR 
1 人 STa 
RTS 


0C ED9D CUROFF BSR 


1 人 CLR 
RTS 

1B EDB1 CURSET BSR 
43 1 LDD 
4E 人 STD 
E3CY 1 JMP 
12 EDB1 CURSCL BSR 
1 ビ R CURELR LDR 
OD EDBO BEG 
9F DOSO Ra LDR 
9F DOS2 R LDB 
E51 に R JSR 
1 ヒ R CLR 
CURRTS RTS 

1 R CURSTP LDR 
BoO 1 OR 
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員 02649R EDB5 20 04 EDBH BRR CEURSTR 
CBY1 026SO0n EDB? 96 1 R CEURGH LDR ・CURSR  CLERR THE CURSHR STQF. 














CRSRVE 02651Q EDB9 B4  TF 人 RNDR  #$7F 
CBY ろ Oz652Q EDBB 9? 1a R CURSTA STRA .FURSR 
RB 02653R EDBD 39 RTS 
CBY1 
oz2655 0o01 R CSLCUR EU sO1 
CBX2 02656 0O002 RCSL ロ RD EBU  $02 
CELRDY 0265Y Qo04 R CSLTRB EQU 04 
0z2658 OO0B RCSLFAG ERU  $QB 
CBXTCP 02659 Qo10 R CSLSUS ERU $10 
CBY1 02660 00zO R CSLRLF ERU *20 
の ら FRENHVE 02663 gk 8 ・ PROGRRMGBLE FUNCTION KEY TRTNG 
1 由 KEY*S ら 
ASSFLD MINDnM TOP FIELD MADE & RETURN 02664 + INDICRTDR. : 
02665 * 
YRRAN 02666Q EDBE SnRG  .BOXX1 
2 Do5F a .* ロ RG SET . BIXX1 
ER BLOCK  * 02667R EDBE DS INDLF1 1 
の DOSF a INDLP1 ERU  .sDRG 
人 DO60 R .$ORG SET .s* ロ RG+1 
Oz66BR EDBE DS INDLFZ,1 
CFBLK1 CFPBLK2。CBCMD DO60 RINDLF2 EBU  .s*DRE 
*B6 LDR DO61 R .SDRG SET . $HRG+1 
02669 EDBE DS INDLF3 1 
CBCYD Doe1 R INDLP3 ERU .SIRG 
CBINIT DO62 R .$ ロ RG SET . SRG+ 1 
#CPTDPRY+4 oz267OR EDBE DS INDFF・1 
LAe Doe2 R INDFF EQU . LRG 
CPBRT DO63 Aa .s ロ RG SET - も HRG+1 
CBLRDR 02671 EDBE DS INDBSU, 1 
CBCID Do63 R INDBSU ERU . 5 ロ RG 
CPB12Q Do64 人 .$DRG SET - $ ロ RG+1 
CFPHRT Oz6vz 由 
02673Q EDBE 96 36 R LDA  ..FS 
5BC CIPX 舌 02674 EDCO 2Y 20 EDEz BE INDIC9 Nn DISFLRY DIRECT 
CFPBDT 02675R EDC2 B6 OF R LDA #15 NUMBER ロ F CHaR FnR DISFLAY 
RB OzeYeQ EDC4 D6 2F a LDB  。 ..CMD IS THE HARACETER SIZE SALL 
CFBDT 02677R EDC6 27 02 EDCA BE INDIC2 YES. 
・X 026?BR EDCB B6 0OY a LDR 7 NO. 
YY 02679Q EDCR 9? 62 人 INDIC2 ST INDFF 
D Oz2eBOR EDCC 96 2D R LDR ..BCL 
CBSRVE 026B1R EDCE 9? 63 R STA INDBSU BCL SRUE 
BV8D Oo26B2n EDDO OF 2D a ELR 。 ..BCL BACK BLRCK 
* ら 026B3A EDD2 BE  D2CO  R LDX  #.FFTBL 
5 Oz6B4R EDD5 96 41 R LDR ..DMRP+6 
DX 02685R EDD7 4C INCR 
CDSP ozeB6A EDDB BD 09 EDE3 BSR INDI 
U 026B7R EDDR 96 41 R LDR ..DMaP+6 
CFB100 Oz26BBR EDDC BD 05 EDE3 BSR INDI 
026B9Q EDDE D6 63 LDB INDESV 
de 0z6908 EDEO D7 2D a STB ..BCL 
CPBCNT 02691 EDE2 39 INDIC9 RTS 
CF'BDT5 02692 内 
・・EHNT 02693 EDE3 R INDI  EGU * 
CBLEND Oz2694 EDE3 BD Ez2z6 Ra JSR BUaDL  URaM RaDDR.U 
CUNTI 02695Q EDE6 1F 03 R TFR DrU 
#ETDFRI 0z2696Q EDEB C6 05 R LDB #5 
・U+ 02697 EDERA D7 5F 人 STB INDLP1 
CFBCNT 0269BR EDEC BD 16 EEO4 INDI3 BSR PFDSP 
CPBDT 02699R EDEE OR 5F R DEC INDLF1 
*U+ Oz?O0Q EDFO 26 Fa EDEC BNE IND13 
02701 EDF2 39 RTS 
Oz2702 * 
02703 EDF3 4F INDSPC CLRR 
027O4 EDF4 SF CLRB 
oz2?05 ae * 
oz706 5 。 INDCHRERU  +* 
#CHDPRY TABSET D6T8 6297a Eprs 34 5 8 Be augrxu 
#10 BO BITS FOR_ USE 0z2?OBA EDF7 30  C4 R LEAX  」U 
MOUE SET & RETURN TO MIN 02709Q EDF9 BD ES521 Ra JSR CDSP 
02?10R EDFE EC 64 R LDD 4:S 
芋 ROD 02?11 EDFE D3 3? a RDDD  ..VCU UKRaPWNEXT 
02712R EEOO ED 64 R STD 4:S 
02713 EEO2 RTSPUL (R,B,XU) 
DE 2 EEO2 35  D6 R PULS axBxX,UiPC 
ゃ 
MADHTIL 2713 EEo。 efrnp gmu ・ 8 
CURDFF NO, GO OFF THE CURSOR. EEC だ 人 議 ER、 
CURSET YES, SET THE CURSHR ADDRESS。 
ERSRI RG ESEIREORIRSENEESTE Oz2?1BA EEOB 2B 03 EEOD BNI PFDSP3 YES. 
02Y19R EEOR C6  OD 人 LDB SOD NO. 
0272O EEOC SKIP2 
CURUN5 YES. 
で 店 R EEOC BC R FCB . $*BC CMPX # 
OCREIY THE RURSOR 位 TER2 oz?21A EEOD C6 加 Ra PFDSP3 LDB 9S0B 和 
8 02722 EEOF 96 R LDa INDFF SPLAY CH 
0 RE 9238 語 補 合 8 sm 
CURGR 02724R EE13 6  BO R PFDSP5 LDA ュ X+ 
9 Oz7e5 EE15 BD "DE EDF5 BSR INDCHR 
CURSCL STHP RND CLERR THE CURSR. OSYeBR SEE17P SO <61 DEC 1NDLF3 
. CURSR  CLERR THE CURS ロ R SELECT BIT. も 0 EE OR EL 
ULS X 
0z27e9a EE1D 3O BB10 Ra LERX PFSZrX NEXT FF 
ES 0z?30Q EE20 20  D1 EDF3 ERR INDSPC 
と ? 02731 TTL GRRPHIC CODE - GRRPH - 
BSD 02733 EE22 aaCHRLN EQGU  * 
BSTEWSETDTHEEUESRRD 02Y34R EE22 CE  D3BO 8 LDU #.COMRR 
.CURST 1S IT REUERCEY OK づつ REE ど SG 人 9 ED 一 ら 3 
RIRS 02736 EE27 E6 4 R LDB BU 
EBID3RYE ら は 02v37Q EE29 BD  E3D9 8a JSR CRXCR 
E. ERaD] 02Y38R EE2C 24 07 EE35 BCC CHRLER 
CDSFC DISPLAY NORMAL CHRR. ラビ CE 人 A LDP6 10.U 
- CURST CLERR THE REUERSE FLRG. EAAONAEEGOuEB: a LDB 12rU 
GZ44 人 EE32 BD  E3D9  a JSR CRXCR 
02742R EE35 1024 F292 EOCH CHRLER LBCE ERR61 
NN ORMKORSMR 02743R EE39 6GF 45 内 CELR 5,U 
02744 EE3B 6F 47 R ELR  "U 
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Q2745R 
02746R 
027478 
0274BR 
027498 
02750 
02751 
02752 
02753 
02754 
02755 
027S56 
027 マ 
027SB 
02759 
02760 
02761 
02762 
027638 
02764R 
02765R 
02766R 
02767Aa 
0276BR 
02769R 
027POR 
02771R 
02772R 
027P コ R 
02774R 
02775R 
02776R 
02777R 
02777 日 
02779 
0278B0 
O027B1R 
027BZR 
0278B3a 
027B4 
027BSR 
027B6 
027B7R 
027BBR 
0278B9 
02790 
02791 
02792a 
02793R 
02794R 
02795R 
02796R 
02797R 
02798a 
02799 
028008 
02B01R 
02802a 
028038 
02BO4R 
02B0SR 
02BO68 
02B07R 
02BOBA 
02B098 
02 ヨ 108 
028B11 
02B12 
02813 
02B14 
02B15 
O2B16R 
02817R 
02 ヨ 1BR 
02819R 
02B208 
02B21R 
02B22R 
02B23R 
02B24^a 
02B2SR 
02B26a 
02B27a 
02B2BR 
02B29R 
02B30R 
02B31R 
02B32R 
02B33 
に 1 
02B34 
02B35 
02836 
0283? 
02839 
02B40 
02 ヨ 41 
02842 
O02843 
02B44 
02845 
02B46 
02B4? 
02B4B 
02849 
02B50 
028S1 
02BS2 








EE3D 
EE3F 
EE41 
EE43 
EE46 


EE 
EER9 
EERC 
EERE 
EEBO 
EEB2 
EEB4 
EEB5 
EEB 
EEB9 
EEBB 
EEBC 
EEBE 
EECO 
EEC2 
EEC4 
EEC6 
EECB 
EECB 


6F 
6F 
B6 
B7 
20 


メー スペ ミリ スズ: ト 


DO96 
D097 


ょ や や や や 


EE 


ココ セ や や セ や や や や や や や ア 


EE 


R 
人 R 





ELR 
CLR 
LDR 
ST 
BRAR 


・CUNR+3 
・EUMRR+4 
・COPAR+5 
・EUMRR+P 
・CUPR+9 


meE 信人 信 人 全 導 六 六 大 拓 】 


m 
テ 
ul 


ERU 
LDD 
RNDR 
CIPFB 
BHS 
STD 
JSR 
LINED ロ LDU 
FULU 
JSR 
STX 
STY 
FULU 
JSR 
LDR 
BNE 


3U 
11U 
せ $FF 
LNCHR 
LINEDOD 


LINE CONMRND 


EQLHR CDE 

FUNETIUN CUDE 

X C ロ - ロ RDINRTE OF PF1 
Y En ロ -URDINRTE OF P1 
X C ロ - ロ RDINRTE DF F2 


・CUMAR+11 Y CI- ロ RDINRTE DF P2 
・CONRR+13 BHX FLRG 


・CUMRR+ さ 3 
も 0P 


# 


LINE90 FUNCTI ロ N CDE ERRUR 
SET CCLUR RND FUNCTIHN CDE. 


・ BCL 
INITLN 
社 CYIDPRI1+2 
XY 
SRXCHIK 
・LX1 

*EY 届 

XY 
BRXCHK 
・EHMRR+13 
LINE10 


* 。 DRRM_R STRRIGHT LINE 


に 
STX 
STY 
BRR 


LINE90 JIMP 
LINE10 DECA 
BNE 


トコ 


・LX2 
・LY る 2 
LINES 


ERR64 


LINE2O 


* 。 DRRM R RECTRNGLE 
* 


STX 
LDX 
STX 
BSR 
LDX 
STX 
LDX 
STX 
BSR 
LDX 
STX 
LDX 
STX 
BSR 
LDX 
STX 
LDX 
STX 
BRR 


に 
LINE2O ERU 
ゃ 


・LX2 
・EUNRR+? 
・LY2 
LINES 
・CONMRR+5 
・LX2 
・CUIWAR+11 
・LY2 
LINES 
・C ロ NRR+9 
・LX1 
・EUIWRR+11 
・LEY1 
LINES 
・CONRR+9 
・LX2 

・ COIRR+? 
・EY2 
LINES 


X1Y1-X2。Y1 


X1Y1-X1 。Y2 


X2。Y2ーX1 。 Y2 


X2。Y2ーX2。 Y1 


に 


* PRINT R RECTRNGLE 


キ 
STX 
STY 
LDR 
LDB 
SUBB 
BHS 
NEGB 
LDR 

LINE30 STA 
STA 
INCB 
FSHS 

LINE35 BSR 
INC 
IN に 
DEC 
BNE 
RTSPUL 
FULS 


"LINES" 
INPUT 


NCHR EQU 
NBPY EQU 


w 
w 
キ 
し] 
に] 
w 
トコ 
コ 
コ 
に 
トコ 
1 
ロ 
3 
ロ 
H 
L 


・LX2 
・LY2 
・LY1+1 
・LY2+1 
・LY1+1 
LINE30 


・LY2+1 
・LY1+1 
・LY2+1 


B 
LINES 
・LY1+1 
・LY2+1 
5 
LINE35 
B 
BFC 


END OF "LINE" CNMIRND 


DRRM R STRRIGBHT LINE 


・LX1 X CU-URDINRTE DF POINT1 
・LY1 Y CO-DRDINRTE OF POUINT1 
・LX2 X CU-nRDINRTE UF PUINT2 
・LY2 Y CO ロ -URDINRTE DF PUINT2 


・ MRK 
LNCHR+1 











02B53 
02B54 
02855 
02856 
02BSY 
028BSB 
02859 
02B60 
02861 
02B62R 
02B63a 
02B64A 
0286Sa 
02B66R 
02B67a 
02B68 
02B69a 
02B7OR 
0287Y1a 
02B72R 
02873a 
02874R 
02B75a 
02876A 
02877R 
02B78R 
028Y9a 
02BBOR 


02BB6R 
02BBYA 
02BBBR 
02BB9R 
02890R 
02 ヨ 91 
02B92R 
02B938 
02B94 

0289S5a 
02B96R 
02B97R 
02898R 
02899 
029008 
02901 

02902 

029038 
02904 人 8 
02905R 
029068 
02907 

02908A 
029098 
029108 
0291 1 
02912 
029138 
02914 

02915 

02916 

02317R 
02918R 
02919a 
02920 

02921 

02922R 
029238 
02924 
0292Sa 
02926R 
02927R 
0292BA 
02929 
029308 
02931 人 
02932 
02933 
02934 
02935 

029368 
02937R 
0293BR 
02939 
029408 
02941 
02942R 
029438 
02944R 
0294Sa 
02946 
02947R 
02948R 
029498 
02950R 
02951F 
02952 
02953R 
02955 

029S56 

029S7a 
0295BA 
02959a 
029608 


2 


や や や や や や や や や や や や 


Hul 
m 
=』 
ドコ 


上 
ゃ ゃ ゃ っ っ や や や や や や や セア エア 


や や や や や や や や や や 


EF1 


所 
| 
R| 
コ ャ 


や や や や や や や ヤ や や や や や や や や や - 


EFB6 


LNDX ESU 
LNDY EQU 
LNUX ERU 
LNUY ERU 
LNPY ERU 
LNLP EQU 
LINKLN ERU 


』 
LINES ERU 
LDX 
LDU 
LDD 
SUBD 
BI 
STX 
BRR 
LINES1 STU 
LDD 
SUBD 
LINES2 RDDD 
STD 
STD 
LDD 
SUBD 
BNMI 
STX 
BRR 
LINES3 STU 
LDD 
SUBD 
LINES4 RaDDD 
STD 
吾 
LDR 
BNE 
LDX 
LERX 
BE 
LDX 
LERX 
LBE 


LNCDSF_LDD 
STD 
LDD 
STD 
LDD 
STD 


LINESS ERU 
JSR 
LDD 
RDDD 
STD 


還 

LINES6 SUBD 
BLS 
STD 
LDB 
RDDB 
STB 

*・ LDD LNPY 

* SUBD LNDX 

* BLO LINESB 
JSR 
LDp 
BRR 


LINES? ERU 
BNE 
STD 
LDB 
RDDB 
STB 
LINESB LDD 
RDDD 
STD 
LDX 
LERX 
STX 
BNE 
LINES9 RTS 
mw 


LNPQIN LDR 
BE 
LDH 
LDR 
FSHS 
JSR 
FULS 
JSR 
FSHS 
LDR 
ST 
LDB 
RNDB 
RB 
STB 
PULS 
JPP 

LNDQOT JP 

* DR R LINE 

1 

LINEY LDX 
LDY 
LDR 
BPL 
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LNBPY+2 
LNDX+2 
LNDY+2 
LNUX+2 
LNUY+2 
LNFY+2 
LNLP+2 


#1 1 UNIT 
ー-1 UNIT 


DX=X2-X1 : 
IF DX〉=O 
THEN UX=1: 


ELSE DOz 
DX=X1-X2! 
END: 

1 DX=DX+1: 


UX=ー1 : 


DY=Y2-Y1: 
IF DY〉=O 
THEN UY=1 


ELSE DiUY=-1: 
DY=Y1-Y2: 

END: 

1 DY=DY+1: 


SHRLL 1I DISPLRY CHRRRETERT 
YES. 


FY=0: 
GX=X1 5 
GY=Y1s 
LNPOIN 
LNPY 


LNDY 
LNPY 


CRLL GBPDSFs 


PY=FPY+DY: 


LNDX 
LINESY 
LNFY 
・BY+1 
LNUY+1 
・GY+1 


DQ _MHILE(FY〉DX) 


BY=GY+UYi 


LNPQIN 
LNPY 
LINES6 


CRLL GPDSP'z 
END: 


キ 
LINESB 
LNPY 
・BY+1 
LNUY+1 
・BY+1 
・GX 
LNUX 
・BX 
LNLP 
ー1:X 
LNLFP 
LINESS 


PY .NE. DX THEN BT LINESB 
PY=O0: 


RY: 





BX=GX+UXs 


LNEHR 
LNDQT 
・BX+1 
・GY+1 

D 

BRDR 

D 

BURD 

D 
・CDIRR+4 
*X 

sY 

#$B0 

・ に ORR+3 
>Y 

X 

EDSP 
GFDSP' 
THRT IS PRRRLLEL TQ ロ Y RaXIS, 


B1/7/? 


・LX1 
・LY1 
LNUY 


RSSUME FIINT-1 CHHRDINRTES。 
TS IT R NEGRTIUE DIRECTIN? 


LINEY2 NO. 














02961 人 8 
02962R 
029363a 
02964R 
02965a 
02966R 
02967A 
0296BR 
02969 

02970 

0297?1 

02972R 
029738 
02974R 
0297SR 
02976R 
02977R 
02978BR 
02979R 
02980R 
02981a 
02982R 
029838 


02992R 
029936 
02994R 


030006 


030028 
030036 
03004 人 
03005R 
03006R 
03007R 
030086 
03009R 
030108 
03011R 
03012R 
030136 
0301 4 
0301S8 
03016 
0301 7 
0301BR 
030198 
030208 
030218 
03022a 
030238 
03024R 
0302SR 
03026 
03027 
0302B 
03029 
030308 
人 
03031 人 8 
03032R 
03033 
03034R 
0303SA 
03036 
030378 
03038A 
030398 
030408 
03041 
03042 
030438 
03044 人 8 
0304S5a 
代 


03047a 


人 
03048R 
R 
03049 
は ] 
03050R 
1 は] 
030S18 
1 


03053 
03054 
0305SR 


FQ042 
F043 


4000 


C9 Bo00 


っ ゃ や ゃ ゃ ゃ ゃ 


こ 
い ! 
ゃ ゃ ゃ ゃ ゃ ゃ ゃ お ゃ ゃ ゃ 


ゃ や や 〇 や やや や や や や や ゃ ゃ や 


ul 
回 
や ゃ ゃ や ワ や や や 


や や や や や や や や ヤ や や や や や や や や や や や や や や や や や や 


や や や や や や や や や 


LINEY2 
LINEY4 


LINEXR 
に 
* DRRM 


LINEX 


LINEX2 


LINEX3 


LINEX4 


LINEXS 


LNXFNC 


キ 
LNRND 


SKIP2 


・LY2 YES。 THE STRRT PHINT IS THE POINT2 
BRDDR ET THE URRI_RDDRESS ロ F STRRT PINT 
3U SRVE IT TH X 


PDSPR DISFLRY DI ロ T. 
BXBSZ:X 
LNDY+1 
LINEY4 
THRT IS PRRRRLLEL TH X aXIS. 
・LX1 
・LX2 
LNUX IS 1T NEGBRTIUE? 
LINEX2  NQx 
え ぅ U YES EXCHRNG _LX1 RND LX2 
LNUX SET LEFT X TQ LNUX. (DESTRCY UNIT OF STEP) 
LNUY SET RIBHT X TH LNUY. (DESTR ロ Y UNIT Q ロ F STEP) 
LNUX+1 
人 #$07 GET LEFT BIT POS 
BRS 
RsX 
LEFT SIDE BIT MRSK 
LNUY+1 
#$07 GET RIGHT BIT FOS 
RsX 
RIGHT SIDE BIT PRSK 
RB SRVUE THE SIDE MRSK 
LNUX 
LSRD3 
B 
LNUY 
LSRD3 
35+ GET THE NUMBER ロ F BYTE 
LINEX3 INTERVRL 1S GRRTER THRN 1. 
5+ NLY UNNE BYTE 
+ ら + LnGICAL RND THE BHTH SIDE BIT MRSK. 
LNRSID SET BIT IMG。 aND RETURN 
LNLP' SRUVE 
+5+ 
せ $FF IS THE RIGHT SIDE FULL BYTE? 
LINEX4 YES。 
LNRSID NO, PUT BYTE MITH MRSK. 
LNLP 
5+ IS THE LEFT SIDE FULL BYTE? 
LINEX5 YES。 
LNLSID N ロ : PUT BYTE MITH IMRSK。 
LNUX LEFT SIDE IS FUINTED NEXT。 
BiX 
LNUX 
LNLF 
LINEXR NO BYTE REMRIN. GU FINISH. 
= 
・LY1 LORD THE Y COORDINRTE. 
LNUX LORD THE LEFT X。 
GRDDR 。 GET LQMEST DHT RDDRESS. 
LNLP 
BLULIN 
・- VRiU 
LNLP 
REDLIN 
・・UGー. . UR+U 
LNLP 
GRELIN 
LNUY LnRD THE RIGHT X CUURDINRTE 
$B ヒ CMPX 間 
LNUX LORD THE LEFT X COORDINRTE. 
・LY1 LORD THE Y CORDINRTE. 
B SRVE BIT MRSK. 
GRDDR GET URI RDDR. 
U TFR _U TO X. 
*5 Y_ PQINT TQ BIT MRSK 
BLUSID BLUE 
・VRrU XPTR RED URI 
REDSID RED 
・-VUGxU X FTR BREEN VRRIY 
ERESID GBREEN 
B 
B:FC 


LNXOR+LNXRND PSET 
LNXOR・LNXRND PRESET 
LNXUR:LNXNUF_ DR 
LNXNHP sLNXRND RND 
LNXE ロ R LNXN ロ F_EUR 
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ソン ソース ・ リ スト 





は ! 
03056R 
03057R 

人 
0305BR 
030598 
03060R 
03061R 
03062R 

人 
03063 
03064 
03065R 

人 
03066R 
03067RR 
0306BR 
030698 
03070 

人 
03071 
03072 
03073R 

人 
03074R 

介 
0307SR 


03076R 
人 
03077R 
は ! 
0307B 
03079 
03081 
0308B2 
03083 
03084 
03085 
03086 
030B? 
030B8 
03089 
03090 
03091 
03092R 
030938 
03094R 
03095a 
030964 
03097R 
03098R 
030998 
03100R 
03101R 
03102 
031038 
03104R 
03105a 
03106R 
03107a 
03108R 
031098 
03110R 
03111 
031 12R 
031138 
03114R 
0311Sa 
03116R 
03117 
03118 
031198 
03120R 
03121 
03122 
03123 
03125 
03126 
0312? 
03128 
03129 
03130 
03131 
03132 
03133 
03134 
03135 
03136 
0313? 
03138 
03139 
03140 
03141 
03142 
03143 
03144 
03145 
03146 
03147? 
0314B 
03149 
03150O 
03151 
03152 
03153 
03154 





FO43 
F044 
FO46 
FQ46 
F049 
FQ4R 
FO04CE 
FO4D 
FO4F 
FQ4F 
F0S2 


F053 
F053 
FO56 
FOS 
F059 
FQSR 
FOS5C 
FQSC 
FOSF 


FO60 
FO62 
F064 
FO66 
F068 


RR FO6R 


FO6C 
FO6E 
FO?0 
FO72 


FOY4 
FO07P 
F079 
FOBH 
FOYD 
FOBO 
FOB3 
F085 
FOB 
F089 
FOBB 


FOBD 
FOBE 
F030 
F093 
FQ095 
F098 
FO9R 
F09D 
FO9F 
FOR2 
FOR4 
FORY 
FOR9 
FOaR 
FO8C 


FO8D 
FOBO 


B6 


109F 


109F 


BC 


-FF 


D409 
CS 
FB 
D409 


D409 
C5 
FB 
D409 


F044 
FO42 
F044 
FQ42 
F044 
FO5Z 
F052 
FO42 
F053 
FO52 


FOSY 


や や や や や や や や や エセ 


py ユ 
〇 OO ト =』 
トリ 8 セ 
〇 ゃ の 〇 ゃ や や や や や ロロ p や や や 


や や や や や や や や や や や 


F093 


ゃ や ャ やや や や や や や や や や や や や 


FCB 
LNOR  LDA 
VRCON 
BITA 
NOP 
LNRDn STa 
DECB 
BPL 
VaCOF 
STA 
LNNnP RTS 


3 

LNEQR VC ロ N 
BITR 
NQP 

LNEQRD CO 
DECH 
BPL 
VRE ロ F 
STR 
RTS 

に 3 


LNFUNC FDB 
FDB 
FDB 
FDB 
FDB 


キ 


BC CMPX 
#$FF 


UaCC 
BrU 
LN ロ RDQ 


F 
URCC 


UaCC 

BU 

LNEORD 

F 

URCC 
LNR,LNRND 
LNOR:LNRND 
LNQR,LNNDF' 
LNN ロ PF LNRND 


LNEURLNN ロ PF 


*** END OF SUBROUTINE "LINES" 


に 3 
CHRIN CO 


に 

し ・CONR+ 

き ・CQRR+ 

* ・COWRR+ 

・EDINRR+ 

に 3 

CHRIN EBU 
LDD 
CMFBH 
BHS 
STD 
JSR 
LDU 


CHRIN2 STX 


に 
CHRIN? JP 
CHRINB JIMP 


END QF 


・EUIRR+ さ 3 
・CONYRR+4 
・CUIMRR+5 
・COMQR+6 
・COUMRR+? 
・COYRR+ 晶 
・CUMRR+10 
・COIRR+12 
・CUMRR+13 


人 人 


き 


MRX EQU 
HRX ESU 
SU EQU 
HSU ESU 
MCSU ERBU 
HCSU EQU 
NOTF E6U 
CPTR ERU 
MOP ERU' 
HOP EQU 
FMRK  EBU 
FPTR  E6gU 
LM EQU 
LH EQU 
SYIFNT EGU 


ポ 


IfRND 


3 COLOR C ロ DE 

4 FUNETION CODE 

5 。 NUMBER DF POINT 
6 CHRINED POINTS 


に 
CPDFRIM  R=CULUR,B=FUNCT InN 

#5 

CHRIN7 FUNCTIHN CODE ERROR 
・BEL 

INITLN 

#CMDPRN+2 

*U+ 

#1 

CHRINB  NUPBER DF PHINTS ERROR 
#30 が 

CHRINB NUMBER ロ F PQINTS ERROR 


XY 
GRXCHK 
・LX1 
・LY1 
XaY 
GRXCHK 
・LX2 
・LY2 

X ュ YU 
LINES 
XsYsU 人 Fa 


CHRIN2 
ERR64 
ERR65 
"CEHRIN" CUMIMRND 


SYIBHL COIMRND 


CULUR CUDE 
FUNCTIUN CODE 

RNGLE CODE 

FUL ロ F MIDTH 

IMUL OF HEIGHT 

X COORDINRTES 

Y CHORDINRTES 
NUMBER ロ F CHRRRCTER 
CHRRRCTER STRING 


-・MORK PTR OF MK MRX 
・MORK+2 PTR ロ F MK H RX 
・ MORK+4 MM DOT STEP 
・MDRK+6 H D ロ T STEP 
・MORK+B MM CHR DQT STEF 
・MORK+10 H CHR DOT STEP 
・MURK+12 FONT NT FLRG 
・MHRK+13 CHRRRCTER PTR 
・MURK+15 M RG 

・MORK+1? H DRG 

・MURK+19 FUNT TEST MRSK 
・ LUIORK+20 FUNT FTR 
・MDRK+22 LUOF WM 

・ MORK+23 LOOF H 

- MORK+24 TEMP FONT RRER 











03155 
03156 
03157R 
031SBR 
03159 
03160R 
03161R 
03162R 
03163R 
03164R 
03165R 
03166R 
03167R 
0316BR 
03169 
031708 
03171 
03172R 
03173 
03174R 
03175 
03176 
0317? 
03178B 
03179 
03180 
03181R 
03182R 
03183 
03184R 
03185R 
03186R 
03187R 
03188B 
03189R 
031908 
03191R 
03192 
03193 
03194R 
03195R 
03196R 
03197R 
03198R 
03199 
032O08 
03201R 
03202R 
03203 
03204R 
03205R 
032068 
03207R 
0320BR 
03209 
032108 
03211R 
032128 
032138 
03214 
03215R 
03216R 
03217 
R 
03218R 
032198 
03220R 
03221 人 8 
03222R 
032238 
03224R 
03225R 
03226R 
03227R 
0322BR 
03Z229R 
032308 
03231R 
03232R 
032338 
03234R 
0323S 
代 
03236R 
03237R 
03238 
032398 
03240R 
03241R 
03242 
032438 
03244R 
03245R 
03246R 
03247R 
03248R 
03249 
03250 
03251 
03252R 
032S38 
03254R 
03255 
03256 
03257R 
0325BR 
03259 


FOB3 
FOB6 
FOBB 
FOBR 
FOBC 
FOBE 
FOEO 
FOC1 
FOC4 
FOCY 
FOCB 
FOCB 
FOCE 
FOD2 
FOD5 
FODY 
F0D9 
FODB 


FODD 
FOEO 
FOE1 
FOE3 
FOES 
FOEY 
FOE9 
FOED 
FOEF 
FOF 1 
FOF3 
FOF5 
FOFY 
FOF9 
FOFH 
FOFC 
FOFE 
F100 
F102 
F104 
F106 
F10Y 
F109 
F108 
F10B 
F10D 
F10F 
F111 
F113 
F115 
F116 
F118 
F11H 


F11D 
F12O 
F122 
F122 
F124 
F128 
F12B 
F12F 
F131 
F133 
F135 
F13Y 
F138 
F138 
F13B 
F13D 
F140 
F142 
F145 
F14? 
F14R 
F14C 
F14C 
F14E 
F15O 


F152 
F1S5 
F1S8 


F1SB 
F1SD 
F160 
F162 
F164 
F16B 


F16R 
F16C 
F16E 
F17O 
F172 


F174 
F17P 


FOB3 1 
D3B3 R 
R2 | 
05 R 
F1 FORD 
03  FOC1 
RZ 


E46F 
D385 


や 


DOSR 
DOSB 
D3B8 
D3BR 

04  FOD| 
01 

23 

?6 


や や や ロ や アア や や アヤ ア や 


D38S R 


41 R 
04  FOE3 
9E 人 
42 Ra 
EFF6 EOE3 
RO 人 
E4 人 
03 人 
02 R 
02  FOF93 
01 R 
04 人 


E4 は 1 
06  F106 
9E 介 
9E 1 
FE R 
98 1 


eul 
ゆ 〇 
ユ 
1 
Po 
や 


ご 
IN 
NN 
や や や や や や や ょ や や や や や や や や セ 


OB  F16R 


し 

SYMBQL ESU 
LDD 
ELR 
CIFB 
BHI 
BNE 
CI 
CLRB 

SYIBOO JSR 
LDR 
LSRR 
LDD 
LDX 
LDY 
LDU 
BCC 
EXG 
EXG 

SYIBO1 PSHS 


0S CUQRD 
2 CUHRD 
4S DRIGI 
6:S ORIGI 


に 表 全 表 人:】 


LDU 
CLRR 
LDB 
BEG 
STD 
LDB 
SYMBO4 LBEG 


SYMBOS INCH 


SYIBO6 INCB 


SYIB10 EQU 


SYIB13 LDA 


SYIB15 LDR 


SYMB17 LDR 
SYMB2O EQU 


SYIB3O EQU 


SYIB33 EQU 


3 
SYIB3S EQU 


SYIB40 ERU 
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0 


サ プ シ ステ ム ・ モ ニタ ソン ソース ・ リ スト 





03260R F1Y9 B6  D386 R LDR .CQMaR+6 MIDTH DuT 
* ENTRY 03261Q F1YC 97 RC R ST LM 
ENDFRN 03262 F17E R SYB5O EQU ・ 
NTF 03263a F1YE BD  E493 Ra JSR GBPDSP  *wwDISPLRY*** 
#5 NnT? 03264R F181 RE  E4 A LDX 3S 
CHRINT 03265a F183 EC 84 A LDD PD 
SYMBOO NO. 03266Q F1B5 D3 98 R RDDD MSu 
NOTF 03267R F1B7 ED 84 RA STD ・X 
FUNCTI ロ N IS PSET 03268R F189 BD  E387 Ra JSR GRXC 
PDSIR 03269R F1BC 24 04  F192 BCF SYMB55 VER 
- CMRR+5 RNGLE 03270R F1BE OR RC R DEC LM 
03271R F190 26 EC  F17E BNE SYME5O 
#。 RBX 03272 F192 R SYMB55 EpU * 
社 。 BY 03273Q F192 EC FBO4 Ra LDD 4,S1 
#。 COIWRR+B 03274R F195 ED  F4 A STD ,S] 
#. CMRR+10 032Y5R F197 RE 62 A EDX 1* 幼 の 5 ら 
SYMBO1 03276 F199 EC  B4 R LDD 5X 
DX 032Y7Q F19B D3 9 ヒ 人 RDDD  HSU 
YU 03278R F19D ED 84 STD X 
UnY:XrD 03Z279R F19F BD  E38Y 8a JSR GAXC 
032B0R F1RZ 24  OD  F1B1 BCC SYMB7Q 
INATES FTR ロ F MIDTH RXIS 032B1Q F184 OR AD R DE に  LH 
INRTES FTR DF HEIGHT RXIS 032B2R F1R6 26  D1  F179 BNE SYMB40 
NRL CH ロ RDINRTES PTR ロ F MIDTH aXIS 03283 F1RB R SYMB60 ERU * 
NRL CDORDINRTES PTR ロ F HEIGHT QXIS 032B4R F1QB 9E  RR R LDX FFPFTR 
032B5R F1AR 30  O1 a LERX 1,X PTR NEXT FnNT DnT 
#、 CRR+5 032B6R F1RC BC DOB6 8a CMPX 。#SYFNT+CFH END ? 
032B7R F1AF 26 QA  F1SB BNE SYMB3O NO 
1.U PUL OF WIDTH 032B8 F1B1 R SYMBYO EQU * 
SYhBO4 03z89R F1B1 RE 64 a LDX 45 
MCSU 03290R F1B3 EC  B4 RA LDD sX 
2U UL OF・HEIGHT 03291 F1BS D3 9E R RDDD MCSU 
ERR69 PRRM ERROR 03292R F1B7 ED 8B4 A STD nX 
HCSU 032936 F1B9 ED  F4 R STD [,S] 
ュ U RNGLE CODE 03294R F1BH 04  R9 RA LSR FMRK SHIFT RIGHT MRK 
#503 03295Q F1BD 26 93  F152 BNE SYMBzo 
#2 032968 F1BF YR  D38C Ra DEC .CQMRR+12 ロ NE CHR END 
*+4 03297R F1C2 9E 3 LDX CPTR PTR NEXT CHR 
#$01 03298Q F1C4 30 01 R LERX 1.X 
B 03299R F1C6 9F 83 RA STX CFPTR 
03300R F1CB YE FI1D Aa JMP SYMB1O 
。S 03301 * 
SYIMBO5 03302 ト エ エエ エエ よ よ エナ エエ よ よ エエ エエ エエ よ よ よ よ よ よ エエ よ よ よ エエ よ よ よ エエ よ よ 】 
MCSU 03303 * 
MCSV 03305 * 
FE 03306 * CHANGE COMMAND 
03307 * 
USU 03308 * - CONRR+3 。X1 
03309 * - CMaR+5 。 Y1 
03310 * - CDMRR+7  X2 
S+ 0331 1 * - COWR+9  Y2 
SYMEO6 03312 円 - CDMRR+11 NUBER ロ F ELOR 
HCSU 03313 * - CMRR+12 CHLHR 
HESU 03314 * 
#$FE 03315 * 
03316 Do96 人 CHGCL EQU  .MORK 
HSU 03317 Do9E R CHGI ERU CHGCL+ 
#。 CHITRR+13 0331B Do9F R CHGJ ” EQU CHGI+1 
CFTR UHAR FTR 03319 DORO 。 aCHGK EQU CHGJ+1 
* STaRT DISPLY 03320 * 
. COMRR+12 CHRR END” 03321 F1CB Ra CHRNGE EGU * 
SYB13 NO, GO DO MORE. 03322R F1CB BD  E406 R JSR BOXINU 
(UrY,X:D) 033238 F1CE D7 RaO 1 STB CHGK 
U,YiX。DiPE 03324R F1DO BE DO96 Ra LDX #CHGCL 
LCFTR〕 CHR LORD 03325Q F1D3 B6 07 F1 LDa 7 
CFDR FONT ロ RIGINaL 03326R F1D5 RT 8B6 R CHRNGO STR RxX 
#SYMFNT FONT STORE RDDR 03327 F1D7 4 DECA 
#CFH NUMBER ロ F FNT BYTE 0332BR F1DB 2R FB  F1D5 BPL CHRNGO CHRNGE TABLE INIT URLUE 
0,X+ 03329Q F1DA F6  D3BB Aa LDB .COMRR+11 
NTF 03330R F1DD 27 51  F230 BEG CHRNGX 
*+ う 03331 F1DF C1 OB R CYPH HB 
NT FUNCTION 03332R F1E1 22 4D  F230 BHI CHRNGX 
0・Y+ STORE 033336 F1E3 108E D3BC Aa LDY #. CUMRR+12 
03334R F1E7 DY 9E R STB CH 
SYMB15 REMRIN 03335R F1E9 EC  R1 R CHaNG1 LDD 0:Y++ 
- CHMRR+B 03336R F1EB 84 07 人 RNDR 87 
・BX 03337a F1ED C4 07 RNDB  HN7 
. CR+10 03338Q F1EF EY 8B6 R STH RuX 
- BY 03339Q F1F1 OR 9E R DEC CHGI 
BAXC CHECK AXIS 03340R F1F3 26  F4  F1E9 BNE CHRNG1 CHRNGE TABLE MADE 
SYhB17 03341 * 
(UrYrXD) 03342R F1FS OF 57 R CLR  .GBF FUNCTI ロ N IS "SET" 
U・Y,X:D,PC 0334 さ F1FY Ra CHaNG4 ERU * 
信 $BO 03344R F1FY 9E SF R LDX - BOXX1 
FMRK TEST MARK INIT 03345Q F1F9 109E 61 R LDY - BnXY1 
* 03346R F1FE 96 AO R LDa CHGK 
6,S] 03347 F1FE 4 ヒ INCR 
2:S] 03348R F1FF 97 9F R ST CHGJ 
#SYMFNT FUNT RDDR INIT 033498 F2O1 BD  E3EO Ra JSR GRDDR 
* 03350R F204 BE DO96 R LDX #CHGCL 
FFPTR SET FnNT FTR 03351 Fz2OY Ra CHRNG5 EQU ・ 
ERXC 03352Q F2O7 BD  E39E A JSR BPGETR 
SYIYB33 033538 F2OR 6  B6 Ra LDa AX 
FNRK 03354R F2OC 97 56 R STA  .BCL 
[FFTR] DQT ロ N? 03355Q F2OE 34 54 R PSHS 。X,UiH 
SYIB35 QN 03356R F210 BD  E46D Ra JSR GPDSPI 
+ 0335?7a F213 35 54 R PULS 。X,UB 
HCSU CLEAR 03358R F215 34 54 人 PSH5 。XxUB 
。 ら 03359 F217 BD  E49B Ra JSR GPDSFR 
・X 03360R F21A 35 54 R PULS 。X:U:B 
3X 03361A F21C33 CBSO Ra LERU GEXBSZ,U 
SYhB6o 03362Q F21F OR 9F A DEC CHGJ 
033636 F221 26  E4  FzOY BNE CHRNG5 
し 03364 * 
・CCYRR+7 03365Q F223 9E SF R LDX ・ BUXX1 
LH HEIGHT DQT 03366R F2z5 9 ヒ 63 1 CPPX  .BnXXZ 
に 03367R F227 2? 06  F22F BEQ CHRNG9 
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&O 


サ プ ジ ズ デ ペー モ 三 


ンー スズ … リス: ト 





0336BQ F229 30 
03369R F22B 9F 
0337O8 F2zD 20 
03371 
03372Q F2z2F 39 
03373 F230 7E 
03374 
03375 
03376 
03378 
03379 
033B0 
033B1 
033B2 
03383 
03384 
03385 
03386 
033B7 
033BB 
03389 
03390 
03391 
03392 
03393 
03394 
03395 
03396 
03397 
03398 
03399 
03400 
03401 
03402 
03403 
03404 
03405 
03406 
03407 
03408 
03409 F233 "7E 
03410 
03411 
03412R F236 BD 
03413 F239 BG6 
03414R F23F 2 
03415 F23E 1 
03416R F240 22 
03417 F242 97 
0341BR F244 BE 
034198 F247 CE 
0342z0 
03421Q F24R BD 
03422a F24D BD 
03423Q F2SO BD 
03424R F253 30 
03425Q F255 YR 
03426 F25B 26 
0342? 
0342B 
03429 
03430 
03431 
03432R F25R BD 
03433 
03434 F25D 96 
03435Q F2SF 97 
03436R F261 
03437R F265 9E 
0343B F267 

R F267 B5 
03439n F26 12 
03440 F26B E6 
03441R F26D DY 
03442R F26F E6 
03443Q F2Y3 DY 
03444R F275 E6 
03445Q F2Y9 30 
03446Q F2YB D7 
03447R F27D 

R F2YD B7 
0344BR F2BO 6F 
034498 F2B2 CE 
0345OR F2B5 96 
03451A F2B7 E6 
03452 F2B9 DB 
03453R F2BH EY 
03454R F2BD E6 
03455R F2BF DB 
03456Q F291 ER 
0345?R F293 ET 
0345BA F295 E6 
03459Q F297 DB 
03460 F299 ER 
03461a F29B 53 
03462n F29C EA 
03463Q F29E E7 
03464Q F2QO 4 
03465Q F2R1 26 
03466 F23 31 
03467R F2R5 0 
0346BQ F27 26 
03469 
0347O 
03471 
03472R F29 BD 
034?3 








01 
SF 
CB 


EODD 


R 
F1FY 


人 


や や や や や や や や や や や や や や や や ヤ や や や や や や や や エア 


"9 
MD 
COJ 
や セロ 


や や や や や や や や や や 


Fz4, 


や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や 
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を 
CHRNG9 
FEHRNGX 
3 

=* 


LERX 1:X 
STX ・ BUXX1 
BRR CHRNG4 
RTS 

JIP ERR6Y 


*rw** CEHRNGE COMPYRND END 


* BET 


人 表 表 王 2 


ロ 
GBRDX 
GBDPX 
BNBX 
BBNX 
GBNY 
GBI 
GEBJ 
GBCL 

ゃ 
GBNCL 
GBFIX 
GBDIX 
GBIX 
GBTIIX 
GBK 
BUB 
BUVR 
BVG 
GBSU 
GBDaTA 


* 
BBLK19 
ロ 
GBLK1 


BBLK1 1 


に 表 表 委 】 


GBLK12 


GBBLK13 


GBLK14 


を 


BLDCK1 COMIRND 


・CUMRR+3  X1 
・E ロ MRR+5 YY1 
・EUMRR+?7 。 X ら 
・COMRR+9  Y2 
・COMRR+11 NUPYBER 
・CUIAR+12 CULUR CUDES 


UF COLOR 


EQU ・MORK TOP RDDRESS DF X. 

ERU GBRDX+2 BIT NO. OF X 

E6U GBDPX+1 BYTES。QN DRTR 

EiU GBNBX+1 D ロ TS,X 

EQU BBNX+2 DOTS,Y 

ESU GBNY+1 TENP' 

EQU BBI+1 TEIPF 

ESU GEJ+1 24 IDIFING CHNSTRNT 
FOR COLOR 

EQU BCL+24 NUMBER _ ロ F CHLOR 

EBU BNCL+1 PUT INDEX 

ERU GBP TX+2 DRTR INDEX 

E6U BBDIX+2 BIT N ロ SHIFTED TOF 

EgU GBIX+1 

E6U GBTIMIX+2 

EQU BK+1 BLUE DRTA 

EQU BUB+1 RED DRTR 

ESU BUR+1 GREEN DRTR 

EBU BUG+1 SHIFT URLUE 

EQU GBSU+1 日 3 BYTES,PLRSTI ビ RRER. 

JP ERRG67 

EQU に 

JSR BBINT 

LDR ・EOPRR+11 NH. ロ F CHLOR 

BEG BBLK19 CHECK 

CTPR # 日 

BHI BBLK19 

ST BNCL 

LDX #. ECUMRR+12 PTR。CULUR CODE 

LDU #GBCL CHLOR TRBLE 

EQU * 

JSR GBSCL BLUE BIT 

JSR BBSCEL RED BIT 

JSR GBSCL GREEN BIT 

LERX 1X 

DEC ・EOIRR+1 1 

BNE BBLK1 1 


ー DUTPUT DRTR - 
- COWIRR+3 NUMBER OF BYTE 
・ COMGR+4 PRTTERN DRTR NHEN RFTER THE FIRST 


JSR GBOINT 

ERU = 

LDA BBNBX 

STR GBI LOOP COUNTER 
LDY #GBDRTR+ つ 

LDX BBDIX 

URCON 

BITR VaCC 

NOP 

LDB ・・UBX 

STB GBVB 

LDB ・・VR:X 

STB GBVR 

LDB ・・ VGX 

LERX 1:X 

STB BVG 

URCOFF 

STR UEC 

CLR O0Y 

LDU #BBEL 

LDA BBNCL LOOP CHUNTER 
LDB 0U+ 

EDRB  GBVB ER BLUE 
STB 1Y TEMP ,SRUE 
LDB 0U+ 

EDRB  GBVR 

RB 1:Y 

STB 15Y 

LDB 0jU+ 

EQRE BBUVG 

RB 1:Y 

COIB 

DRB OxY 

STB OY SET 

DECR 

BNE BBLK14 

LERY 1.Y 

DEC BI 

BNE BLK13 


DQT PICKUP END 


JSR BBPLR 


SHIFT RND PUT 








03474R 
034?S5a 
03476R 
03477 介 
0347BR 
034798 
0348OR 
034818 
034B2R 
034838 
03484 
03485 
03486 
0348B7 
034BB 
03489 
03490 
03491 
03492a 
03493 
03494R8 
0349SR 
03496R 
03497R 


03505R 
03506a 
03507R 
0350BR 
03509 
03510 
0351 1 
03512 
03513 
03514 
03515 
03516 
03517R 
03518R 
03519 
0352O8 
03521N 
03522 
03523 
03524 
03525 
03S26 
03527 
03S2B 
03529 
035306 
035318 
03532a 
03533 
03534R 
03535R 
03536 
03537R 
03538 
03539R 
035408 
03541R 
03542 
03543 
03544 人 
03545 
03546 
03547? 
0354 
03549 
035S0 
03551 
03552 
035S3 
03554 
03SS5SR 
035S6R 
03S5S7A 
03SSB 
035S9 
035606 
03S561n 
03562R 
035638 
03564 
03S6Sa 
03566 
03S67a 
03568BR 
03569 
0357?0 
03S?1 
03S72R 
035?38 
03574 
035?S5Q 
03576R 
03S77R 
03578 
035?79 
03SBOR 


F2RC 
F2RE 
F2H1 
F2B3 
F2B5 
F2BY 
F2B9 
F2BB 
F2BD 
F2BF 


F2CO 
F2C3 
F2C5 
F2CY 
F2C8 
F2CR 
F2CC 
F2CF 
F2D1 
F2D3 
F2DS 
F2DB 
F2DA 
F2DC 
Fe2DD 
F2DF 
F2E1 


F2E2 
F2E4 
F2ES 
F2E6 
F2EB 


F2E9 
F2EB 
F2EE 
F2FO 
F2F2 
F2F4 
F2FY 
F2FB 


F2FB 
F2FD 
F2FE 
F301 
F303 
F305 


F306 
F30B 
F30R 


F30C 
F30E 
F310 
F312 
F314 


F316 
F318 
F31a 
FG1C 


F31E 
F3z2o 


F322 
F324 
F326 


F328 
F32A 


64 
56 
1D 
fP 
39 


F2E2 
B4 


CO 





や や や や や や や や や や や や や や 


R 


や や や や や や ア や ロ や や や や セア 


の うつ や 和 の の 人 


F316 


代 
F31E 


人 
F31E 
人 
人 


朋 


代 
F339 


LDX 
LERX 
STX 
DEC 
BNE 
TST 
BEG 
LDR 
BSR 
GBLK17 RT 


キ 
* 

* "BBINT" 
w 

に INITIRL 
に CCMRND 
* 

1 


iBINT ERU 


PICKUP 
EXTEND 
RND SET 


に 革 共 王 】 


GBSCL  EGU 
LSR 
RORB 
SEX 
STR 
RTS 


SET ONE 
IF RaREA 
BEFORE 


を 衝 を を を を 


jBPUT EQU 
FPSHS 
LDB 
LDX 
CIPB 
BL 
JSR 
CLRB 
LDX 
GBPUT1 ERU 
STa 
INCBH 
STB 
STX 
PULS 
RTS 


"RBPLRP 


FLRST 1 に 
RND SET 


人 


素 

GBPLR EEU 

* BBSU=GHTXー 
LDa 
SUBR 
STa 

* IF GBSV〉4 
CMPA 
BLE 
SUBR 
STR 
BRa 

* IF GBSU〈-4 

GBPLA1 CYP 
BG 
aDDa 
STR 

* NEXT: 

BBPLR2 EQU 

* IF GBSU<O 
TST 
Bt 

* DO BBI=1 T 
LDa 
STa 

GBPLR3 BE 

* DO BBJ=1 T 
LDa 
STa 


の 


サ プ ジ シズ デ テバ モニ ター シー スリ ドス 小 

















GBDIX 035B1R F32C BE DOC6 R LDX ##GRHDRTR+ ど 
GBXBSZ:X INC Y ヒロ - ロ RDINRTE 0358B2 1 
GBDIX 035 昌 3 F32F R_ GBPLR4 ERU キ 
GBNY DEC Y LIP 03584 * T=SUBSTR(GBDRTR(GBJ+2) 日 1 ) 
BBLK12 03SB5 * RBDRTR(RBJ+ ご ) = ニ ビ \\SUBSTR (GBDRTR(GEHJ+2) 1 7) : 
GBIX 035B6 * ヒ =Ts 
BLK17 REMRIN IS ZERQ 0358B?R F32F 66 BO 代 ROR 0 ュ X+ 
GBDRTR 035BBR _F331 OR 9E 代 DEC BBHJ 
GBPUT 035B9R _F333 2 FAR F32F BPL GBPLR4 
03590 * END 
03591 * END : GUTU ロ UTPUT: 
03592R F335 OR 9D 人 DEC BI 
03593R F33?7 20 ED F326 BRR BPLR3 
03594 * MSHIFT 
1ZE "BBLK1" ロ R "BBLK2" 03595 F339 RR BBPLRS EGU を 
03596 * DU BI=-1 TU BSV STEP -1 
03597R _F339 96 ヒ 3 R LDR BSU 
0359BR F33B 97 9D R ST BI 
BOXINUV 03599 し 2 
15X 03600R F33D BE DOC6 R BBPLR6 LDX #RBDRTR+2 
GBNX 03601R F340 96 993 1 LD8 GEBNBX 
036O2R F342 30 86 人 LERX 人 RsX 
GBNY 03603 * DD GEBJ=1 TH BNBX+1: 
・BHXX1 03604 を 
EXFF DDRESS,BIT ND. 03605Q F344 97 9E 人 STR GEJ 
BBRDX X。DDRESS 03606 F346 R BBPLRY EREU キ 
GBDPX XBIT NG 03607 * =SUBSTR(GBBDRTR(GBNBX+2ーGBJ ) 』 1 1 ) : 
・BHXX@ 03608 * GBDRTR(GBNBXX+2ー-GBJ ) =SUBSTR( GBDRTR (RBNB+2ーGEJ ) ご?) 半 \ じ にゅ 
GX ロ FF 03609 * ヒ =Ts 
XxD 03610R F346 69 B2 1 RQL 0 ューX 
GBRDX 0361 1 * ENDs 
03612R F34 OR 9E は 1 DEC GBJ 
BBNBX NUMBER ロ F BYTE X 03613R F34 2R FR F346 BFL GBPLRY 
BBIX 03614 * END: 
03615R F34C 0C 9D 人 INC GBI 
03616R F34E 26 ED F33D BNE RBPLR6 
0361P * HUTFUT 
03618 F3S0 R GBPL10 ERU * 
COLOR BIT, 03619 * P=RDDR(GBDRTR(3) ) : 
CULUR BIT TO R BYTE 03620R F3SO BE DOC6 人 LDX GBDRTR+ ご 
EXTENDED BYTE TH TRBLE. 03621 * IF BSU+GBDPX 〉 ? THEN F=F+1: 
03622R F353 36 に 3 介 LDR BSU 
に 3 03623R F355 9 98 R RDDR BDPX 
0X PICKUP 03624R F357 B1 rd Ra CMPR #P 
03625R F359 2F 02 F35D BLE GBPFL11 
EXTEND 03626R F3SH 30 01 人 LERX 15X 
U+ GET 03627 F35D R BBFL11 ERU 
03628 * IF BSU+RBDFX 〈 0Q THEN P=P-1 
03629R F35D 4D TSTR 
03630R F3SE 2 02 F362 BPL BFL12 
BYTE Tn CO RREA 03631R F360 30 1F 1 LERX ー1X 
IS FULL,DH CHNINUHUS SEND 03632 F362 R GBPL12 ERU * 
SETTING BYTE. 03633 * MRSK=BRS (BTX+1 ) *2ー1 5 
03634R F362 CE E396 は 1 LDU #BRS 
03635R F365 96 BC 代 LDR BBIX 
に 03636R F36?7 E6 C6 に 1 LDB RsU 
BxX 03637R F369 5B LSLB 
・EIRR+3 0363 ヨ BR F36R SR DECBH 
GBPIX 03639 * P-〉D=(FP-〉D&PMRSK)\(BBDRTR( 1 )&IRSK) > 
#12 日 -4 03640R F36B 1F 98 Ra TFR BR 
GBPFUT1 03641R F36D R4 B4 1 RNDR 0X 
CHNTU SEND 03642R F36F RY B4 朋 STA OxX 
03643R_F3?1 53 CB 
#、 EMRR+4 03644R F372 D4 E4 介 RNDBH GBDRTR 
に 03645R F374 ER B4 人 DRB 0X 
0・X+ 03646R F3Y6 EP B4 R STB OxX 
03647 * N=RBNX+GHIX: 
・CUMRR+3 03648 * BBIX=NHD(N, 昌 ) : 
BPIX 03649 * N=N/ 日 : 
BiX 0365OR F3YB DC 98 Ra LDD BNX 
03651R F3YR DB BC Ra RDDB BIX 
03652R F3YC 9 00 人 RDCR 9 
03653R F3YE 1F 12 1 TFR XY RSSIBN Y THF 
0365S4R F3BO BD E3F6 人 JSR GX ロ FF 
03655R _F3B3 DP BC R STB BIX 
03656R _F3BS 1F 10 は 1 TFR X:D RSSIGN BH TH N 
ロ FERRTI ロ N nF ロ UTFUT DATA 03657 * DO 1=1 TO N: 
DRTR TU FUM.。 RRER 0365BR F3B7 SD TSTB 
03659R F3BB 2 ァ 0B F392 BBFL14 BEG GBPL15 
1 03660 * CALL GBPUT( 一 >D) :P=P+1 
GBDPX: N FLRCE nF SHIFT 03661R F3BR R6 RaO | LDa 0・Y+ 
BBTX 03662R F3BC BD F2E9  R JSR GBPUT 
BDPX 03663 * ENDs 
BSU 036648 F3BF SR DECB 
THEN DO: GBSU=GBSU- 日 : BHT NEXT:END: 03665R F390 2O F6  F3B8 BRR EBBPL14 
#4 03666 F392 R BBPL15 EEU を 
BBFLR1 03667 * GBDRTR( 1 )=Pー〉Ds 
日 0366BR F392 R6 R4 仙 LDR 0Y 
GBSU 03669Q F394 97 E4 に 1 STA GBDRTA 
GBPFLRS 036?08 F396 39 RTS 
THEN BGV り =GHSU+ 日 : 036?1 東 
#-4 03672 に 
GBPLRZ 03673 き 
#B 03674 
BSU 03675 * BET BLCK2 CONIRND 
03676 ・ CUIMfRR+ コ  X1 
0367P * ・EOIRR+5 。 Y1 
THEN GRHTU MSHIFT: 03678 * ・ CMRR+? 。 X2 
GBSU 03679 * ・COMRR+9  Y2 
GBPFLR5 03680 に 
GBSU: 03681 ま 
GBSV 03682 
BBI 0368B3 F393? R GBLK2 EEU * 
GBPL10 036 ヨ 4 F397 BD F2CO 朋 JSR GBINT C0-OURDINRTE DRTR 
BBNB+1s 036 ヨ SR _F39R BD 41 F3DD BSR BUINT ロ UTPUT PRHCESS 
RBNEX 036B6R F39C 9E BR 全 LDX BBD1X 
BBEJ 036B?YR_ F39E 30 B4 人 a LERX ・- UVBiX 
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| 





036BBR 
036 ヨ 9 
03690R 
03691R 
03692R 
03693 
03694 
03695 
03696R 
03697R 
03698 
03699R 
03700R 
03701 人 8 
03702R 
1 
03703R 
037O04R 
介 
03705 
03706R 
0370P 
037OBR 
03709 
03710 
0371 1 人 
03712 
03Y13R 
03714R 
03715R 
03716R 
03717R 
0371BR 
03719 
Q3720 
03721R 
03722 人 
03723 
03724R 
03725R 
03726R 
03727R 
0372BR 
03729R 
03730R 
03731 
037 さ 3 
03734 
03735 
03736 
03737 
03738 
03739 
03740 
03741 
03742 
03743 
03744 
03745 
03746 
0374? 
03748 
03749 
03750 
03751RF 
03?52R 
03753R 
03754R 
0375SR 
037S56 
03757R 
037S5BR 
03759R 
03760R 
03761 
03762R 
03763R 
03764R 
03765R 
03766R 
03767R 
03768R 
03769R 
0377OR 
03771 人 FR 
03772R 
03773R 
03774 
03775 
03776 
03777 
03779 
037B0 
037B1 
037B2 
037B3 
03YB4 
03785 
03?86 
03?B? 
03YB8 
037?89 
03Y90 
03791 
03?92 
03?93 
03?94 


F3RO 
F3a2 
F384 
F3RB 
F3RR 
F3RC 


F3BO 
F3BZ2 


F3B4 
F3B6 
F3BR 
F3HC 
F3BC 
F3BF 
F3CZ2 
F3C2 


F3C5 


F3CB 
F3CR 
F3CD 
F3CF 


F3D1 
F3D3 
F3D5 
F3D 
F3DR 
F3DC 


F3DD 
F3EQ 
F3E3 
F3ES 
F3E7 
F3E9 
F3ER 
F3EC 
F3EE 
F3FO 
F3F2 


F3F3 
F3F6 
F3FB 
F3FR 
F3F ヒ C 


F3FF 
F401 
F404 
F406 
F408 
F40R 
F40C 
F4Q0E 
F410 
F413 
F416 
F419 
F41B 
F41E 
F420 
F421 
F424 


BD 
9E 
30 
BD 
9E 
30 


96 
3? 


9F 
10BE 
D6 


BS 
BD 


B7 
BD 


9E 
30 
OR 
26 


B6 
と rd 
B1 
22 
CE 


3? 
BD 
37 
ビ 1 
24 
DD 
34 
9F 
109F 
BD 
BD 
35 
?R 
26 
39 
PE 
YE 


OE F3BO 
BR R 
89 4000 Ra 
06 F3BO 
BR 1 
B9 BO00 


R 

Ra 

は 1 

1 

| 

人 

R 

99 1 
1 

人 R 

R 

人 R 

R 

BB SO 1 
RR 


E3  F3B4 


= 
や や や や や や や や 


F3F3 
D3B3 

28 F4 
14 

25 F42 
D384 
F3FF 

30 

E446 

06 

05 

1R F42 
S6 

40 

SR 

5B 

E46D 
E493 

40 

D383 

DF F3FI 


@ ぅ ゃ 


や ょ や や や や や や アー エセ 


EODY 
EO0D4 


や や や や や や ア や や や 


DO96 


り 


BSR GEBLK2S 
LDX BBDIX 
LEAX ・・UR:X 
BSR GBLK2S 
LDX GBDIX 


LERX -・ り ロメ 
BBLK2S EQU * 
LDR GBNY 
Ta GBBK< LOP CHUNTER SET 


GBLK25 EQU = 
STX BBTMIX SRVE URRI RDDR 
LDY #BBDRTR+2 
LDBE GBNBX 
VREHN 
BITR UaCC 
JSR MVUE 
URC ロ FF 
STR UEC 


URI RERD 


JSR GBFLR 1 LINE Q ロ UT 


LDX BTIMIX 
LERX GXBSZrX NEXT LINE 


DEC BK DEC LuF ヒ に 
BNE GBLK25 

を 
ST GBIX REM3IN ? 


BEG GBLK2Y 
LDR GBDRTA 
JSR GBPFUT 
ELR GBIX 

BBLK2Y RTS 

w 

BINT EQU 
CLR ・EDIRR+3 
LDX #. CHIRR+4 
STX GBPIX 


REMRIN IS 0 


LDR ・BHIXY1+1 Y CH-HRDINRTE 

LDB #GXBSZ NUMBER ロ F BYTE X 
PUL 

LDX GBRDX 

LERX D,X TFP _ ロ F DRTR RDDRESS 


STX GBDIX 
CLR BIX REMRIN, ZERO 
RTS 


FnINT CPMRND 


・ CMYRR+3 。 NUMBER ロ F POINT 
・COPIRR+4 PHINT DRTR 


STRUCTURE DF FUINT DRTR 


当 由 
4 COLOR CHDE 
に FUNCTI ロ N CDE 


* 
< 
* 
1 
* TaTaL 6 BYTES 
Ne 
PINT EgU  +* 
LDR .C ロ WaR+3 
BE PF ロ INBO 
CMPR  #20 
BHI FIN90 
LDU #.COMRR+4 
PIN5O EGU * 


PULU XY 
JSR BRXCHK、 
FULU D 

CPPB # 呈 

BHS FIN92 
STD ・ 5CL 
FSHS U 

STX ・ ロ X 
STY ・BY 


JSR GPDSFI 
JSR GPDSP 


PULS U 

DEC ・ CIRR+ さ 3 

BNE PHIN5O 
FUINBO_ RTS 


FIN90 JIYP' ERR65 
PIN92 JWP ERR64 


に] 


PINT COMMRND END 


PUT BLOCK1 CUMIMRND 


・ COMRR+1 PRTTERN REPMRINED 
・COIRR+3 。X1 

・CUMRR+5 YY1 

・CUHMRR+7 。 X2 

・CUPRR+9  Y2 

・CURR+11 CDOLUR CDE 

・ CUMRR+12 FUNCTIUN CODE 

・COIR+13 NUiBER ロ F BYTE DF PRTTERN 
・CONMQR+14 PRTTERN 


で 


BNX  EGU ・ MHRK 








03795 
03796 
03?97? 
03798 
03799 
03B00 
03801 
03802 
03B03 
0304 
03805 
03806 
03B07 
03808 
03809 
03810 
03B1 1 
0312 
03B13 
03814 
03B15 
03B16 
03B17 
03B18R 
03B19R 
03208 
03B21R 
03B22R 
03B23R 
03 ヨ 24 
03B25R 
03826a 
03B27R 
03B28 
03829 
0330R 
03831R 
03B328 
03B33 
0334R 
03B35R 
0336R 
03 ヨ 37R 
03B3BR 
0339 
03840 
03B4 1R 
03B42R 
03B43 
03844R 
0384SR 
03B46R 
03B47R 
03B48 
03849R 
03B50 
038S1a 
1 
03B52R 
人 
03853R 
1 
03B54 
1 
03B5SR 
人 
03B36R 
人 
038BS7 
038SB 
03859 
03B60 
03B61 
03862 
03B63 
03864 
03865 
03866 
03867R 
03868R 
03869a 
0387OR 
03B71R 
03B7Y2 
03B73R 
03874R 
03B7SR 
0387Y6R 
03B7?R 
03BYBA 
03879R 
038BO 
03B81R 
038B2a 
03BB3R 
03884R 
03BBSR 
038B6R 
03BBYR 
038B8 
03BB9 
03890 
03B91R 
03B92R 
03893R 
03894R 
03895R 


F427 
F42R 
F42D 
F42F 
F433 
F436 


F439 
F43B 
F43 ヒ 


F43E 
F441 
F443 
F445 
F447 
F449 
F44B 
F44F 
F453 
F455 
F45? 
F459 
F45D 
F45F 
F463 
F465 
F46B 
F46 
F46C 
F46E 


F46F 
F471 
F4?3 
F475 
F477 
F479 
F47B 
F47D 
F47F 
F481 
F483 
F485 


F4B? 
F48R 
F4BE 
F4BE 
F490 
F493 
F496 
F498 
F49R 
F49C 
F49E 
F4R1 
F4R3 
F44 
F46 
F4RB 
F4RR 
F4RC 
F4RE 
F4BQ 
F4B1 
F4B2 
F4B4 
F4B6 
F4BY 
F4B9 
F4BB 
F4BD 
F4CO 


D098 
DO9R 
D09C 
DO9D 
DO9E 
DO9F 
DORO 
DOR1 
DOR3 
DOR4 
DOR5 
DOR6 
DORY 
DOR93 
DORR 
DORB 
DORD 
DORF 
DOB1 
DOB3 
DOB4 


F42Y 
F4B 
D3BB 
05 

ECR1 
F46F 
E472 


CE9 DOB4 
CE9 DOB4 


や や や や や や ヤヤ ャ や や や ヤ や や や ヤヤ や ヤヤ 


EOD 


や や や や や や や や や や や ア や や や や や や や アア や や や や ヤ ょ ぉ や や や セア や 


ご 
U 
mm 


や や や や や や や や や や 


や や や や や や や や や や や ヤ や や や や アヤ や アヤ や アア 


や や や や や や や 


FBNY 


ESU 


FEBURRIN EBIU 


PBSP 
PBEF' 
PBLN 
PBRN 
PBnU 
PBIB 
FBDH 


EQU 
EEU 
EQU 
ESU 
ERU 
ERIU 
EQU 


PBRBEX EsIU 


FHRB 


EQU 


PBNQdT ERU 
FBBRD E6U 


PBRD 


EGU 


FBSRVE EQU 
PB1BL EQGU 
PB1RE EQU 
FB1GR ERU 
PB2ENT EQU 


PFBI 


EEIU 


PBDRTR EBU 


円 
FBLK1 


F1 


ERU 
JSR 
LDD. 
CMPB 
LBHI 
LDX 
JSR 


LDR 
INCR 
STR 


FB1050 EQU 


3 


JSR 
LDa 
RaNDA 
STA 
LDU 
LDa 
RNDA 
STA 
LDU 
LEAX 
JSR 
LEAX 
JSR 
LEAX 
JSR 
LERU 
STU 
DEC 
BNE 
RTS 


PB1FNC FDB 


"FB 


軸 
功 
ュー 
必 
記 


FDB 
FDB 
FDB 
FDB 
FDE 


INT" 


C ロ - ロ RD 
RND IN 


ERU 
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PBNX+2 03896R F4C2 DC 63 仙 LDD ・BHXX2 
PBNY+2 03897?78 F4C4 BD E3F6 仙 JSR BXHFF 
PBURRNM+ ら 2 03898R F4CY 1F 10 介 TFR X ヵ D 
PBSP+1 03 ヨ 99R F4C9 3 E1 | SUBD > 5+ エ 
FBEP+1 039008 F4CB DD R1 1 STD FBIB INTERURL BYTE 
PBLI+1 039018 F4CD OF R3 は 1 CLR PBDH DRTR HERD Q 
FBRI+ 1 03902 F4CF OF R4 介 CLR FBRBEX 
PBHU+1 03903R F4D1 OF 5 1 CLR FBRB REPMRINDER BIT 0 
FBIB+2 03904R F4D3 OF R6 介 ELR FBN ロ T NT FL ELERR 
PBDH+1 PBREB EXTEND MSH 0 03905R F4D5 B6 D38C 人 LDR - CUIRR+12 
FBRBEX+ 1 03906R F4DB B1 05 朋 CMPR #5 
FEBRB+1 03907a F4DR 26 02 F4DE BNE FBINT3 
PBN ロ T+ 1 03908R F4DC 03 R6 介 CN FBN ロ T NT FLRG SET 
F'BHRD+2 039098 F4DE 23 03 F4E3 PBINT3 BLS FBINT4 
FHBRD+1 03910R F4EO YE EOD4 代 JIP ERR64 FUNCTIHN CDE ERRIR 
FBGRUE+1 0391 1 F4E3 R PBINT4 ElU 電 
FH1BL+2 03912R F4E3 B6 D38D RR LDR ・ CDMRR+13 
FB1RE+2 03913R F4E6 97 9 代 STR PBRD INPUT DRTR。DEC CUNT 
FB1GR+2 039148 F4EB BE D3BE 介 LDX #. CHMRR+14 
F'B2ENT+2 03915a F4EB 9F RP RR STX PBBRD INPUT DRTR RDDRESS 
FBTI+1 DRTR,B1 BYTE 03916R F4ED 39 RTS 
03917 w 
に 03918 を *PBSHFT* 
PBINT INITIRLIZE 03919 2 
。 CHMRR+11 =CHLUR , 昌 =FUNCTIIN 03920 に PRTTERN GET RND SHIFT 
# ら 5 03921 w 
ERR64 03922 に 
#FB1FNC MKE FUNCETIHN ENTRY 03923 F4EE R PFBSHFT EEIU ま 
FENTRY 03924R F4EE 96 RR R LDa PBSRUE 
03925R F4FO 97 B4 1 STR PBDRTA 
FBNY+1 03926Q F4F2 DC 36 に | LDD PBNX 
0392?7R _F4F4 93 4 Ra SUBD PBRBEX 
FBI Ln ロ F CUNTER SET 03928BR F4F6 2H 15 FS5OD BIYI PBSH2O 
03929R F4FB BD E3FF R JSR LSRD3 
キ 03930R F4FH BE DOB4 1 LDX # せ PBDRTR 
PBSHFT DaTR _ RET & SHIFT 03931Q F4FE 96 5 1 LDR FBRE 
FBLIN 03932R F500 27 02 F504 BE FBSH10 
FEBDRTR 03933a FS0Z2 30 01 R LERX 1 ュ X 
FBDRTR LEFT MaSK 03934R F504 BD 48 F54E PFHSH10 BSR FBGET FRTTERN BET 
FBIB 03935R FSO6 RY 0 は 1 STa * メキ 
FBRI 03936R F5QB 5R DECB 
FEBDRTRrU 03937R FSQ9 2 F93 FS04 BPL PBSH10 
FBDATA,U_ RIGHT MRSK 0393BR F5OH 97 RnR R STA FBSRVUE GET END,SRUVE 
FBURAI 03939 3 
・- VBiU 03940 FS5OD R PBSH2O EQU * 
BLUDSF 039418 FSOD 96 9C 人 LDR FBSP SET FI ロ S. 
・・VRjU 03942R F5SOF 90 R3 R SUBR FBDH N FLREE FUR SHIFT 
REDDSF' 039438_F511 27 1F F532 BESI PBSHSQ 
・・ UiU 03944R F513 2H OF F524 BNMI FBSH40 
GREDSF' 03945 キ 
RXBSZU 03946R F515 BE DOB4 R FESH30 LDX #FBDRTR LEFT SHIFT N PLRCE 
FEUVRAI 03947R F518 D6 Re R LDE FBIB+1 
FBI 0394 昌 F51R R FEBSH35 ERMU 
FEB1050 03949R F5S1R 66 BQ R RUR ュ メ + 
03950R _FS1C SR DECB 
03951R FS51D 2 FBH F51A BFL FEBSH35 
PB1HR,FB1RND PSET 03952R F51F 4R DECR 
03953R _FS2O 26 F3 F515 BNE FBSH30 
FB1 ロ RFE1RND FRESET 03954R FS22 20 OE F532 BRR FBSHS50 
03955R F524 BE DOH4 R FBSH40 LDX #FBDRTR RIGHT SHIFT N FLRCE 
FB1 ロ R,FH1N ロ PF HIR 03956a FS27 D6 R2 R PBSH41 LDB FBIB+1 
03957R F529 5C INCB 
FB1N ロ FFPH1RND RND 03958 FS2R R PBSH45 ERU * 
03959R FSZR 69 85 1 RQL BX 
FEB1EHR,FB1NF_E ロ R 03960R FS2C SR DECB 
03961R F52D 2 FB FS2 BPL FBSH45 
PB1HR,FB1RND NnT 03962R FS2F 4C INCR 
03963R _F530 26 F5 FS527 BNE FBSH4 1 
03964 に 
03965 F532 R PBSH5O ERU ネ 
03966R F532 96 R3 人 LDR PBDH 
03967R F534 9H RO に 1 RDDR FBHU 
INRTE ロ F MINDQM CHECK RND S ロ RT 03968a FS36 B4 0 R RNDR も OP 
ITRLIZE SHIFT FRHCESS 03969R F538 97 R3 介 STR FBDH 
03970R _FS3R 40 NEGR 
03971 F53B 4 07 1 RNDR 50P 
03972R F53D 97 5 1 STR FBRB 
上 03973R_F53F 39 RTS 
BUXINV 03974 w 
PFBNX 03975 ャ 
FBNY 03976 * 
・BDXX1 03977 キ *FBBET* 
・ BUXY1 03978 東 
GaDDR 03979 キ BET FRTTERN FR CHMIM. RRER 
FBVRAaP  URRPM _RDDRESS 0390 * IF PRTTERN IS NHTHING」 RETURNS "00"。 
・BHXX1+1 039B1 人 
#$0P 039 ヨ 2 a 
FEBSP BIT NiSTRRT 03983 F540 R PBBETO ERU ka 
#BRS 039 ヨ 84R F540 BD E11a R JSR CHNTI NEXT PRTTERN 
BU 039B5R F543 BE D3B4 R LDX #。 CHIWRR+4 
039 ヨ 6R F546 9F Td 人 RR STX PBBRD 
BU 039B?a F54B B6 D3B3 に 1 LDR ・CUMRR+3 
PBLM LEFT MaSK 039 ヨ BR F54H 97 9 朋 STR FBRD 
- BHXX2+ 1 039898 FS4D SKIP2 
#$0P 介 F54D BC に ] FCB * ヨ ビ ENPX # 
PBEF' BIT NEND 03930 F54E R PBGBET EgU ENTRY 
BU 03991R FS4E 34 10 R FPSHS X 
03992R FS5O 96 9 代 LDR FBRD 
039938 FSS52 26 0 FSSB BNE FEBGET ご 
PBRI RIGHT MaSK 03994R F554 96 02 LDR ・・ EDNT 
FBNX+1 03995R FSS6 2B E8 F540 BI PBGETO 
03996R F55B 4F CELRAR 
革 お 0P 03997R _F5S59 20 08 FS63 BRR PBGET4 
PBDU HVER BYTE 03998 FSS5B R PBBET2 EEU キ 
・BHXX1 03999R FSSB 9E RP 月 LDX PBBRD 
BXUFF 040008 FSS5D 6 BO 人 LDa 2 
X 04001a FSSF 9F 7 仙 STX FBBRD 
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04002 
040038 
9040048 
04005R 
04006R 
人 
04007 
04008 
04009 
04010 
0401 1 
04012 
04013 
04014 
04015 
04016 
04017 
0401B 
04019 
04020 
04021 
04022 
04023 
04024 
04025 
040268 
04027R 
0402BR 
040298 
040308 
040318 
04032 
040338 
04034 
04035R 
04036R 
04037R 
04038R 
04039 
04040 
04041a 
04042R 
040438 
04044 
04045 
04046R 
04047R 
040488 
04049a 
040508 
04051 
04052 
04053 
04054R 
0405SR 
040568 
1 
04057R 
0405BR 
R 
04059 
040608 
04061R 
040628 
04063 
04064 
04065R 
04066a 
04067R 
04068R 
040698 
0407Oa 
04071R 
04072 
040738 
04074R 
04075R 
04076R 
04077R 
0407BR 
040798 
0408B0A 
040B1 
040 ヨ 2 
040B38 
040B48 
040BSR 
040B6R 
040BYR 
040BBR 
040B9 
G4090 
04091R 
04092a 
040938 
04094R8 
04095R 
040968 
040978 
0409BR 
04099 
04100R 
04101R 
04102 
04103 
04104 
04105R 


F561 
F563 
FS565 
FS567 
FS68 
F568 


FS6R 
FS6D 
F5YO 
FY2 
F574 
FS5?6 


FS8 
F5YB 
FC 
F5YE 
FS80 
FS5B2 
F5B4 
F5B6 
FSBR 
F5BC 
FSBE 


F592 
F594 
F536 
F598 
F599 


FS9H 
F59E 
F5R0 
F5R3 
FS5R3 
F5R6 
FSRR 
FSRR 
F5RD 
FSBO 
FSB2 
FSB4 


FS5H5 
FSB 
FSB9 
FSBB 
F5BD 
FSBF 
FSC1 


FS5C2 
FSC4 
F5C6 
FSCY 
FS5C9 
FSCB 
FSCD 
FSCF 
FSDQO 
FSD2 
FSD4 
FSD6 
FSDB 
FDR 
FSDB 
FSDD 


FSDE 
FSEO 
FS5Eg 
FSE4 
FSE6 
FSEB 
FSER 
FSEC 
F5EE 
FSFO 
FSF 1 
FSF3 


FSF4 


08 
OD 
2? 
43 


35 


9 人 
R6 介 
01 FS68 


90 1 


FS6R 
F4B7 
D3BC 

03 

04  FSP 
9E 

9F 

FSYB 
F64F 


B6 
B1 
98 
OE 
9 
C9 
06 
9 
C9 BQQO 


や や や や や や や や や や や 


ょ 
8 
OO 
ドリ MD 

や や 


や や や や や や や や や や や や や はい 


FS592 
R3 
R5 
39 


FSF4 R 
BF F5B5 





DEC  FBRD 
FBGET4 TST PBNQOT 
BE PFBGET9 
COMR 
FBGET9 RTSPUL X 
PULS XuPC 
に 
* 
* 
* 
内 
* FUT BLOCK2 COMMQND 
we 
* 。  .COMRR+1 PATTERN REMAIND 
* COMaR+3 X1 
*。  .EOMRR+5 Y1 
* 。 。 .C ロ MaR+7 X2 
* 。  .CUMaR+9 Ya 
*。 .COMRR+11 DUMMY 
* 。  .EFOMRR+12 FUNCTI ロ N CODE 
* 。 。.COMRR+13 NUMBER DF BYTE 
* 。  .COMRR+14 FRTTERN 
了 
PBLK2 ERU  * 
JSR PBINT 
LDR .C ロ WaR+12 
CMFR  #3 
BNE PBzo1Q 
EnM  FBLM 
COM PFBRW 
FBzO10 ERU  * 
LDX #PB2FNC 
LSLR 
EDX* = 
STX PB2ENT 
LDU PBVRAM 
BSR PFB2SUB 
LDU PBVRaM 
LERU  ..VRiU 
BSR PB2SUB 
LDU PFBORRM 
LERU  ..VGrU 
PB2SUB ERU  * 
ELR PFBDH 
CLR PERB 
LDR PBNY+1 
INCa 
STA PBI 
内 
FBzO5O EQU  * 
JSR PBSHFT 
LDB PBIB+1 
LDX #FEDaTR 
UaCUN 
BITR VaCC 
JSR 。 〔FB2ENT] 
VRCOFF 
STA VaCC 
LERU 。GXBSZ,U 
DEC PFBi 
BNE PFBzo5Q 
RTS 
5 
PBzLRP ERU  * 
LDA PFBLM 
RaNDA PBDaTA 
STR PFBDaTa 
LDA PBR 
RNDA  B,X 
STA BuX 
RTS 
PB2SET ERU * 
BSR PHzLRM 
LDQ PFBLN 
Ca 
RNDR ぃ U 
ロ Ra 5 
STR sX 
LDR PBRM 
Ca 
RNDA BuU 
ロ RR BX 
ST BuX 
PBeSE5 LDA HBxX 
STR BU 
DECB 
BFL FB2SE5 
RTS 
* 
PB2RND ERU * 
LDR FBLI 
RAR FEDRTa 
STR PBDRTR 
LDR FBRI 
QRR BuX 
STA BixX 
PBeRN5 LDR BuX 
RNDR BU 
STa BU 
DECB 
BPL PFB2AN5 
RTS 
* 
PB2OR ERU  * 
BSR PB2LRI 





04106R 
04107R 
04108R 
04109R 
04110R 
04111 
04112 
04113 
04114R 
04115R 
04116a 
04117R 
04118R 
04119 
04120 
04121 
04122 
04123 
04124 
04125R 
04126R 
人 
04127R 
0412BR 
04129 
041308 
041318 
04132R 
Ra 
041338 
04134 
04135 
04136 
04137R 
0413BR 
は 1 
041398 
04140R 
04141R 
04142R 
04143 
04144R 
04145R 
は | 
04146R 
04147 
04148 
041498 
04150 
04151R 
1 
04152R 
04153 
04154R 
04 15SR 
04156R 
04157a 
1 
041SBR 
04159 
04160R 
041618 
04162R 
04163R 
04164R 
0416SR 
04166 
04167 
04168 
04169 
04170 
04172 
04173 
04174 
04175 


04176 


04177 
0417 
04179 
04180 
041B1 
04182 
04183 
041B4 
04185 
04186 
041B7 
041BB 
04189 
04190 
04191 
04192 
04193 
O4194 
04195 
04196 
04197 
04193 
04199 
04200 
04201 
04202 
04203 
04204 


F5F6 
F5FB 
FSFR 
F5FC 
F5FD 
F5FF 


F600 
F602 
F604 
F606 
F60B 
F609 
F60B 


F60 ヒ 
F6OE 
F612 
F612 
F615 
F617 
F619 
F61B 
F61 ビ 
F61E 
F61E 
F621 


F622 
F624 
F62B 
F62B 
F62B 
F62D 
F62E 
F630 
F632 
F633 
F635 
F635 
F63B 


F6393 
F63B 
F63F 
F63F 
F642 
F644 
F646 
F64B 
F649 
F64B 
F64B 
F64E 


F64F 
F651 
F653 
F655 
F657 
F659 


10BE 


04205R F6SH YE 


04206 
04207 


F60 ヒ 
R2 
DOB4 


D409 
5 
5 
B5 


F? 
D409 


F622 
R2 
DOB4 


D409 
R5 


B5 
B5 


F6 
D409 


F639 
R2 
DOB4 


D409 
R5 
B5 
B5 


1 
D409 


F5C2 
EOD4 
F5F4 
FSDE 
F600 
FSC2 





F61 


や 呈 や や や や や や 


や やや や や 


や や や や や や や や や や や や や や や や ヤ や や や や や や や や 


FB2nR5 


w 


PB2ER 
FB2E ロ 5 


w 
F] 


FB10R 


LNXDR 
PB10R5 


PB1NIF' 
FB1RND 


LNXRND 
FB1RN5 


LNXNQP 
w 
FHB1E ロ R 


LNXEOR 


FBI1E5 


w 


FB2FNC 


FUT 


[人 


に] 
BCIX 
BCIY 
BEX 
BCY 
BECUDE 
BCCL 
BCSCHN 
CCUNT 
CBCUN 
BCNCON 
GEMCN 
GCCURS 
BCHRDO 
ECHRD1 
BCBLUE 
ECRED 
GCGREE 
GCBITIY 
BCMUR 
GCMRK 
GCFLG3 
BCFLGS 
GCCRS1 
BCRRER 
CSRRE 


に 
BCERR1 
1 


GCURS 


LDR 
RR 
STR 
DECE 
BFL 
RTS 


EQU 
BSR 
LDR 
ERR 
STR 
DECB 
BFL 
RTS 


ERIU 
LDB 
LDY 
VREUN 
BITR 
LDR 
ロ RR 
STR 
DECB 
BFL 
URC ロ FF 
STR 
RTS 


ESIU 
LDB 
LDY 
UREUN 
BITR 
LDR 
FOMR 
RNDR 
STA 
DECBH 
BFL 
URCHFF 
STR 
RTS 


EEU 
LDH 
LDY 
UEHN 
BITR 
LDR 
ERR 
STA 
DECH 
BPL 
UE ロ FF 
STA 
RTS 


FDB 
FDE 
FDB 
FDB 
FDH 
FDB 


FB2GR5 


FB2LRIN 
BxX 
BsU 
BU 


PB2ECS 


FBIHB+1 
#PBDRTR 


URCC 
BY 
BxX 
BsX 


FB10R5 
UEE 


FBIH+1 
#PBDRTR 


URCC 
BY 


BX 
BxX 


FB1RN5 
URCC 


1 
PBIB+1 
#FHDRTR 


UREE 
BY 
BxX 
BhX 


FB1EI5 


UaCC 


FB2SET 
ERR64 
FB2HR 
PB2IRND 
FB2EIR 
FB2SET 


BLCK1 BLHCK2 


: BRRPHIC CUR 


EQU 
EBIU 
EgU 
ESU 
EgU 
ESU 
EQU 
ESU 
EBU 
EeU 
EQU 
ESU 
EQU 
EGIU 
EQU 
EQU 
EQU 
ESU 
EQU 
ESU 
EQU 
EsU 
ESU 
ERU 
EQU 


JIP 


・ MORK 
CIX+ ど 
GEIY+2 
RCX+ ど 
BEY+2 
GCCUDE+1 
BEEL+1 
GCSCIN+1 
GCCHNT+2 
CBCON+1 
BENCUN+1 
CMEN+1 
GCCURS+3 
BCHRDO+2 
CHRD1+2 
BCBLUE+1 
BCRED+1 
BCGREE+1 
BCBITIM+1 
GEMOR+1 
BCMURK+2 
BCFLG コ +1 
BCFLGS+1 
GCCRS1+3 
CRRER+39 


ERR65 


,O 
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END 


SOR 


INITIRL CH-HRDINRTE Y SRVUE RRER 
X CH- ロ RDINRTE SRUE RREA 
Y_C ロ - ロ RDINRTE SRUE RRER 
KEY CHDE SRVUE RRER 
CHLUR CHDE SRVE RRER 
SHIFT CHUNT SET REAR 
SHIFT DHT NUMBER 
BYTE CHUNT SET RRER 
NEEDS CH-HRDINRTE NUMBER SET RRER 
NEEDS CU- ロ RDINRTE NUMBER SET RRER 
CURSUR SET RRER 
CRRER HERD RDDRESS SET RREA 
CEENTER CU-HRDINRTE SET RRER HERD RDDRESS 
BLUE CULUR RRER 
RED CHLUR RRER 
GREEN CULHR RRER 
BIT MRRK SRVE RRER 
MRK RRER 
MCRKRRER 
RETURN FLRG 
INITIRL PUSITIDN SHIFT FLRG 
INITIRL CURSDR SRVE 
SRVE RRER 








04208 
04209 
042108 
04211R 
04212a 
04213 
04214 
04215R 
04216a 
04217 
04218R 
042198 
042208 
04221 
04222 
04223 
04224 
04225R 
04226 
04227 人 Ra 
042e2BR 
042298 
042308 
042318 
042328 
042338 
042348 
04235 
04236 
04237 
0423 晶 
04239 
042408 
04241R 
042428 
04243 
04244 
04245 
04246 
04247 
0424BR 
042498 
04250R 
04251R 
04252R 
042538 
042548 
0425S5R 
04256R 
04257a 
0425 
04259 
04260 
04261 
04262R 
042638 
04264R 
04265 
04266 
04267 
0426B 
04269 
042708 
042?1R 
04272R 
042738 
04274R 
0427S5R 
04276 
04277R 
0427BR 
04279 
04280R 
042 ヨ 18 
042B2R 
04238 
042B4R 
042BSR 
042B6 
0428B7R 
042BBA 
0428B9 
042908 
04291R 
04292R 
042938 
04294R 
04295a 
04296a 
04297R 
0429B8 
04299 
043008 
04301R8 
0430Z2a 
04303 
人 朋 
04304a8 
04305R 
04306R 
043078 
04308 
04309 
04310 
04311 
04312 
04313 





F6SE 
F661 
F664 
F666 
F668 


F66A 
F66C 


F66E 
F6Y1 
F675 


F6Y8 
F6YR 
F67C 
F67F 
F6B2 
F684 
F686 
F6BB 
Fe68R 
F6BC 
F68F 


F691 
F694 
F636 
F6939 
F69B 


F69D 
F6aO 
F6R2 
F6R4 
F6RY 
F69 
F6RR 
F6RB 
F6aD 
F6BO 


F6B2 
F6B5 
F6BB 


F6BB 
F6BD 
F6BF 
F6C1 
F6C3 
F6CS 


F6CB 
F6CR 


F6CC 
F6CF 
F6D2 
F6D4 
F6D6 
F6D8 


F6Da 
F6DD 
F6DF 
F6E1 
F6E4 
F6E6 
F6E9 
Fe6EB 
F6ED 
F6EF 
F6F 1 
F6F3 
F6F5 
F6F マ 
F6F93 
FeFH 
Fe6FD 
F6FD 
F6FE 
FYO0 
FY02 
F?O4 


BD 
BD 


F6SE 
FDDE 
D384 


DOEO0 
R9 
D383 
RB 
B4 


D383 
07 
9F 
DOaD 
に 。 


B0 
DOQBO 
F5 


DOB9 
FBB1 
FBED 


FY06 


ユ 
の 
Cn 

や ロア や や 


ui 
引 


や や や や や や や や ゃ や や や や や や や や や 


ゃ や や や や 


や や や や や 


や や 


F6C: 


や や や や や や や や や や や や や や や や や や m や や や 


1 


BCURS ESU 
JSR 
LDA 
BE 
CMFR 
BHI 


STR 
STR 


LDX 

LDY 

JSR 
に] 
ネ 
FOOOO ERIU 
STX 
STX 
STY 
STY 
LDR 
STR 
STR 
LDR 
STa 
LDD 
STD 


** SET FLRG 
LDX 

STX 

LDX 

STX 

ELR 

に 3 

ロロ 


KEYR2 KEY RESET 2 

・COPRR+4 TEST NEEDS CH- DRDINRTE NUMBER 
CERR1 

#10 

GEERR1 


BCNCHN STRE NEEDS CH-nRDINRTE NUNMHBER 
ECCUN 


・CMRR+5 TEST INITIRL CU- ロ RDINRTE 
・ EDITRR+ ア 
RXCHK 


BEX 
GECIX 
GEY 
RCIY 
#$FF 
GCCURS 


SRVE X CH-HRDINRTE 

SRVUE INITIRL CH-HRDINRTE X 
SRUE Y CH-HRDINRTE 

SRUE INITIRL C ロ -HRDINRTE Y 
SET CURSnR 


GCCHNT INITIaL DHT NUMBER 


#BCSRRE 

GECHRDO 

#。 CUIYRR+3 

GCHRD1 

GEFLG3 RETURN FLRG ロ N 


** EXTEND CULUR CIDE 


LDA 
RNDR 
STR 
LDX 
LSR 
RRB 
SEX 
STa 
CMPX 
BNE 


GEO0001 


し ま 表 】 


LDX 
JSR 
JSR 


3 


・E ロ MRR+3 LHRD CULOR CODE 
#$0Y 

GCCL 

#GEBLUE 

GCCL 


ュ X+ 
#GCBLUE+3 
GCO001 


#GERRER LHRD HERD RDDRESS ロ F SRUE RRER 
GEBDRY SET BHUNDRY CUNDITION 
BCSRUE URI SRUE 


** SHIFT CURSDR TO INITIRL FUSITI ロ N 


3 
LDX 
TFR 
RNDB 
BE 
STB 
JSR 
ERU 
LDB 
STB 


GEO0O 


LDX 
JSR 


GCO002 


GEO003 


ロコ 
1 


** RETURN KEY 


* 
ECO004 ERU 
w 


BCEX 
XsD 
0 
GECO0 
ECSCHN SET SHIFT COUNT 
CSFT ど 

* 

CCEUNT+1 

ECSCEOUN SET SHIFT CHUNT = 1 


LORD X CU-QRDINRTE 


#BCRRER LHRD HERD RDDRESS DF BCRRER 
CDISF DISFLY GRRPHI じ CURSUR 
ECCURS SRVE INITIRL CURSOR 

GCCRSI 

ECCURS+2 

GCCRS1+2 


#GBCTR6I 
--IREE  IRel ENTRY SET 
ELERR IMRSK 
KEYGET 

PMSK 
#0 
-・ 1RGE 
GCCHDE 
4$OD 


CLERR ENTRY 
SRVE KEY CODE 


RETURN KEY 


EIMPX 
#10 

GCCUNT+1 
GCSCUN 

BCOO02 


F コ 
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04314 
04315 
04316 
04317R 
0431Ba 
043198 
043208 
04321 
04322a 
04323 
04324 
04325 
04326 
04327a 
043zBR 
04329 
04330R 
043318 
04332A 
04333a 
04334a 
04335 
04336R 
04337a 
0433BR 
04339 
04340 
04341 
04342 
04343 
04344 
04345 
04346 
0434YR 
0434BR 
04349 
04350R 
04351a 
0435Za 
04353 
04354R 
04355 
04356 
04357 
Q4358 
04359 
04360 
04361 
04362 
04363 
04364R 
04365a 
04366a 
04367R 
0436Ba 
04369 
0437O 
04371R 
04372 
043738 
04374 
04375 
04376Q 
04377R 
0437B 
04379 
04380 
04381 
04382 
043838 
04384 
04385 
04386 
043B7 
043BBR 
043B9a 
04390R 
04391a 
04392R 
043938 
04394a 
04395R 
04396R 
04397R 
0439BR 
04399 
04400R 
04401 
0440ZR 
04403 
04404R 
04405A 
04406R 
04407Aa 
0440BR 
04409R 





044118 
04412R 
044138 
04414 
04415R 
04416R 
044178 
04418R 
044198 
04420 





04410 


F706 
FYQ8 
FYOB 
FYOD 
FYOF 
FY12 


FT14 
E1P 


FY1R 
FY1C 
F?1E 
FY21 
FY23 
F?Y26 
F?2B 
F?2 


9E 
109E 
DE 
RF 
10RF 


20 


BE 
BD 
9E 
BC 
23 
30 
BD 
20 


39 


F744 
HB4 
QR 
02 
DOB9 
FRZ 
2 


F?Sg 
B4 


F769 
96 


DOB9 
FBB1 


FBED 
F94E 
F6DR 


FY69 
FYB5 
F?B5 
FB40 
FYB5 
F?BS 
FYB5 
FYFD 
FYB5 
FYB5 
FYB5 
F?B5 
F?DO 
F?B5 
F7B5 
FYB5 
F7B5 
FYB5 
FYB5 
F?YB5 
F?B5 
F?B5 
FYB5 
FYB5 
F7B5 
FYB5 
FTR9 
FYB6 
FYB5 
FB06 
FB4B 
FYE1 
FYED 


や や や や や や 


FeD 


ユ 
コ 
中 


| . 弓 主 - \ー こ ニン や や や や や や や や や や いや や 


や ャ や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や や 





キ 


** IEIIRIZE CENTER C ロ -HRDINRTE 


キネ 


LDX BCX LORD X CH-HRDINRTE 
LDY BCY LRD Y CO-HRDINRTE 
LDU ECHRD1 

STX *U+ エ 

STY ぅ U++ 


STU GBCHRD1 SET CENTER C ロ -HRDINRTE SRVUE RER 


** URAIM SRVE 


3 


GEO0009 


* 
** END 
* 


GEOOOA 


キ 


CIRGI 


GERTS 
GEIRGI5 


GEIRR9 
エエ エト 1] 
* 
* 
円 
* 


LDX #BCRRER LHRD HERD RDDRESS ロ F SRVE DRTR 
LDY CHRDO _ LHRD HERD RDDRESS ロ F SRUE RREAR 
ERU * 

LDR ュ ※ キ 

STR ザキ SRVE 1-BYTE DRTR 

CIFX GERRER+39 

BNE GEOO009 

STY GEHRDO SET END RDDDRESS . ロ F SRVUE RRER 


INE GBCFLG3 RETURN FLRG ロ FF 


DEC GECNCHN 
BNE GEOQ0 ど 


BRRPHIC CURSUR CPMRND 


ESIU 人 
BR GCRTS 
EBIU に 


LDX #BCRRER 
JSR CRSRU CURRENT CURS ロ R CLERR 
LDX BCHRDO _ STREKED CURSHR CLERR 
CMPX HGCSRRE 
BLS CIRN9 NO DRTR 
LERX ー39 ヵ X 
JSR GCRSRU 
BRR RCIRRS 
RTS 
END GCURS 


** EURS ロ R MDUE KEY 


3 
RC000BH 


GCOOOF 


ドコ 
キネ 
* 


RCTRBL 


キ 


EQU * 

TST GCFLG3 

BNE GCOOQF 

FSHS は 1 

LDX #BCRRER 
JSR GCRSRU 


FULS 代 

EGU に 

CLR GCFLG3 
LSLR 


LDX #BCTRBL 
JSR [AiX] 


LDX #GCRRER 
JSR CEBDRY SET BUNDRRY CHNDITIN 


JSR BCESRUE URI SRVE 
JSR SCDISF DISPLRY GBRRFHIC CURS ロ R 
JIP COO02 JUMP KEY GET 


EQU キ 

FDB CN ロ F' 00 
FDB GEN ロ PF 01 
FDB CEL2O  $02 
FDB BCN ロ F' $03 
FDB GRCN ロ F'_ 04 
FDB BCNQFP $05 
FDB GSCR2O  $O06 
FDB GCNUF $07 
FDB GCN ロ F SOB 
FDB GENOF 09 
FDB BCN ロ F' OR 
FDB BCH ロ IE  $OBH 
FDB GCNOF ま OC 
FDB BCN ロ PF $0D 
FDB BCN ロ F_  $OE 
FDB BCNOP OF 
FDB GCN ロ F' $10 
FDB BCNUF 11 
FDB GCNQP 12 
FDB GECNOF 13 
FDB BCNI ロ P $14 
FDB BCNOFP $15 
FDB BENUP $16 
FDB BCNOP' も 17 
FDB GCN ロ F' $18 
FDB BCUP2O 19 
FDB BCDM2O 18 
FDB ECNHP 1B 
FDB BCSFTR  $1 ヒ 
FDB CSFTL  $1D 
FDB BCUP $1E 
FDB GCDU 名 1F 





044 ど 
04422R 
ロ 4423R8 
04424R 
04425R 
04426R 
04427R 
0442B 
Q4429 
04430 
04431 
04432 
04433R 
04434R 
04435R 
04436R 
04437R 


.0443BR 


04439 
04440R 
04441 
044428 
044438 
04444 
0444S58 
04446 
04447 
04448 
04449 
04450 
04451 
044S2R 
044538 
04454R 
Q445SR 
04456R 
04457R 
0445BR 
04459R 
04460 
04461 
0446 ど ご 
04463 
04464 
04465 
04466 
04467R 
04468R 
04469R 
04470R 
04471 
04472| 
04473R 
Q4474 
04475 
04476 
04477 
0447B 
04479 
0440R 
04481R 
04482R 
044B3R 
44B4R 
044B5 
Q446R 
044B7R 
044BB 
04489 
04490 
04491R 
044928 
04493a 
044948 
04495 
04496 
04497 
04498 
04499R8 
04500R 
04501R 
04508 
045038 
04504R 
04505R 
04506R 
04507R 
0450B 
04509R 
04510 
04511 
04512R 
04513R 
04514R 
04515R 
04516R 
04517R 
04518 
04519R 
0452O8 
04521R 
04522a 
04523 
04524 
04525R 
04526R 
04527R 


FYa9 
F?RB 
FYRE 
FYBQ 
FYH3 
FYB5 


FYB6 
FYB9 
FYBB 
FYBF 
F7C1 
F?E3 
FYC6 
FYEB 


FYER 
F?ED 


F7CF 


FYDQ 
FYD2 
F7D4 
F7D6 
FYD8 
F?YDR 
F7DC 
FYDE 
F7EO 


FYE1 
FYE3 
F?YE5 
FYEY 


FYER 
FYEC 


FED 
FYEF 


FYF1. 


FYF5 
la7dad 


F7FR 
FYFF 


FYFD 
F8oo 
FB02 
FB04 


FBQ6 
FBOB 
FBOR 
FBOC 


FB10 2 


FB12 
FB15 
FB17 
FB ヨ 19 


FB1B 
FB1D 
FBzo 
FB22 
FBZ24 
FB26 
F828 
FB2R 
FB2C 


FB2E 
F ヨ 30 
FB32 
FB34 
FB36 


FB3B 
FB33 
FB3B 


DC 
8B3 
2R 
CE 
DD 
33 


EC 
98 
10B3 
25 
DC 
3 
DD 
20 


CE 
DD 


39 


DC 
93 
2 
CC 


DD 
39 


F?B6 
QO0CY 
9E 
0014 
09 
9G 
Q014 
に ) 
05 
F?CR 
Q000 
9 に 
F?EF 


FYDQ 
96 
9R 
98 
9C 
B6 
R6 
EB 
RB 


F?ED 
9C 
R1 
OOEP 
03 
OO0Q0 
F7FR 
9C 


や や や 


F?E. 


や や の 


ゃ や や や や ヤヤ や や や や セ 


や や や や や や や や や 


FF 


や や や や や や や 


GEUF2Q EEIU 
LDD 
SUBD 
BFL 
LDD 

BCUF29 STD 

BCN ロ PF RTS 

に 

* 


** TRERT 20- 


に 3 

BCDM2O ERU 
LDD 
SUED 
EFD 
BES 
LDD 
RDDD 
STD 
BRR 

GEOQ41 ERMU 
LDD 
STD 

GEO0042 ERU 
RTS 

* 

ャ * 


** TREAT HE 


3 
GEH ロ IE EEU 
LDX 
STX 
LDX 
STX 
LDD 
STD 
LDR 
ST 
RTS 


・ GEUF : TR 


に 


GEUF' EEIU 
LDD 
SUBD 
BFL 
LDD 
GEUF2 ERU 
STD 
RTS 


GEDM2 ERU 


BCR20 LDD 
STB 
RDDD 
BRR 


** BESFTR : 


に 3 
CSFTR EQU 
LDD 
RDDD 
GERD STD 
CFD 
BLE 
LDD 
STD 
LDB 
BRR 
ESFT2 EQU 
LDH 
LDX 
GCSFT3 LDR 


BCSFT4 E5U 


BCSFTS ESU 
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が Q45eBR FB3D D7 RaO に 1 STB RCSCON 
ECY 04529R FB3F 39 RTS 
20 04530 * 
BCUF29 04531 ま 
#EYD-1 04532n FB40 C6 14 人 GCL2O LDB #20 
EEY 04533R FB42 DY RaO R STB ECSCnN 
04534R FB44 DC 9 人 LDp RCX 
04535Q FB46 B3 0OQ14 人 SUBD  #20 
04536R FB49 20 04  FB4F BRA GCLD ロ 
DnT DQMN CURS ロ R KEY 04537 * 
04538 * 
* 04539 ** BCSFTL : TRERT SHIFT LEFT CURSQR KEY 
#RYD-1 04540 に 
ECY 04541 FB4B R BCSFTL EGU * 
#20 0Q4542R FB4H DC 9 は 1 LDD CX LORD X C ロ - ロ RDINRTE 
ECO041 04543R FB4D 93  R1 SUBD GCCONT 
RCY 04544R FB4F DD 98 R GCLD ロ STD RCX 
#20 04545R FB51 2R 09  FB5C BPL CSFT 
RCY RDD 20-DT TH Y C ロ - ロ RDINRTE 04546R FB5S3 CC  QZYF A LDD #GXD-1 
ECO0042 04547R FB56 DD 98 人 STD RCX SET X C ロ - ロ RDINRTE = 639 
和 0454BR FBSB C6  Q1 | LDB #1 
#$0000 04549R FB5R 2QO 13 FBG6F BR ECSFTB 
8 ら ロ -nR つ 04550 FB5C 人 RCSFTY ERU * 
90 ee 4NGE4 ニ 9 04551A FB5C D6  RO に LDB ECSCHN LRD SHIFT COUNT 
04552n FBSE BE DOR6 に 1 LDX #GCCURS 
04553R FB61 6 0Q2 介 BCSFT6 LDa 23X 
04554R FB63 ヨ 1  BQO | CMFR  #$BO 
KEY 04555R FB65 27 "OB  FB6F BEG BCSFTB 
04556R FB6Y OB 88 R RSL GCCURS+2 SHIFT LEFT 1 BIT 
04557R FB69 09 RY R RnL BCCURS+1 
REIX 。 LOAD INITIRL Cn- ロ RDINRTE X 04S5BR FB6B 09 86 R ROL RCCURS 
ECX SET INITIRL CH-HRDINRTE X 04559R FB6D 2 OR  FB79 BRR BCSFT9 
CIY 。 L ロ AD INITIRL Cn- ロ RDINaTE Y 04560 FB6F HCSFTBEGU  + 
SET INITIRL CH-HRDINRTE Y 04561A FB6F B6  Q1 人 LDa #$01 
04562n FBY1 97  R6 R ST RCCURG 
045636 FBY3 B6  FF に 1 LDA #$FF 
CCRG1+ 04564R FBY5 97  R7 Aa STR CCURG+1 
BEEURS+8 04565A FBY7Y 97 RB に STA BCCURS+ る 
04566 FBY9 RR GCSFT9 EEU * 
Q4567R FB79 5R DECE 
0456BR FB7R 26  E5  FB61 BNE GCSFT6 
04569 FBYC D6 2 a LDB RCC ロ NT+1 
0457OR FB7E D7  aO a STB RCSCN 
ERT UF CURSUR KEY 04571R FBBO 39 RTS 
04572 * 
* 04573 * 
BEY LnRD Y Fn-nRDINRTE 04574 bo 
RECENT 04575 に 
RCUPS 04576 に 
#GYD- 1 04577 *+ GCBDRY : SET BHUNDRY CNDITICN 
+ 04578 * 
BCY SET Y Fn- ロ RDINaTE = 199 04579 FBB1 R GEBDRY EEIU 
045B0R FBB1 34 10 AR FSHS  X 
045B1Q FB83 6  O1 に ] LDa #1 
045B2R FBB5 97  R3 R STa GCBCHN SET INITIRL BYTE NUMBER 
045B3R FBB7 9E 9 R LDX GCX L ロ AD X C ロ - ロ RDINRTE 
ERT DQMN CURSnR KEY 045B4R FB89 109E 9 ヒ R LDY GEY LHRD Y CH-HRDINRTE 
045B5R FBBC BD  E3EO Ra JSR GRDDR 
* 045B6 * 
BCY LRD Y Cn- ロ RDINRTE 045B?R _FBBF DY BO R STB GCBITM SET BIT MRRK 
CCUNT Q45BBR FB91 RE  E4 LDX 0 
#GYD-1 045B9R FB93 EF  B4 人 STU 0.X 
GCDM2 04590R FB95 9E 9 人 LDX BCX LRD X C ロ - ロ RDINRTE 
#O 04591Q FB97 1F 10 人 TFR xD 
* 04592R FB99 BD  E3FF R JSR LSRD3 
BCY SET Y C ロ - ロ RDINRTE = 0 04593R FB9C 1F 03 R TFR DiU 
04594R FB9E RE  E4 に 1 LDX QS 
04595A FBRO 1183 OQ0O R CMFU  #O 


Q4596R FR4 26 06 FBRC BNE CBDR1 





04597R FBN6 B6  FF R LDA #$FF N ロ DISFLRY 
#20 04598R FBAB 7 っ Ra STR ED SET LEFT CNDITI ロ N 
ECSCHN 04599R FBANR 2O 04  FBBO BRR ECBDR2 
BCX Q460Q FBRC RR RCBDR1 ERU * 
ECRD ロ 04601Q FBAC 6F 02 人 CLR 2:X SET LEFT CINDITIN 
04602R FBAE OF 3 に 1 INC GCBCON 
TRERT SHIFT RIGHT CURSR KEY 04603 FBBO 人 GCBDR2 ERU * 
04604R FBBO 113 OO4F R CPFU  #79 
* 04605R FBB4 26 06  FBBC BNE CBDR3 
RCX 0Q4606R FBB6 B6  FF 1 LDA #$FF Na DISPLRY 
BCC ロ NT 04607R FBRB RT 03 1 STR 3,X SET RIGHT C ロ NDITIQN 
CX 0460BR FBHR 2O  Q4  FBCO BRR CBDR4. 
#RXD- 1 04609 FBEC R BCBDR3 ERU * 
CSFT2 04610R FBBC 6F  Q3 R CLR 3,X SET RIGHT CONDITI ロ N 
#0 04611A FBEE OC 3 に 1 INC BCBC ロ N 
RCX SET X C ロ - ロ RDINRTE = 0 04612 F8CO R GCBDR4 EGU * 
#1 04613 FBCO 10BC QQ04 人 CMFY  #4 
BCSFT4 o4614R FBC4 25 0O6  FBCC BCS GCBDR5 
* 04615Q FBC6 B6 04 人 LDa #4 
RCSCON  L ロ AD SHIFT CUNT 04616R FBCB RY 04 a STR 4・X SET UPER BYTE COUNT 
#BCEURS 04617R FBCR 2O 04  FBDO BRA BCBDR6 
2rX Qo4618_ FBCC R GCBDR5 EeU * 
#$FF 04619R FBEE 1F 20 人 TFR Y:D 
ECSFT4 04620R FBCE EY 04 R STB 4X SET UPER BYTE C ロ UNT 
BCCURS SHIFT RIGHT 1 HIT 04621 FBDO R BCBDR6 ERU * 
GCCURS+1 04622n FBDO RG 04 人 LDa 4:X 
CCURS+ る 04623R FBD2 9B  R3 人 RDDRA 。GBCBCON 
ECSFT5 04624R FBD4 97 Ra3 1 STAa GECBCDN SET BYTE C ロ UNT 
* 04625R。FBD6 CC OOCY R LDD #YD-1 
#$FF 0Q4626R FBD9 93 9 ヒ C 人 SUBD  GCY 
BCCURS 04627R FBDB E7 05 仙 STB 5。X SET DnMN BYTE CnUNT 
GECURS+1 0462BR FBDD C1 04 は CMFB  #4 
SBO 04629R FBDF 25 04  FBE5 BCS BCBDRY 
GCCURS+ る 2 04630R FBE1 C6 04 R LDB #4 
に 04631A FBE3 E7 05 人 STB 5,X SET DnMN BYTE C ロ UNT 
DECREMENT SHIFT CUNT 04632 FBE5 R RCBDRY EgU * 
GCSFT さ 046338 FBE5S E6 05 人 LDB 5,X 
BCC ロ NT+1 04634Q FBEY DB 3 に 1 RDDB  GCBCON 
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サブ プシ ステ ム ・ モ ニタ ソー ス ・ リ スト 
Q4635Q FBE9 DY  R3 R STB BCBCON SET TOTRL BYTE COUNNT 04739R F981 2O OZ  F985 BRR 
04636R FBEB RTSPUL X 04740 F983 RR RCDIS5 EQU 
R FBEB 35 90 R PULS XiFC 04741QR F983 BD 4E  F9D3 BSR 
04637 F 04742 F985 R EDIS6 EQU 
04638 * 04743R F985 RTSPUL 
04639 門 R F985 35 90 に ] FULS 
Q4640 * 04744 円 
04641 キ 04745 に 
04642 ** BCSRUE : SRUE URRNM RRER 04746 * 
04643 * 04747 * 
04644 FBED R RCSRUE ERU * 04748 ** BCD ロ R : TRE 
04645R FBED 34 10 | FSHS  X 04749 * 
04646R FBEF EE  B4 Ra LDU 0:X LORD URRM RDDRESS 04750 F9B7 R REDOR ERGU 
04647R FBF1 30 06 Ra LEAX 6xX LORD HRRD DDRESS QF SRUE RRER 04751R F9B7 UaCDN 
0464BR FBF3 BD 1C  F911 BSR GCSRU1 R F9BY B5  D409 | BITR 
04649 * 04752R F9BR DF  B2 R STU 
0465OR FBF5 RE  E4 は ] LDX QOS 04753R F9BC E6 24 は ] LDB 
04651A FBF7 EE  B4 | LDU 0xX 04754 F98E R RED ロ 1 ERU 
04652R FBF9 30 BB11 Ra LERX 6r+11.X 04755R F9BE 96  BO AR LDR 
04653 FBFCE 33 ヒ 9 4000 R LERU  ..VR:U SET RED aDDRESS 04756R F990 5D TSTB 
04654R F900 BD  QF  F911 BSR CSRU1 04757R F991 27 OR  F99D BE 
04655 * 0475BR F993 33 CBBO Ra LERU 
04656R F902 RE  E4 R LDX 0:S 04759R F996 RR  C4 R ロ RR 
04657R F904 EE  B4 | LDU 0:X 04760R F998 RY  C4 R STa 
0465BR F906 30 BB1C Ra LERX 6+11w2xX 04761R F99 SR DECB 
04659R F909 33  C9 8000 R LERU  ..VBxU SET BREEN RDDRESS 04762R F99B 2Q F1  F9BE ERR 
04660R F90D BD 02  F911 BSR GCSRU1 04Y63 * 
04661 * Q4764. F99D R RCDH2 ERU 
04662R F9OF RTSPUL X 04765R F99D DE  B2 R LDU 
R F9OF 35 90 R PULS  X,FC 04766R F99F E6 25 R LDB 
04663 w 0476" F9R1 R BED ロ 3 EBMU 
04664 * 0476 ヨ R F9R1 96 BO R LDR 
04665 * 04769R F93 5D TSTB 
04666 * 0477OR F9R4 27 OR  F9BO BEGi 
04667 ww BCSRU1 : URRM SRVE 04771R F9R6 33 CB5SO R LEAU 
04668 * 04772n F9R9 AR  C4 R ロ RR 
04669 F911 R RCSRV1 ERU * 04773R F9RB RT  C4 に ] ST 
04670R F911 UGCON 04774R F9D SR DECB 
R F911 B5  D409 R BITR VaCC 04775R F9ARE 2O F1  F9R1 BRR 
04671R F914 DF Be R STU CMQRK STORE VRM RDDRESS 047Y6 F9BO R RCD4 EGRU 
04672R F916 10RE 62 仙 LDY 2:5 04Y7TR F9BO DE Ba R LDU 
04673R F919 6 24 R LDa 4:Y LRD UPER BYTE COUNT 0477BR F9B2 BE DOR6 R LDX 
04674R F91B EC6 5Q R LDB #BO 04779R F9H5 6D 22 R TST 
04675R F91D 3D MUL 047BOR F9B7 26 06  F9HF BNE 
Q4676R F91E 34 06 R PSHS  D 04?B1R F9B9 6  B4 に ] LDa 
0467YR F920 DC  B2 R LDD GCMORK 047B2R F9BH AR 5F R QRR 
Q467BR F922 R3  E1 R SUBD 5++ 04YB3R F9BD 7 5F に ] STa 
046Y9R F924 1F 03 R TFR D,U 047B4 に 
04680 * 047B5 F9HF R CDO5 ERU 
046B1QR F926 6 24 LDa 4xY LORD UFER BYTE C ロ UNT 047B6R F9BF RG 01 R LDR 
Q46B2R F92B RB 25 R RDDR 5:Y RDD UPER BYTE RND DnMN 047B7R F9C1 RA  C4 | QRR 
04683 F92R R BCSR1 EQU * 047BBR F9C3 R7  C4 R STa 
046B4R F92R E6  C4 | LDB 0rU LaD UVRRM 047B9 * 
046B5R F92C ET  BO R STB ュ X ャ SRUE TURRM TU RRER 04790R F9C5 6D 23 R TST 
046B6A F92E 33 CB5O Ra LERU  BO,U RDD BO TQ URRN RDDRESS 04791QR F9CT 26 06 FCF BNE 
046BYR F931 4R DECR 04792R F9C9 6 02 R LDa 
0468BR F932 2R  F6  F92a BPL ECSR1 04793R F9CB QR 41 R QRa 
046B9 * 04794R F9CD R7 41 R ST 
04690Q F934 DE BZ R LDU BCM ロ RK LORD URAM DDRESS 04795 F9CF R RCDO6 ERU 
04691Q F936 R6 22 人 LDa る LnRD LEFT FnNDITIDN 04796 F9CF UGCOFF 
04692R F93B B1  FF 人 CMPR  #$FF R F9CF B7  D409 R STA 
04693R F93R 27 04  F940 BEg RCSRZ 04797R F9D2 39 RTS 
04694R F93C E6 5F は 1 LDB ー-1U LORD VRAM 04798 に 
04695R F93E EY  BO R STB っ SRUE URAM 04799 * 
04696 F940 R BCSR2 ERU * 048oO * 
04697a F940 R6 23 は ] LDR 3:Y LnaD RIGHT CNDITICN 04801 * 
0469BR F942 B1  FF R CMFR  #$FF 04802 * 
04699R F944 27  Q4  F94A BEGI GCS3 04B03 ** BCDRND : TR 
047O0R F946 E6 41 人 LDB 1.U LneD URI 04B04 * 
04701R F94B EY  B4 R STB 0X SRVE URI 0405 F9D3 R GCDRND EGU 
04702 F94R R BCSR3 EQU * 04B06R F9D3 UaC ロ N 
04703R F94R URCOFF R F9D3 BS  D409 R BITa 
R F94R BY  D409 1 STAa UaCC 04BO7R F9D6 DF  B2 1 STU 
04704R F94D 39 RTS 04BOBR F9D8 96  BO R LDR 
04705 * 04BO9R F9DQ 43 Ca 
04Y06 * 04B10R F9DB 97  B1 R ST 
04707 * 04B11R F9DD E6 24 R LDB 
04708 ポ 04B12 F9DF R RCDRN1 ERU 
04709 * 04B13R F9DF SD TSTB 
04710 ** BCDISF : DISFLAY GRRFHIC CURSUR 04B14R F9EO 27  OC  F9EE BE 
04"11 に 04B15Q F9E2 96  B1 1 LDa 
04712 F94E RR BCDISF EQU * 04B16R F9E4 33 CBBO Ra LERU 
04713R F94E 34 10 R FSHS  X 04B17 F9EY 4 FC4 1 RNDQ 
04?14R F950 10E E4 人 LDY 0S 04B1BR F9E9 7  C4 R STR 
04715R F953 EE Ra4 1 LDU OxY LnRD URRM RDDRESS 04B19R F9EB 5R DECR 
04?16R F955 OD RaD R TST BCHLUE TST BLUE COLUR 04B2OR F9EC 2O0 F1  F9DF BRR 
04Y17R F957 27  Q4  F95D BEGl ECDIS1 0421 F9EE R BCDQN2 EQU 
04?18R F959 BD 2C  F9B7 BSR RCDQR 04B22R F9EE DE Be R LDU 
04719Q F95SB 2O 02  F95F BRR ECDIS2 04B23R F9FO E6 25 R LDB 
04Y2O F95D RR RCDIS1 EQU * 04BZ24 F9F2 R _GCDRN3 ERU 
04Y21R F95D BD 74  F9D3 BSR ECDRND 04B25R F9F2 5D TSTB 
04722 F95F 人 RCDIS2 EQU * Oo4Bz6R F9F3 27  QC FRO1 BEGI 
04723 F95F 10RE E4 Ra LDY 1 04B2YR F9F5 96  B1 1 LDa 
04724R F962 EE Aa4 R LDU OrY LnRD URRI RDDRESS Q4B2BR F9FT 33 CBS5O Ra LERU 
04725R F964 33  C9 4000 Aa LERU  ..VUR:U SET RED ADDRESS 04829R F9FA R4  C4 R RNDR 
04726R F96B OD RE R TST BCRED TEST RED DDRESS 04B30R F9FC 7  C4 R STa 
0472YR F96R 27  Q4  F97O BEGl CDIS3 04B31A F9FE 5R DECB 
04Y2BR F96C BD 19  F9B BSR ECDOR 0432R F9FF 2O  F1  F9F2 ERR 
04729R F96E 20 "02  F972 BRR RCDIS4 04B33 FA01 R RCDaN4 ERU 
04730 F9YO R BCDIS3 EGU * 04B34R FRO1 DE  B2 1 LDU 
04731R F97O BD 61  F9D3 BSR CDRND 04B35R FRO3 BE DOR6 R LDX 
04732 F972 R BCDIS4 EQU * 04836R FRO6 E6 22 1 LDB 
04733R F972 108E E4 R LDY 0S 04B37R FROB 5D TSTB 
04734R F975 EE  R4 に 1 LDU OxY LORD RAN RDDRESS 04B3BR FAR09 26 07 Fa12 BNE 
04?35R F97?Y 33 ヒ 9 80OoO Aa LERU  ..VG:U SET GREEN RDDRESS 04B39R FAROB 6  B4 R LDa 
04736R F97B OD RF R TST BCGREE TEST GREEN COLOR 04B40R FROD 43 COIR 
04737R F97D 27 04  F983 BE GCDIS5 04B41R FAROE 4 5F R RNDR 
06  F987 BSR CDOR 04B42a FA10 7 SF R ST 


1 04?3BR F9YF BD 
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GCDIS6 04B43 Fa12 R RCDRN5 EQU * 
* 04B44R FR12 RE 0Q1 R LDR 1.X 
BCDRND 04B45R FR14 43 CR 
* 04B46R FR15 R4  C4 R RNDR OU 
X 04B47R FAR1T R7  C4 R STa 0,U SET VRAM 
XnPC 0484B * 
04B49R FR19 E6 23 R LDB 3:Y 
04B5OR FR1B 5D TSTB 
04B51R FA1C 26 07 FR25 BNE BCEDaN6 
04B52R FR1E RG 02 R LDa 2,X 
RT DR 04B53R FA2O 43 CR 
04854R FR21 4 41 R RNDR 1.U 
* 04B55A FA23 R7 41 R STR 1U SET URAM 
Q4856 FRe R RCDRN6 ERU * 
UaCC 04B5?R FR25 UaCOFF 
GCMDRK SRVUE URRP RDDRESS IN MORK RER R FR25 B7  D409 R STa UaCC 
4:Y LORD UFER BYTE CUNT Q4 ヨ 5 ヨ R FR2B 39 RTS 
kk 04B59 * 
ECBITM LRD BIT MRRK 0486Q ・ 
04B61 * 
RCDQ ロ 2 TEST UPER BYTE CUNT 04B62 ょ 
-BOrU SUBTRRCT BO FR VRM DDRESS 04B63 * 
0:U 04B64 * 
0xU SET_URRN 04B65 ** BCRSRU : RETURN THE CUNTENS ロ F SRUE RER TO URAN 
DECREMENT UFER BYTE CUUNT 04866 * 
RCD ロ 1 04B67 Fa29 R BCRSRU EQU * 
04B6BR FR29 34 10 R PSHS  X 
04B69R FAR EE  B4 R LDU 0iX LnRD VRM RDDRESS 
BEM ロ RK LRD URI RDDRES5 04B7OR FR2D 30 06 R LERX 6:X 
nhY LRD DHMN BEYTE COUNT 04B71R FAR2F BD 1C FRA4D BSR BCRSR1 
* 04B72 * 
GCBITN 04B73R FR31 RE  E4 R LDX 0:S 
04B74R FR33 EE  B4 R LDU 0,X LnaD URaM DDRESS 
GCDH4 04B75R FAR35 30 BB11 Aa LEAX 6+11xX 
80U RDD URI _RDDDRESS RND 80 04B76R FR3B 33  C9 4000 Ra LERU  ..VR:U SET RED DDRESS 
0xU 04B77R FR3C BD OF FR4D BSR ECRSR1 
0:U SET URAN 04B7B + 
DECRENMENT DQMN BYTE COUNT 04B?79R FAR3E RE  E4 R LDX 0:S 
GCDn3 04BBOR FR40 EE  B4 Ra LDU OrX 
04BB1R FR42 30 BB1C Ra LERX 6+11*2xX 
BCMORK LRD URI RDDRES5 04BB2R FR45 33 ヒ 9 BOOO Aa LERU  ..UGrU SET GREEN DDRESS 
#GCCURS LHRD HERD DDRESS ロ F CURS ロ R RRER 04BB3R FAN49 8D 02 FR4D BSR ECRSa1 
2xY LaD LEFT CNDITI ロ N 048B4R FR4B RTSPUL X 
ECDn5 R FR4B 35 90 R FULS XiFC 
0,X Q4885 * 
-1.U 04BB6 * 
-11U SET VRAM 04BBT * 
04BBB * 
* 04B89 * 
1.X SET CENTER CURSQR 04B90 *w BCRSR1 : RETURN THE CHNTENS ロ F SRUE RER Tn URI 
0:U 04891 に 
0xU SET VRRM 04B92 Fa4D R BCRSR1 EQU * 
04B93R FR4D UaCON 
3Y LRD RIGHT CDNDTIQN R FR4D B5 PD409 R BITR VGCC 
GCDH6 Q4B94R FR5SO DF  B2 3] STU CMDRK STORE URRM _RDDRESS IN MHRK RRER 
2,X 04B95R FR52 10RE 62 R LDY 2,S 
1U 04B96Q FA55 Re 24 1 LDa 44Y LnAB UPER BYTE COUNT 
1U SET URAN 04B97R FR5S7 C6 50 RA LDB #BO 
* 04B9BR FR59 3D PUL 
04B99R FAR5SR 34 06 1 PSHS  D 
VCC 04900R FRSC DC  B2 R LDD BCMORK 
04901R FR5E R3  E1 R SUBD 。・S++ 
04902R FR6O 1F 03 Ra TFR DrU SET TOF RADDRESS DF CURSOR 
04903 * 
04904R FN62 R6 24 R LDa 4Y LRD UPER BYTE CUNT 
04905R FA64 RB 25 に 1 RDDR 5xY RDD UPER BYTE RND DuMN BYTE 
04906R FR66 4 ヒ INCR 
ERT RND 04907 FR6 R RCRSR2 ERU * 
0490BR FA67 E6  BO R LDB ュ X+ 
人 04909R FA69 E7  C4 1 STB 0rU 
04910R FR6B 33 CB5SO Ra LERU  BO:U RDD BO TO URRPM RDDRESS 
VCC 04911R FR6E 4R DECR 
GCM ロ RK SRUE URI RDDRESS IN MORK RRER 04912R FR6F 26 F6 FR6r BNE ECRSR2 
GCBITM LAD BIT MRRK 04913 * 
04914R FRT1 DE  B2 Ra LDU GECMDRK LORD URRM RDDRESS 
BCM ロ R STORE COMPLEMENT BIT PRRK 04915R FAN73 R6 22 R LDa anY LORD LEFT CHNDITI ロ N 
4Y LQD UFER BYTE COUNT 04916R FATS B1  FF 1 CMPR  #$FF 
い 04917R FAN7T 27 04 FR7D BEG RCRSR3 
Q491BR FRY9 E6  BO R LDB ュ X+ 
GRCDRN2 04919R FAN7YB E7 5F R STB ー1,U SET URAM 
GEMOR LORD CnMFLEMENT BIT MRRK 04920 FaYD R RCRSR3 ERU 3 
-BOrU SUBTRRCT _BQ FRQN1 URI ADDRESS 04921R FRTD R6 23 R LDR 3Y LRD RIGHT CUNDITIQN 
0xU 04922R FR7F B1  FF R CPPR #5SFF 
0xU 04923R FRB1 27 04 FRBY BEG BCRSR4 
DECREIENT UPER BYTE CDUNT 04924R FRB3 E6 O 介 LDB ュ X+ 
GEDRN1 04925R FAB5 E7 41 R STB 1.U SET URRM 
き 04926 FaBY R RCRSR4 EEU * 
GCMDRK LnRD URRM RDDRESS 04927R FRBY URCUFF 
5:Y LnRD DQMN BYTE CUNT R FRBY B7 D409 1 ST VaCC 
し 0492BR FRBR 39 RTS 
04929 * 
GCDRN4 04930 * 
ECMDR 。 LRD COMPLEMENT BIT MRRK 04931 + 
BO,U RDD BO RND URRIW_RDDRESS 04933 * PINT COMMRND 
0U 04934 
90xU SET URRM 04935 * ・COMRR+3 X CO-0RDINRTE 
04936 * - COMRR+5 。Y ヒロ -DRDINRTE 
RCDRN3 04937 * ・ COQR+?Y PRINT COLOR CODE 
* 04938 * ・ COMRR+B _N ロ . ロ F COLOR 
GCMURK LHRD URI _RDRESS 04939 w 。 COMRR+9 BUUNDRRY CDLORS 
#GBCCURS LURD HERD RDDRESS ロ F CURSDR RRER 04940 * 
anY L ロ AD LEFT CONDITIDN 04941 * 
04942Q FRBB SORG LINKLN 
CDRN5 Doa5 RR .SURG SET LINKLN 
0xX 04943Q FABB DS PRSRUE,2 SRUE RRER 
Doa5 人 R PRSRUE EQU ・ RG 
ー1U Doa? R .$ ロ RG SET - $DRG+2 
ー-1U SET URRN 04944R FRBB DS PRBRRN,1 BRRNCH CNDITIDN 
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Doar R FRBRRN EBU - SDRG 05014R FAEB 39 RTS 
DoaB R.s ロ RG SET - SHRG+ 1 05015R FAE9 9F RE 人 PAOO20 STX 
04945R FRBB DS FRLIMT,1 05O16R FAREB B6  FF R LDa 
DoRB RPRLIMT ERU - SDRG 05017R FAED 97  R9 R STA 
Do9 R .SDRG SET - SDRE+1 05018R FaEF B6 04 R LDa 
04946 FaBB DS PAJ ロ H ロ 7 CURRENT PRINT DaTa 050198 FAF1 BD FC46 8 JSR 
Doa9 R PRJ ロ HO EQU - $ ロ RG 05OzoR FaAF4 03 9 CO 
DOBO Ra .$*DRG SET - SHRG+ マ 
04947R FRBB DS PADIRY,2 NEXT Y 
DoBO RFPRDIRY ERU  .s$ ロ RG 
DoBe 人 .SQRG SET 。 SDRG+2 05022 * 
0494BR FaBB Ds PAYaDD,2 05023 * PaINT 
DoHa R FRYRDD EQU - S ロ RG 05024 * 
DOB4 R .$HRG SET 。 SHR ロ + つ 05025 FaF6 R PAPRIN EEU 
04949R FABB DS PANXTY,2 05oz2eR FAF6D6 RaD 人 LDB 
DoB4 RaPFRNXTY EQU - SURG 050z27a FaFB B6 50 R LDA 
DoB6 人 . ま ロ RG SET - SRG+2 0502BR FAFR 3D PUL 
04950A FABB DS PRCURY,2 05O29R FAFH DD BZg R STD 
DoB6 人 PRCURY EQU - $HRG 05030R FAFD 9E RE 人 LDX 
DOEB R .$* ロ RG SET . $ ロ RG+ る 050318 FAFF 30 01 A LERX 
04951 FRBB DS FRX ロ FF 1 05032R FBO1 DE AaA R LDD 
DoBB RFRX ロ FF EQU - $ ロ RG 05033 FHO3 BD FCE6 Aa JSR 
DOB9  。 R .$QRG SET - SDRG+ 1 05034R FBO6 9C RA R EMFX 
Q4952R FRBE DS FRRL , 1 Q5035R _FBOB 102C OOF6 FCOZ LBGE 
DoB9 R PARL  EBU - $ ロ RG 05036R FBOE 33 1F R LERU 
DoBa 人 . SRG SET - SRG+ 1 05037R FBOE DF RE 人 STU 
04953 FRBB DS FaSCND ,1 0503BR FB10 BD "FBBZ Aa JSR 
DoOBR a PaSCND EQU - 5 ロ RG 050398 FB13 9C aa AR CMFX 
DOBB 人 . ま ロ RG SET - SDRG+1 05040R FB15 2C 21  FB3B BGE 
04954 FRBB DS FaSIIG,1 05041A FB17 9F Ra5 R STX 
DoBB 人 FRSIMG ERU - SHRG 05042A FB19 3O 01 R LEAX 
DoBC R . ま DRG SET - SDRG+1 Q5043a FBI1B DC aa R LDp 
04955R FRBB DS FRTEIP, 1 05044R FB1D BD FCE6 1 JSR 
DoBC R PATEPP ERU .$ ロ RG 05o458 FBzO 9C aa R CMPX 
DoBD R .$ORG SET - SDRG+ 1 05046R FB22Z 2C 10  FB34 BEE 
04956R FABB DS FAVB 1 05047R FB24 DF RE R LDD 
DoBD R FRUH ERU - SURG 0504BR FB26 34 06 R FSHS 
DOBE R.* ロ RG SET - SRG+ 1 05049R FBZB 30 1F LEAX 
04957R FRBB DS FRUR 1 05050R FBZR 9F RE R STX 
DoBE R PRUR ERU - SURG 05051R FBZC 4F CLRR 
DOBF 人 R .$RG SET 。 $ ロ RG+ 1 05052R FB2D BD FC46 1 JSR 
0495BR FABB DS FAVG 1 050538 FB3O 35 10 R FULS 
DoBF R FRUG EQU - $ ロ RG 05054R FB32 9F RE RA STX 
Doco 人 .sDRG SET . DRGE+1 05055R FB34 9E  R5 人 PAPA49 LDX 
04959Q FRBB DS PRSTKF+2 STRCK PTR. 05O056R FB36 9F RAR 人 STX 
DOEO RPFRSTKF EGU . DRG Q5o5T FB3B R FaFASO ERU 
Doc2 Ra .$* ロ RG SET - SURG+ の 
04960R FABB DS FASTRK+((. PFFTBL-FASTRK ) /4*4 ) 
Dore R PASTRK ERU .$ ロ RG 
D2BE 人 .$ ロ RG SET - SURG+(. FFTBL-FASTK ) /4*4 05059 * 
04961Q FaBB DS PRDMMY,0 05060 * "PRSERR" 
D2BE R PDMMY EQU - SURG 05061 * 
DeBE 人 . ま DRG SET - $HRG+O っ 5062 * SERRCH 
05063 * 
04963 D387 R FRNBCL EQU - EMRR+7 05064 FB3B R FRSERR EQU 
Q4964 D394 R FRBCLE ERU - COMRR+2O 05Q6SR FB3B BD FC6D R JSR 
05066 * NEXT Y 
04966 * 05067R FH3B 9E RA AR LDX 
04967 0506BR FB3D 30 1F 。] LERX 
04968 FRBBH R_ FRINT ERU 円 OS5069R FB3F 9F R5 R STX 
04969R FABE B6  D387 1 LDa - CHIMAR+? 05070R FB41 BD FCDC 人 JSR 
04970R FABE 5F CLRB 05071 FH44 9F 5 Ra CMPX 
049718 FABF DD 56 R STD - RCL 05072R FB46 26 11  FB59 BNE 
04972R FR91 BD  E456 R JSR INITLN 05073R FB48 30 1F R LEAX 
04973R FR94 BE  D2BE 1 LDX #PDIMY 05074R FB4R DC RE R LDD 
04974R FA97 9F CO 介 STX FRSTKP 0507SR FB4C BD FCFY R JSR 
04975R FR99 CE  D3BO は 1 LDU #. CHIR 05076R FB4F 9C RE R CPPX 
04976R FR9C EC 47 人 LDD U =PAINT CCLRB=NUIBER ロ F BUND C ロ LORS. QSQ77R FBS1 102D QORD FCOZ LBLT 
04977R FAR9E EC1 QB は | CMPB  # 昌 IS CHLORS GE B? 0507BR FBSS 30 0Q1 人 LEAX 
0497BR FRRO 1022 E63F EOE3 LBHI ERR69 YES, B ERR ロ R. OS079R FBS7 20 41  FB32Ra BRR 
049798 FAR4 5C INCB INCLUDE PAINT C ロ LOR 
049B0R FAR5 EY 4" Aa STB ?U 05081A FB59 9F  R5 人 PASE30 STX 
Q49B1A FANR7 R7 4 1 STa BU Q5OB2ZR FBSB DC  B6 Ra LDD 
049B2R FAR9 BE  D394 LDX #PRBCLE EXTEND BUNDRRY CUL ロ RS BIT. 050B36 FBSD DD  B2 人 STD 
049B3R FRRC 33 48 1 LERU BiU 050B4R FBSF 9E Ra 人 LDX 
049B4R FARE 34 04 R FPSHS  B SET NUMBER ロ F COLORS. 050B5R FB61 30 01 人 LERX 
049B5R FRBO C6 03 R PAOO10 LDB # う O5QB6R FB63 DC  R5 LDD 
04986Q FABHe 6 CO に 1 LDa ュ U+ 05OBTR EEeS 民 EE 財 SB 
049B7R F F P 5 C ュ X+ 050BBR 
64SB8R FRBZ44  。 "BS こ 。 oo 930896 FB6 2C 2 FP9 Bo 
04989R FABY 24  Q2 FRaBB BCC PAOO17 0 ら 
04990Q FRB9 63 1F R En -1:X 。 QN 05091R FB6E BD FEBBZ BR JSR 
04991 FRBB 5R FAOO17 DECB 050926 FB71 9F AA 人 STX 
04992A FRBC 26 F6 FAB4 BNE FROO15 050936 FBT3 B6 04 MA LDA 
04993Q FABE 6Q  E4 a DEC 5 050948 FB75 BD FC46 肌 JSR 
04994R FREO 26 EE FRBO BNE FaOO10 05095R FB7B 9E RS5 人 LDX 
04995Q FACE2 32 61 a LERS 1.S 050968 FB7R 30 1F R LERX 
05097R FBYC 9F RE 人 STX 
0509BR FBYE 03  R9 R FOM 
04997 * SERRCH THE INITIAL BOUNDaRY PSITION. 05099R FBBO 2O  B6  FB3B BRR 
04999R FAC4 BE  D3B3 1 LDX - CUPR+ う OS101 FBBZ 9F 6r R PRLINL STX 
05000R FACTY 10BE D3B5 LDY . CDMRR+5 0510gR FBB4 DCE RE 人 LDD 
O5QO01 FACE BD  E446 R JSR GRXCHK 05103R FBB6 DD 69 人 STD 
05O02R FACE 9F RE 人 STX PRJUHD+5 05104R FBBB DD 6D STD 
05003R FRDO 109F RC a STY PAJOHO+3 05105R FBBR BD FCDC  R JSR 
05004R FRD3 De  RD R LDB PRJOH ロ +4 LnaD THE Y CORDINRTE. 051068 FBBD 34 10 PSHS 
05O05R FAD5S B6 So A LDa #BO 05107R FBBF 30 1F 人 LERX 
05OO6R FRD? 3D PUL LEFT SIDE DDR ロ F CURRENT Y. 0510BR FB91 9F 6B 人 STX 
05OOYR FRDB DD  Bz R STD PaYaDD 051098 FBB3 BD EECRA  R JSR 
05QOBR FRDR BD FCDC R JSR PASTP1 SERRCH RIGHT SIDE 051106 FB26 FRTSFUL 
05009R FADD 9F RaR R STX PRJOH ロ +1 SET RIGHT END POS. Ra FB96 35 30 Lu PULS 
05010R FADF 9E RE LDX PaJOH ロ +5 
05011A FRE1 BD FCE1 R JSR PRSTP2 SEARCH LEFT SIDE. 
05012R FE4 9C RA R CPPX PRJOHO+1 1S THE TNIT POS JUST ODN BUUNDARY COLOR. 051126 FB98 2E 65 RA PSE40 LDX 
05013 FAE6 26 01 FRE9 BNE PaOO2O NO. 05113R FB2R 9F 8 R PASE4S STX 
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YES. 
PRJUH0+5 


FRSTKI RERUN IS RIGHT SERRCH 
PAJHHO SET UP-DIRECTION. 


* 
PRJUHH+4 
#O 


PRYRDD CRRENT Y 

FRJOH ロ +5 LORD LEFT X CUORDINRTE 

1 ュ X 

FRJUH ロ + 1 

PASTF3 SERRCH NT BUUND TO RIGHT 
FRJOH ロ +1 FRSS THE RIGHT END FOS 
PRSTKU PRSS 

ー-1X 

FRJHH ロ +5 

FRLINL PRINT 

PAJ ロ HU+1 FINISH? 

FRPRS0 YES。 

FRSRUE NO. 

15X 

PRJUHH+1 

PRSTF3 SERREH NOT BUUND TU RIEHT- 
FRJUH ロ +1 VER THE RIGHT END POS 
FRFR49 YES. 

PRJOHLI+5 
D 

ー1 ュ X 
FRJHH ロ +5 


NG 


FASTKI RERUN IS PRINT. 
X 

PRJUH ロ +5 

FRSRUVE 

FRJUH ロ + 1 


[1 


TIGHT END POINT 


本 
FRSER INITIRLIZE 
FRJOUH ロ + 1 
ー15X 
FRSRUE 
FASTP1 SERRCH BUUND TO RIGBHT 

PSRUE IS THE LEFT DnT BUUNDRRY COLHR? 
FRSE30 NO. 

ー15X YES。 

PRJUH ロ +5 

PRSTP4 SERRCH NdT BUUND TO LEFT 
FRJUHC+5 
FASTKH 
1:X 
FRSE45 


LEFT DQT 


SET RIGHT END POS. 


FRSRVE SRVUE IT 
FEURY 

FRYRDD CURRENT Y 
PRJHH+1 
1X 
FRSRUE 
PASTF3 
PASRUVE 
FRSE40 
FRSRVE 
FRLINL  Nn: FRINT 

FRJUHHH+1 SET RIGHT END PO5. 
#4 RERUN 15 RIGHT 
PRSTKI 

FRSRUE 

ー1 ュ X 

FRJUHQ+5 SET LEFT END FQS 
FRJQH ロ I 

FaSERR 


SERRCEH NODT BUUND TO RIGHT 
CEONT INURNS? 
YES, FIND THE RIBHT END FOS. 


・LX1 
FRJUHDU+3 
・LY1 
・EY2 
PaSTP1 
X 
ー1X 
・LX@ 
LINES 
X 
XFPC 


PASRUE 
PRJHHO+1 


0 
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05115 
05116 
05117 
05118 
05119 
05120 
05121 
05122R 
051238 
05124R 
051258 
05126R 
05127a 
0512BR 
Q5129R 
05130R 
05131F 
05132R 
051338 
05134R 
05135R 


05137R 
0513BR 
05139 
05140R 
05141R 
05142 人 
051438 
05144 人 8 
05145R 
051468 
05147R 
0514BR 
05149R 
0515Oa 
05151R 
05152a 
05153R 
05154R 
05155R 
05156R 
05157a 
0515BR 
05159R 
05160A 
05161R 
05162a 


05164a 
05165R 
05166R 
05167Ra 


05169 

05170 

05171 

05172 

051738 
05174R 
05175 

05176 

0517? 

05178 

05179R 
05180R 
05181Aa 
05182R 
05183R 
05184R 
0518SR 
05186R 
05187R 
0518BBR 
Q5189 
05190 
05191a 
05192 
05193 
05194R 
0519S5R 
05196R 
05197R 
05198 
051998 
05200R 
052018 
05202R 
OS2038 
05204a 
05205R 
05206R 
05207R 
0520B 人 Aa 
052098 
05210R 
0S21 1 人 
05212R 
0S213 

05214 

05215R 
05216R 
0521 7 人 
0521B 

05219 


FB9C 
FB9F 
FBR1 
FBR3 
FBR5 
FBaB 
FBRR 
FBRC 
FBRE 
FBBO 
FBB3 
FBB5 
FBBY 
FBB3 


FBBB 
FBBD 
FBBF 
FBC1 
FBC3 
FBCS 
FBCY 
FBCR 
FBCEC 
FBCE 
FBDO 
FBDZ2 
FBD4 
FBD6 
FBDB 
FBDB 
FBDD 
FBDF 
FBE 1 
FBE4 
FBE6 
FBE3 
FBEB 
FBED 
FBEF 
FBF 1 


FBF4 
FBF6 
FBFB 
FBFR 


FBFC 
FBFE 


FC02 
FCQ04 
FCQB 
FCOR 
FCOB 
FCOD 
FCOF 
FC11 
FC13 
FC15 
FC17 
FC19 
FC1R 
FC1H 
FC1C 
FC1D 
FCIE 
FC2Q 
FC22 
FC24 
FC26 
FC2B 
FCZ2R 
FC2C 
FC2E 
FC30 
FC32 
FC34 
FC36 
FC38 
FC39 
FC3R 
FC3B 
FC3E 


FC40 
FC42 
FC44 


1183 


4] 


59 


aa 
FEF4 


FBB 


や や や や や や や や や や や 


FBF 


や や や や や や や や や や や や や や や や や ょ ぉ や や や や や や や や 


や や や や 


Ra 
FRF6 


FCO 


や や や や や いや や ロロ や や や 


ユ 
1g』 
y 
に テリ 


や や や や や や や や や や や 


や や や や や や 





* 
円 
* "PASERL" 
= 
呈 SERRCH LEFT END PINT 
* 
PSERL EEIU * 
JSR FRSER 
LDX PRJHHH+5 
LERX 15X RIRHT DQT 
STX PASRVE 
JSR FRSTF2 SERRCH BUUND TQ LEFT 
CPMPX FRSRUE IS THE RIGHT D ロ T BUNDRRY CULHR? 
BNE FRS120 NO 
LERX 1:X 
LDD FRJHH ロ + 1 
JSR FASTP3 YES , SERRCH NHIT BUUND TH RIGHT 
CNMPX PRJHHH+ 1 
BGT PRSTK ロ 
LERX ー1 ュ X SET RIGHT END PQS 
BRR PRS145 
PRS120 STX PRSRUE 
LDD PRCURY CURRENT Y 
STD FRYRDD 
LDX PRJCH ロ +5 
LERX ー1:X 
LDD PRSRUVE 
JSR FRSTF4 SERRCH NHT BHUND TQ LEFT 
CPPX FRSRUE CHNT INURNS 
BLE PRS140 YES。 FIND THE LEFT END PCS 
STX FRSRVE 
STX ・LXe 
LDD FRJDH ロ +3 
STD ・LY1 
STD ・LY2 
JSR FASTF2 
STX PRJHH ロ +5 
LERX 15X 
STX ・LX1 
JSR LINES FRINT 
LDR # 晶 RERUN IS LEFT 
JSR FASTKI SRUE TO STRCK 
LDX FRSRVE 
LERX 1:X 
STX PRJOH ロ +1 SET RIGHT END PQINT 
CON FRJUHQ 
JIP PASERR 
PAS140 LDX FRSRUE 
FRS145 STX PRJUH ロ +5 SET LEFT END PQS. 
LDB FRDIRY+1 
STB PRJOHc+4 
円 
旨 
* END JUDGPENT 
* 
CMFX PRJHH ロ +1 
LBLT FRFRIN 
* 
* TRKE OUT INFURMRTIHN FR STRCK 
* 
FRSTKO EQU * 
LDU PRSTKF' LRD STRCK PHINTER 
CMPU #PRDMIY 
BNE FRSO10 
RTS END "FRINT" CMRND 
FaSO10 CLR FRJUHI 
LDR ぅ U+ 
BFL PaSO2O 
CI FRJHH ロ 
PASO2O ERR FRJ ロ HO 
FSH5 は 1 
RNDR SCF 
CLRB 
LSRR 
ROLB 
LSRa 
ROLB 
CPPFB # せ $03 EEFT X 1S っ 3Z 
BLO FRS030 NO 
LDB せま FF YES。 
FPS030 STB FRJUHH+5 X2 HIGH 
LDB ぅ U+ X1 LU 
STD FRJHHU+1 X1 
LDR ょ U+ 
STa FRJHHH+6 X2 LOM 
LDR U+ 
STa PRJUH+4 Y 
STU FRSTKF'_ SRUE STRCK FUINTER 
FULS 1 
RNDR 3O 
LSRR 
LSRA 
LSRR 
LDX #FPRTRBEL 
JPMP [RsX] 
ャ 
PaTRBL EBU 員 
FDB PRPRIN CHECk。 BUUNDRY CDLOR 
FDB PRSERR SERRH_ RIGHT END FUINT 
FDB FRSERL SERRCH LEFT END PHINT 


ーー 
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10 


サブ プ シ ジ システム ・ モ ニタ 


ソー ス ・ リ スト 








05220 
05221 
05222 
05223 
05224 
0S225R FC46 
05226R FC48 
05227R FC4R 
0522BR FC4E 
05229 
O05230R FCSO 
05231R FC52 
05232R FCS4 
05233R FCS56 
05234 FCSB 
05235R FCSR 
05236R FCSC 
05237R FCSE 
GS523BR FC60 
05239R FC62 
O05240R FC63 
05241R FC64 
Q5242 FC65 
05243R FC66 
05244R FC68 
05245R FC6R 
05246R FC6C 
05247 
05Z24 晶 
05249 
052S50 
05251 
05252 
05253 
05254R FC6D 
05255 FC6F 
OS256R FCY1 
0525?7R FC73 
O52SBR FCY5 
05259R FCYP 
05260f FCYB 
05261R FCYR 
R FCYR 
05262R FCYH 
05263R FC7C 
05264R FCYE 
0526SR FCBO 
05266R FCBZ 
05267R FCB5 
0526BR FCBY 
Q5269R FCBB 
Q5270R FCBR 
052?1R FCBC 
05272R FCBE 
05273R FC90 
05274R FC92 
0527SR FC93 
05276R FC95 


052Y 
05279 
05280 
052B1 
052B2 
052B3 
052B4 
05285 
05286 
0S28B? 
052BB 
05289 
05290 
05291 
05292R FC96 
05293R FC98 
05294R FC9R 
05295R FC9C 
R FC9C 
05296R FC9F 
05297R FCRO 
0529BR FCR4 
05299R FCR6 
053OOR_FCRR 
05301 FCRC 
R FCRC 
05302R FCRF 
05303R FCB1 
05304R FCB3 
05305SR FCB6 
05306R FCB9 
05307R FCBB 
0530BR FCBD 
05309R FCBF 
05310R FCC1 
05311R FCC3 
05312R FCC5 
05313R_ FCCY 
05314R FCC9 
05315R FCCB 
05316Q FCCD 
05317R FCCE 
05318R FCDO 
- 053198 FCDZ 
05320R FCD4 
05321R FCD5 





FC46 人 
97 。 人 
DE ECO R 
1183 DOC2 介 
2? 1C FC6C 
96  RD は 1 
RT CE2 R 
96 RF 1 
RIZ CE2 人 
96 RB R 
7 C2 人 
96 aa 人 
9 人 ? R 
D6 CE 人 
54 
49 
54 
49 
98 9 人 
R7 CZ2 人 
DF CO 1 
39 

FC6D 人 
DE 1 
33 41 R 
De  ^D R 
96 9 R 
26 04 FCYB 
SR 
33 SE 1 

る 21 1 
SC 
1 CB 1 
25 05 FCB5 
32 62 人 
YE FCO2 R 
B6 SO 1 
3D 
DD BE4 R 
DD  B2 R 
DF BEO 人 
B6 50 人 
D6  RD 1 
3D 
DD Be6 1 
39 


FC36 1 
DE B2 人 R 
96 BB 人 
33 Ce6 1 
B5  D409 人 
12 
E6 ヒ C9 8O00 
D? BF 人 
E6  C9 4000 R 
R6 _ ヒ 4 Ra 
B7  D409 人 
DD BD 1 
OF BB 介 
B6  D3Br 1 
BE  D3934 人 
D6  BD 1 
EB  B4 R 
DP 。 BE 介 
D6 BE 月 
EB 01 R 
DR BC R 
D BC R 
D6 。 BF 人 
EB 02 1 
DR BE 人 
53 
DR BB は 1 
D BB R 
30 03 1 
4 
26 EZ2 FCB9 


"PRSTKI" 


SRUE INFHRIRTIUN IN STaCK 


で ます ま キキ 


RSTK1I EQU * 
STR PRBRRN 
LDU FRSTKP LORD STRCK PUINTER 


CIMPU  #PRSTRK 
BEB PRSTKR 

ロ 

PRST10 LDa PJOHO+4 Y 
STR ューU 
LDR PRJOHQ+6 
STR ューU 
LDR PRJOH ロ +2 
STR ューU 


LDR PRJOHH+1 

QRR FRBRRN 

LDB PRJUH0+5 

LSRBH 

ROLR 

LSRB 

ROLR 

EQRR PRJ ロ HO 

STR ューU 

STU PRSTKP 
FRSTKR_RTS 


キ 
* 
* "PRSER" 

w 

し SERRCH CEUNTINU ロ US END PQINT 
に 

PF 


RSER EQU * 
LDU FRJOHH+3 
LERU 1U 
LDB FRJ ロ HG+4 
LDR FRJHQ 
BNE FRSE10 


DECB 

LERU ー-@U 

SKIP1 

FCB 21 
FRSE10 INCB 

CMPE  #GYD 

BLQO PRSE20 

LERS 25 


JP FRSTKO 
PRSE20 LDR #BO 

IMUL 

STD PRNXTY 

STD FRYRDD 

STU PRDIRY 


LDR #BO 
LDB FRJDH ロ +4 
PUL 
STD FACEURY 
RTS 
*PABBET * 
INPUT RND REFERENCE 
PRYRDD,PRXFF ,PRNBCL 
PRBCLE :PRSCND 
DUTPUT 


PRSIMG SERRCHING COULHRS 1IG. 
RECB IS SRME IT-. 


MORK 
PRTEIP PRVB PRUR PRVG 


FE 


PRBGET E5IU に 3 
LDU FRYaDD 
LDR PRX ロ FF 


LERU 人 U 
URCON 

BITR URCEE 
NOF' 

LDB ・・UGnU 
STB PRVG 
LDB ・-VURiU 
LDR ・・ UVB:U 
URC ロ FF 

ST UaCC 
STD FRUVH 


CLR PRSIIG 
LDR FRNBCL 
LDX PRBCLE 


PRBG50 LDB FRVB 
EQRB ュ X 
STB PRTEMP 
LDB PAVR 
EQRB 1 ュ X 


DRB FaTEIP' 
STBH FATEIMF 


LDB FRVG 
EQRB 2 ュ X 
RB PaTEIP 
CIB 


RB PRSIIG 
STH FRSIMG 
LERX 3:X 
DECR 

BNE PRBGS0 











05322R 
053238 
05324R 


05326R 
05327R 
0532BR 
05329 
05330R 
053318 
QS332f 
053338 
05334a 
053 コ SR 
053368 
05337R 
05338BR 
05339 
05340 
05341R 
05342R 
053438 
05344R 
0534SR 
05346R 
05347R 
0534BR 
05349 
05350R 
05351R 
05352R 
05353 
05354R 
053SSR 
05356R 
05357R 
0535BR 
05359R 
05360R 
05361R 
05362R 
053638 

介 
05364R 
0536SR 


05367R 
0536BR 
05369R 
0537OR 
05371R 
05372R 
0S373 
05374R 
0537SR 
05376R 
05377Aa 
0537BR 
0537?98 
053B0R 
05381 
053B2R 
053838 
053B4R 
053BSR 
053B6R 
053B7A 
053BBR 
053898 
05390R 
05391RF 
05392R 
053938 
05394R 
0539SR 
05396 
05397R 
05398R 
05399 
05400R 
05401R 
05402R 
Q05404 

05405 

05406 

05407 

054Q0BR 
05409F 
054108 
05411 
05412R 
05413a 
05414R 
0541SR 
05416R 
05417R 
05418R 
05419 
0542Q 

05421 人 RF 
0542 ら 2 

05423 

05424 

05425 

QS426 


FCDY 
FCD9 
FCDB 


FCD に 
FCDF 
FCE1 
FCE4 
FCE6 
FCE9 
FCEC 
FCEF 
FCF1 
FCF3 
FCF5 
FCFP 
FCFR 
FCFD 
FDQOO 
FDO2 
FDO4 
FDO6 
FDOB 
FDQR 
FDOD 
FDOF 
FD12 
FD14 
FD16 
FD18 
FD1R 
FD1C 
FD1F 
FDe1 
FD24 
FD26 
FD29 
FD2B 
FD2D 
FD2F 
FD30 
FD31 
FD31 
FD32 
FD33 


FD34 
FD36 
FD3B 
FD3 
FD3C 
FD3E 
FD40 
FD41 
FD43 
FD45 
FD48 
FD49 
FD4a 
FD4C 
FD4E 
FD51 
FDS2 
FD54 
FDS? 
FD59 
FDSB 
FDSD 
FDSE 
FD60 
FD62 
FD64 
FD66 
FD6Y 
FD69 
FD6B 
FD6D 
FD6F 
FDYQ 
FD72 
FD74 
FDY5 


FD'Y6 
FD79 
FD7YB 
FDYD 
FD7F 
FDB1 
FDB3 
FDB5 
FDBY 
FDBB 
FDBR 
FDBD 


FDBE 


BC 


m 
トー』 
よ 
CH 


D や や や や や や や や や アセ アセ 


FD3 


R 


FASTF1 
FASTF2 
FASTF3 


FRSTRI 


PRSTP4 


FRSTLI 
PR SER 


FR. S2O 
FR. 525 


PR. RIX 
FR. S30 


FR. LIMX 
PR. S40 


FR. SBO 


PR. SB3 
FR. SBS 


Pa. S90 
PR. RTS 

内 

* INKEY 


INKEY 


KEYGET 
KEYIN 


INPUT 


w 
* 
コ 
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EQRB FPSCND 
STB PaSTIG 
RTS 
LDU #$O100 TH RIGHT,BHUND 
BRR FRSTRI 
LDU #$FFOO TO LEFT,BHUND 
BRR PASTLIN 
LDU せ $O1FF TU RIGHT,N ロ T BUND 
RDDD # 昌 
JSR LSRD3 
CMFB #BO 
BLE FR. SER 
LDB #B0 
BRR Fa. SER 
LDU #$FFFF TH LEFT,」 NT BUND 
SUBD # 日 
JSR LSRD3 
CIPFBH #ー1 
BGE FR. SER 
LDH #ー1 
STU FRRL SET SERRCH CHNDITICN 
STH FRLIMT 
CIFX #ー1 
BLE FR. LIMX 
CMFX #GXD 
BGE FR. RIX 
TFR XxD 
RNDB #$07 
FPSHS 昌 
TFR XD 
JSR LSRD3 
STB FRXUFF 
JSR PRBGET 
FULS B 
LDX #BR5 
LDH B ュ X 
LDR FARL 
HMI FR。 S2Q 
LSLH 
DECB 
SKIF2 
FCB $BC CMPX 
DECB 
CQB 
RNDBE PaSTIIG 
STH FaSING 
BNE FR. SB0 
LDR FAXUFF 
LDBE FRRL 
BNMI FR. 530 
INCR 
CPPFR PRLIMT 
BLT FR. S40 
LDX #5XD 
RTS 
DECR 
CYPFR PRLIIT 
BGT FR. S40 
LDX 革 -1 
RTS 
STR PRXIFF 
JSR FRBGET 
BE PR. S25 
LDR # 昌 
LDB PRXUDFF 
NMUL 
TFR DX 
LDB PaSIIG 
LDR PRRL 
BIMI Fa. SB5 
LSLB 
BCS PR. S90 
LERX 1.X 
BRa FR. SB3 
LERX ー1 ュ X 
LSRB 
BCC Fa. SBS 
LERX 8X 
RTS 
RTS 

CQMMYaND 
EQU 剖 
LDR CDPRN 
BITR #$02 RESET1? 
BNE INKE1 YES。 
BITR #$04 NO.。 RESET2? 
BE INKE3 。 NHJ. NRESET 
LDB KEYDRT YES.。 FF? 
BI INKE3 YES. NH _RESET 
ELR KEYDRT RESET 
LSRR MAIT SET TIE 
BSR KEYIN 
STD CFDPRIM KEYDRTA 
RTS 
SEC MRIT SET 
EQU し 

CE FLRG : MRIT FOR DaTAR 


IF C IS SET. 

















05427 
054z8 
05429 
0543o 
05431R 
R 
05432R 
054338 
05434 
05435 
R 
05436 
05437R 
0543Ba 
05439R 
054408 
05441R 
05442 
054438 
05444R 
05445a 
05446 
05447R 
05448a 
054498 
05450A 
R 
05451A 
05452 
05453 
05454 
05455 
05456 
05457a 
05458a 
05459a 
05460 
05461R 
05462Aa 
054638 
054648 
05465 
05466 
05467a 
05468a 
054698 
054708 
05471 
05472R 
054738 
05474R 
05475 
05476 
054Y7a 
0547BR 
05479 
054B0A 
054B1 
054B3 
054B4 
054B5 
054B6R 
F1 
05487A 
054BBQ 
054B9a 
05490 
05491R 
05492 
054938 
054948 
05495 
05496 
05497a 
05498A 
05499a 
05500a 
05501^a 
0550Z2R 
055038 
05504 
05505 
05506a 
05507R 
055QBR 
05509a 
05510 
05511N 
05512 
05513 
05514 
05515R 
05516 
05517R 
05518 
人 
o5519 
05520A 
055z1 
05522R 
055238 
05524R 
05525a 
05526a 
055Zr 
05529 
05530 


FD30 
FD90 
FD92 
FD94 
FD36 
FD98 
FD98 
FD9R 
FD3C 
FD3E 
FDRO 
FDRZ 
FDR4 
FDA6 
FDRB 
FDR 
FDRC 
FDRE 
FDBOQ 
FDB2 
FDB4 
FDB6 
FDB6 
FDBB 


FDB3 
FDBB 
FDBE 
FDCO 
FDC2 
FDC4 
FDC6 
FDCY 
FDCR 
FDCB 
FDCD 
FDCF 
FDD1 
FDD3 
FDD5 
FDD6 
FDDB 
FDDR 
FDDC 


FDDE 
FDEO 
FDE2 
FDE4 


FDE5 
FDE5 
FDEY 
FDER 
FDEC 
FDEE 
FDFO 
FDF3 
FDF5 
FDFY 
FDF9 
FDFB 
FDFC 
FDFE 
FDFF 
FEO01 
FE03 
FEQ05 
FE06 
FEOB 


FEOB 
FEOD 
FEQOF 
FE10 
FE12 
FE14 


FE17 
FE19 
FE1B 
FE1 に 
FE1E 
FE1E 


FE20 
FE21 
FE22 
FE23 
FE24 
FE2Y 
FE2B 





FEOB 


EOEQ0 
FE1P 


に 1 


5O 


サ プ シ ステ ム ・ モ ニタ ソー ス ・ リ スト 





・ nUTFUT 
* RCCR : CDE 
* CCB : 0 1S NQ-DaTA 
* 
KEYINO SEF FaST IRQ WaSK 
DRCC  #$40 
LDB 。 KEYDaT 
BNE KEYIN1 SME DRTR EXIST 
BCC KEYIN9 RETURN IF N MRIT IS RERUESTED. 
CELF REMQUE MaSK 
人 NDCC  #$BF 
BRR ” KEYINO 
KEYIN1 BPL KEYIN5 PF? NO. 
DEC KEYDaT+1 YES .REPMIN ? 
BPL KEYIN2 YEG. 
LDR #*OO 
STA KEYDaT 
BRR KEYINO 
KEYIN2 LDU PFIX 
LDA ュ U+ 
STU FFIX 
BRQA KEYIN 
KEYIN5 LDR KEYDaT+1 
ELR KEYDaT 
KEYIN7 LDB #1 
KEYIN9 ELF 。 MaSK DFF 
RNDCC  #$BF 
RTS 
* 
* KEY DaTR GET 
KEYIRG EQU * FRST IRQ ENTRY 
PSHS 。 D,X 
LDD KCnDl 
DRR #S$O1 
STD KEYDaT 
BPL KEYIR5 DaTR CDE 
LDR ##PFSZ PFCODE 
PUL 
LDX #.PFTBL-PFSZ 
RBX 
LDa ュ X+ 
BI KEYIR6 INTERRUFT 
STR KEYDRT+1 STRING LENGTH 
STX PFFIX PF STRPTR 
KEYIR5 PULS DiX 
RTI 
KEYIR6 LDR KEYDAT+1 
ST .PFIRQ 
CELR KEYDaT EMPTY SET 
BRR KEYIR5/ 
< 
KEYR2 EQU * RESET2 
TST KEYDaT 
BI KEYR2R 
ELR KEYDaT 
KEYR2R RTS 
内 
* FUNCTION KEY CPAND 
6 
FUNKEY ERU  * 
SEF MSK 
RCC  #540 
LDB .COMRR+3 IS THE KEY NUMBER .GT. ZEROY 
BER FUNKE9 NO, GIUE ERROR. 
CMPB  #10 
BHI FUNKE9 YES,。 IS THE KEY NUMWBER .LE. 10? 
LDR .COMRR+4 
CMPR  #15 
BHr FUNKE9 
BSR FUNaDR 
TFR RuB 
LSLB 
LSL ュ X 
RRB 
STB ュ X+ 
LDR #PFSZ-1 
BSR 。 CLRRRR 
TSTa 
BE PFINDC 
LDU #.CMaR+5 
FUNKE5 EQU = 
LDB ュ U+ 
STB ュ X+ 
DECA 
BNE FUNKE5 
BRR PFINDC 
FUNKE9 JMF ERRGB 
we 
CLRRRR EBU * 
PSHS  X 
FLRRR5 CLR ュ X+ 
DECB 
BNE CLRRR5 
RTSPUL X 
PULS XPC 
FUNRDR LSLB 
LSLB 
LSLB 
LSLB 
LDX #.PFTBL-PFSZ 
RBX 
RTS 


F 


* BET STRING OF FUNCTION-KEY COIIRND 
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05531 
05532R 
055338 
05534R 
Q5535R 
05536R 
05537A 
0553BR 
05539 
05540R 
Q554 1 人 
05542R 
Q55438 
Q5544R 
05545R 
Q5546 
0554? 
05548 
05549 
05550 
05551a 
| 


05G5Z 


05553R 
05S54R 
QOS5SS55R 
05556R 
055SR 
05SSBAR 
05559R 
05560R 
05561R 
05562 
05563 
05S65 
05566 
OS5S6 
0556B 
05S569a 
05570R 
055?1RF 
055Y2R 
05573a 
05S574R 
05575R 
05576R 
05577 人 Ra 
0557BR 
055Y9R 
05SBOR 
0S5SB1 
055B2R 
05SH3R 
055B4R 
OS5SBSAR 
055B6R 
055B7R 
055BBR 
05589 
05590 
05591 
05592 
Q55938 
05594 人 
05595R 
05596RF 
05597R 
05598 
05599 
OS6QOR 
05601 人 8 
05602R 
た 1 
05603 
056048 
人 
05605R 
05606R 
0560P 
Q0560B 
05609 
QS610 
05611 
05612R 
05613R 
05614R 
05615R 
05616 
05617 
0S618 
05619 
0562OR 
Q5621a 
05622R 
056238 
05624R 
Q5625R 
05626R 
05627R 
0562BR 
05629 
05630 
056318 
05632R 
O05633 
056348 


FE29 
FE2C 
FE2E 
FE3Q 
FE32 
FE34 
FE36 
FE3B 
FE3R 
FE3C 
FE3E 
FE40 
FE41 
FE43 


FE44 
FE44 
FE46 
FE49 
FE4 に 
FE4E 
FE4F 
FE50 
FES2 
FE55 
FES8 
FESR 
FESR 
FES5C 


FESF 
FE61 
FE64 
FE6B 
FE6R 
FE6B 
FE6D 
FE6F 
FEY1 
FEY3 
FEY4 
FEY6 
FEYB 
FEYR 
FEYC 
FEYE 
FEBO 
FEB2 
FEB3 
FEB5 


FEB? 
FEB9 
FEBC 
FE90 
FE9Z2 


FE95 
FE37 
FE99 
FE99 
FE9B 
FE9D 
FE9D 
FE9F 
FER1 


FER2 
FER4 
FERG6 
FERB 
FERR 


FERB 
FERD 
FERF 
FEB1 
FEB3 
FEBS 
FEB9 
FEBD 
FEBF 
FEC1 
FEC3 
FEC6 
FECB 


FECR 





1R 
FC 
BE 
68 
44 
S6 
66 
30 
BC 
25 


1 ビ 
7E 


10BE 


36 
2? 
2B 
921 
26 
R6 
E6 
03 
CA 
CB 
BD 
6 
3? 


108E 


FE293 R 
D3B3 代 
CO 1 
E4 FE14 
OR は 1 
E0 FE14 
ER FE2O 
B0 朋 
7F 1 
10 人 
CO 人 R 
B0 R 
F9 FE3 ヒ 
FE14 RR 
FE44 1 
40 R 
D3B3 R 
D2CO 人 
B4 1 
B4 R 
BB 10 人 
D360 1 
Fg _ FE4C 
BF R 
EDBE 1 
FESF R 
08 
D3B3 R 
DO09 は 1 
B1 R 
02 FE6F 
4 R 
ら 1 代 
94 R 
OB FEPE 
B4 1 
R4 R 
02 は | 
22 R 
04 R 
24 1 
EE。 FEY3 
OE FE95 
FEBY R 
08 1 
DQ09 介 
D3B4 は ] 
11 1 
E44E R 
FE95 R 
OB 1 
OB FER1 
40 人 
QE FERB 
BF R 
08 1 
FERg2 1 
QB 人 
02 FERB 
03 FERB 
QB R 
FERB 1 
1 R 
1B FECR 
19 FECR 
1B 1 
15 FECR 
9F DOS5O R 
9F DOS52 
1 に 人 R 
02 FEC3 
08 1 
E51C R 
14 人 
1B 1 
FECR は 1 
0000 仙 


GSTRFF EREIU 
LDU 
LDB 
BER 
CEPFB 
BHI 
BSR 
LDB 
RNDB 
LDR 
STB 
LDB 
DECR 
BNE 
RTS 
STRF9 ERU 


ネ 


STRFP5 


* 
#. EHIYRR+3 * LORD CHIN RDDRESS 


ぅ U+ 
GSTRP9 
#10 
GSTRF9 
FUNRDR 
メオ 

せ $7F 
#PF5Z 
U+ 

ュ メ キ 


BSTRF5 


FUNKE9 


* DECREIENT 


* 。 INTERRUFPT CHNTR ロ L FR PRHGRAPRBLE FUNCTI ロ N KEY 


ネ 
FFINT EBEU 
SEF 
HRCC 
LDD 
LDX 
LSL 
LSRR 
RRB 
ROR 
LERX 
CMPX 
BLO 
ELF 
RNDCC 
JP 
1 


FFINT5 


FF INDC 


円 
* SET 
SETTIM EQU 
CO 
LDX 
LDY 
LDD 
LSRR 
BCC 
STB 
LEAY 
LDB 
LSRR 
BCC 
LDU 
STU 
LDU 
STU 
LEAX 
LEAY 
DECB 
BNE 
BRR 


SETTI1 
SETTI3 


SETTN5 


* RERD TIMER 
* 
REDTIM EQU 
En 
LDX 
LDY 
LDB 
JSR 
TET  EgU 
CM 
BEQ 
SEF 
DRCC 
BSR 
CLF 
NDCC 
ELR 
TMCT99 RTS 


* 20 TIIER 


の 
TIPNMI EGU 
LDR 
BNE 
BSR 
TIMRTI FLR 
RTI 


ボ 


に 


#$40 
CPMDFRI 
#.FFTBL 
ュ X 


ュ X 
PFSZ 。X 


FLRGS 
FF TABLE FTR TH X 
ENRBLE BIT TH ヒビ -FLRG 


SET TH MSB ロ F CHUNTER BYTE 
NEXT PFF 


#. PFTBL+FFSZ*10 


PF INT5 
* 

せ $BF 
INDICT 


ENRBLE THE KEY INTERRUPT. 
DISFLRY FF STRINGS 


TIIER - TIMER CCDE 一 


TIMYER CUMIRND 


・TIMAC 
#CMDPRI 
本 $T に 


ュ メ +ー 


SETTM1 
Y 

15Y 
4 


SETTI5 
ュ X 

nsY 

と よ ル 4 
2xY 
45X 
45Y 


SETTN3 
TMCT 


Cn ロ WIND 


に 
・TIRC 
#。 $T ビ 


NMY1 MRSK 


#CIPDFRI+ 1 


#1+4*4 
IOVE 


w 
・ TMRC 
TIMCT99 


#$40 
TIIMER 


5BF 
・TMRC 


に 
・ TMRC 
TIIRTI 
TIIER 
・TIRC 


* TIMER PRCEKRBE 


ャ 
TIMER EQU 
LDR 
BEG 
BPI 
DEC 
BNE 
LDR 
LDB 
CH 
BE 
EORB 
JSR 
LDR 
STR 
EGRU 
LDY 


EURTN5 


FURTI9 


キャ 
- CURSR 


CURTI3 
CURTI9 
・EURTN 
CURTI9 
[. CBRD1 
-. CRRD] 
・EURST 
CURTI5 
# せ RIRV 
CDSFC 
#20 
・CURTI 


#0 


CMYMRND TERIMINRTIUN 
SET & TEST 
NO NMI 


NMI 


IS HERE CURSUR DISPLRY STRTE? 
NC. 

DECREIENT CURSHR INTERURL- 

NO CHRNGE STRTE 


15 THE BEFHRE STRTE REVERSE? 
YES, NM IS THE NRPRL. 








056358 
05636R 
05637a 
0563BR 
Q5639 
05640 
05641 
05642 
056438 
05644 
05645a 
05646 
05647a 
05648BR 
05649 
05650R 
05651 
05652 
056538 
05654R 
05655a 
05656Aa 
05657a 
0565BA 
05659a 
05660 
05661R 
05662^a 
05663a 
05664 
05665A 
05666R 
05667a 
05668A 
05669R 
0567OA 
05671R 
056Y2a 
05673a 
05674 
0567Y5R 
05676A 
056YYA 
056YBA 
05679a 
056BOa 
056B1 
056B2R 
056B38 
056B4 
05685 
056B6R 
056B7A 
056BBa 
056B9A 
056908 
Q5691 
05692A 
05693a 
05694R 
05695R 
05696R 
05697Aa 
R 
05698A 
a 
05699 
05YO0R 
な 1 
人 
1 
05YQ1 
05702 
05Y03 
05704 
05705 
05Y07 
057o8 
05T09 
05Y10 
05711 
05?12 
05?13 
05?14 
05Y15 
05?16 
05?17 
05?18 
05?19 
05Y20 
05721 
0572z 
05723 
05724R 
05?25a 
05726 
05Y27a 
057zBa 
05Yz9a 
05Y30a 
05?31 
0532 
05733R 
05?3 コ 4 
05735 
05736 
05737R 


FECE 
FED1 
FED4 
FED6 
FEDB 
FEDR 
FEDC 
FEDE 
FEEO 
FEE1 
FEE3 
FEE5 
FEEY 
FEE9 


FEEC 
FEEE 
FEFO 
FEF2 
FEF4 
FEF6 
FEFB 
FEFR 
FEFC 
FEFE 


FFO1 
FF03 
FFO6 
FFOB8 
FFOR 
FFOC 
FFOE 
FF10 
FF12 
FF14 
FF16 
FF18 
FF1R 
FF1 ヒ 
FF1E 
FF2O 
FF22 
FF24 
FF26 
FF29 
FF2B 
FF2D 
FF2F 


FF31 
FF34 
FF36 
FF3B 
FF36 
FF3C 
FF3E 
FF40 
FF42 
FF44 
FF46 
FF49 
FF49 
FF4C 
FF4C 


FF4E 
FF4F 
FF5O 
FF51 


FFSg 
FF55 
FFS8 
FF5R 
FFSD 
FFS5F 
FF62 
FF64 
FF66 
FF68 
FF6Ra 
FF6C 
FF6D 
FFeF 


DooE Ra 
FF4E  R 
Q4 Ra 
Ba R 
B4 
Co R 
OE FEEC 
B4 R 
F3 FED6 
09 人 
08 R 
03 FEEC 
RB 40 RA 
09 A 
Oo1 a 
OF  FFO1 
OR RA 
OE R 
09  FFO1 
OC R 
10 Ra 
03  FFO1 
RB 10 Ra 
14 R 
FFFF  R 
14 R 
OB  FF12 
12 R 
1F Ra 
12 Ra 
1F  FF31 
1D  FF31 
12 R 
19  FF31 
16 a 
12 人 
18 人 
14 R 
09 Ra 
02 R 
OB  FF31 
RB 20 RA 
04 R 
04  FF31 
0z Ra 
09 A 
FF31 Ra 
D3B1 8 
og Ra 
04  FF3C 
Fo R 
0 R 
2o R 
61 R 
OR  FF4C 
0z R 
Eo R 
Da381 Ra 
D404 。 8 
RO R 
32 Ra 
3C 
3C R 
18 R 
oool 。 a 
ooo2 Ra 
ooo04 。 Aa 
oooOB Ra 
FF52 Ra 
D383 8a 
FFRO  R 
B1 R 
ヒ 1 R 
19  FFB 
D38BB、 R 
F4  FF58 
BO R 
90 a 
OB  FFY5 
oOC  FFYB 
18  FFB 


LDX 
LDU 
LDR 
INC 
LDR 
CIMPR 
BL 
CLR 
DECB 
BNE 
LDR 
BITR 
BEGI 
LERY 


TMO2QO 


* 
TM100 LDa 
BITR 
BEB 
LDX 
CIMFX 
BNE 
LDX 
CPPX 
BNE 
LERY 


LDD 
RDDD 
STD 
BCS 
LDX 
LERX 
STX 
RA 
BNE 
LDD 
BNE 
LDD 
STD 
LDD 
STD 
LDR 
BITR 
BER 
LERY 
BITR 
BE 
EQRR 
STR 


TM220 


人 
TI900 ERIU 
LDR 
LDH 
BEB 
RNDR 
ELR 
FSHS 
ORB 
BEG 
FSHS 
DRB 
STB 
SYSRE5I 
BITR 
RTSPUL 
FULS 


TI910 


FCH 


TITCT EgU 
TPTC1 EBU 
TMTCH EQU 
NEMDaT EQU 
ドコ 


TEST CIMIYRND 


THIS CMMRND 
SUB-SYSTENM*5 
RDDRESSING 


TEST SUH CI 
90 RETURN 

$91 MVE DRT 
$92 BRRNCH T 
93 BRRNCH T 


DTHER CUDE 


ーー 


EST EQU 
LDX 
LDU 
LDD 
CMFD 
BNE 
CMPX 
BL 
LDR 
SUBR 
BIMI 
BEGI 
DECR 
BEG 
DECR 


TSTKLP 


TSTCID 





30 信 





&O 





#. ST1+4 
#TMDRT 
#4 

ューX 

ュ X 

U+ 
TNM100 

ュ X 


TMO20 
・$TC ビ 
#NEMDRT 
TP100 
NMDIY 


・$TE 

##TMTCT ENRBLE? 

TIM200 Nn.。 DISRBLE 
・$T1 YES. 

・5T11 SRE TIMET 
TI2OO _ NO 

・$T1+2 

・$T11+2 

TIM2Q0 NQ. 

TI:Y YES。 SET FLRG 


- $T2+2 DECREMENT COUNTER 
#$FFFF 

・ 5T2+2 

Tez2o 

・$T2 

ー1.X 

。 $T2 

TM900 

TM900 。N ロ T ZER ロ 

、$T2 

TM900  N ロ TZERQ 

-$TeD  ZER ロ 

。 $T2 RESTORE 

・ $T2D+2 

・ $T2+2 

・$T ビ 

#TMTCI INTERURL ENRBLE? 
Th900 DISRBLE 

INI,Y YES. SET FLAG 
#TMTC ロ NE SHQT? 

TWM900 NO. 

#TNTCI YES. 

・ $TC INTERURL ロ FF 

円 

STaTUS 

-FFIRG! DID FF FUSH? 
TM910  NQi 

PFI$ YES」 CLERR PF FIELD 
-FFIRG 

Y 

1S ロ R TIPER FLRGS, 
TI990 NO SYSREGI EXIST. 
1 

5+ 

STRTUS SET INTERRUPT FLRGS. 
* SYSTE REGIUEST 
RTTENT 

Y 

YuFC 

50,6060,24 

$01 

$02 

*04 

$OB 


IS BLE TU REFER TQ THE 
RRER IS RDDRESSED BY RBSOLUTE 


1aND 


) SYSTEIN 

1 

〕) SUB CRND 

〕 MRCHINE LRNGURGE SUBRUUTINE 


:VE "INURLID C ロ MMYRND" ERR ロ R- 


ICPDPRIW IS THIS KEYMURD RIBHT? 
ITSTKEY 

メ ++ 

U++ 

'STRTS _ N ロ , COMMYRND ENDED. 

史 MDPRI+B RLL ERURLY 

STKLP _ NH, GDH MORE. 

X+ YES, MHRT 15S SUBEID. ? 
30 
STERR 
STRTS RETURN 


STIUU UE 








0573B 
05739R 
05740 
05741R 
05742 
05743 

05744R 
05Y45a 
05746 

05747R 
05748a 
05Y49 
05Y5OA 
05Y51R 
05752Ra 
05753a 
05Y54R 
05?55R 
05756R 
05?57R 
0575BA 
05Y59A 
05760R 
05761R 
05762 
057638 
05764 

0S5v6SAa 


や や や や や や や 


EF?O 
FFY2 
FF?3 
FF?5 
FFYB 


FF?9 
FFYB 


FFYD 
FFYF 
FFB1 
FFB3 
FFBS 
FFB 
FFBR 
FFBC 
FFBE 
FF90 
FF9g2 
FF94 
FF36 
FF98 
FF9R 
FF9C 
FF9E 


FFaO 
FFA1 
FFAZ 
FFR3 
FFR4 
FF5 
FF6 
FFA7 


EOE6 


B1 


TSTERR 
TSTRTS 


* 
TSTBRR 


* 
TSTBSR 


TSTIHU 


TSTNLP 


ャ 
TSTKEY 


BE 
DECR 
BE 
JIP 
RTS 


LDX 
BRR 


LDU 
PSHS 
JSR 
PULS 
BRR 
LDY 
LDU 
LDD 
BEB 
FSHS 
TFR 
LDa 
ST 
LERX 
BNE 
PULS 
BRR 


FCB 


TSTBRA 


TSTBSR 
ERRYO 


TSTCMD 
ュ ※+ ャ 

ュ メ ++ 

ュ メ + エ 
TSTCMD 
X 

DX 
*Y て 
*U+ 
ー1 ュ X 
TSTMLF 
X 
TSTCID 


BRRNCH 


CRLL MaCHINE 
INURLID CIRND. 
RETURN T ロ SYSTEI 


BRRNCH RDDRESS LnRD 


MRCHINE RDDRESS LORDED. 
SRUE SUBCMD。 FTR. 
SUBRUTINE CRLL- 
RESTORE SUBCID. PTR. 


LHRD SUURCE RDDRESS, 
LnRD DESTINRTIHN RDDR. 
LRD BYTE CUNT 

Nn MVED DRTR 

SRUE 


FINISH? 
NO, BE _DQ ロ MRE. 
RESTDRE 


59 4 1 も 4D も 4 1 55 も 43。 も 4 日 も 49 
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BIOS ソー ス ・ リ スト 


























ooo10 0ooO01 Na ・HBIOS oo560 OO111 * 
0OO20 00002 DPT 。LLE=120,REL,L 00565 00112 は イエナ] 
OO0020 0O0003 XREF RBTCHK 00575 00114 * ENTRY 
ooo25 oooo4 XDEF CBIOS 005B0 OOo115 + BIDS 
00030 00005 0313 R RBORTF EGU 031 さ RBORT FLRG. 0O05B5 00116 1 
00035 0o006 * 00590 00117 * VECTOR 
00040 00007P OooO PSCT BIOS PROGRRM SECTION. 00595 0O118 
Q0045 00008 00600 00119 FFFE R PRESET 
OOOS5O OOOO9 キキ キキ キキ キネ オキ キオ ホオ キャ キキ キキ ペ キキ や キキ ペ キキ キキ や キキ OO605 0O120 FFFC R PNMI 
qoo55 ooo1Q * 00610 00121 FFFN Ra PSMI 
OO0O60 OO01 1 * FUJITSU PERSUNRL CUMPUTER 00615 00122 FFF R PIRG 
O0065 00012 * BRSIC INPUT/OUTPUT SYSTEN 0O620 00123 FFF6 R PFIRG 
00070 00013 * FHR F-BRSIC 00625 00124 FFF4 RA PSMI2 
00075 00014 昌 00630 OO125 FFF2 PSM13 
Q00BO 00015 * DESIGNED BY K.K 00635 00126 FFFO 人 PUCTO1 
OoQB5 OOO16 ・ CODED BYKKk 00640 0012Y FFE6 Q SINMGX 
00090 00017 * DRTE CT0BER *BO 00645 OO128 FFEB 人 R DSTDRU 
ooo95 OoO18 * oo650 Oo129 FFE5 R DWOTOR 
00100 OO0019 と た と よこ とこ とこ よっ ooe55 oo130 FFE1 R CURTRK 
00110 00021 て て て と と すす と と と と と よ よ よそ と よ すす と よ よ こと と と 00660 00131 FFEO 代 CRDRIV 
0o115 000zz * ooe65 0o132 ャ 
00120 00023 * :: STRUCTURE 00670 00133 ・ SHAREI 
oo125 Qooz4 * ooev5 QO134 * 
00130 Q0025 * BIQS EU BInS ENTRY PQINT 006B0 00135 FCBO R SHRRED 
00135 OoOz6 ・ と oo6B5 QO136 ooo0 Ra SMSTa 
00140 0002Y * 。 00690 00137 OoQ1  R SMCFB 
oo145 QQO2B * JSR 。 OxY ERCH DRIUER oo695 OO13B ooo2 Ra SMCMD 
00150 00029 * PROCESSING 0ovO0 00139 oo03 Ra SMDaT 
oo155 Qoo3O * : ooo5 oo14O OOoB0 Ra SMEND 
0O160 00031 * 5 00710 00141 * 
00165 00032 * RTS RETURN oo715 00142 oooC AFF 
00170 00033 ・ 00720 00143 ooon 。 RLF 
00175 00034 て と て よ と と て と すそ も と と よ よ と と と よ よ と よ と と よ よ よ よ よ よ 1 00Y25 OO144 0O1B aa ESC 
00185 00036 な 00730 00145 oo29 。 Ra INKEY 
QO190 0003Y ゅ 00735 OO146 oo03  aPUT 
00195 0003B * :: BIOS RODUTINE CRLLING SERUENCE 00740 00147 OO004 。 RGET 
oozo0 Ooo39 + oo45 00148 ooo5 Ra GETC 
00205 00040 * 1.。 SET RCB CUNTENTS 00750 00149 001H R BETB1 
Q0210 00041 * 2 LDX #RCH _RDDRESS QOS55 0015Q HH 
00215 00042 * コ 。 JSR [BIOS] 00760 00151 
oo2z2O Qoo43 ・ 4.C (CaRRY) CHECK oo65 OO152 ・ sFDOO 
00225 00044 > 0070 00153 ・  B7 
00230 0o045 な oov75 00154 *・ 。 B6 
0o240 0o047 る 00780 00155 の 
00245 0004B 内 ER BT も 
00250 00049 還 
85N29048 ・ "RCB STRUCTURE 0 ED 
00260 00051 00BO0 00159 に 
9 ・ LABEL OFFSET CONTENTS BSNDPEO ER 
00270 00053 oooo 。 aRgNo Eu o REgUEST CODE DOB1D6OO&S4 3 導 1 
ooz2v5 Qoo54 ooO1 RaRCBSTRAEGU 1 STaTUS QOB1BOOAG ら 2 
002B0 0oo55 0002  。 RRCBDRRE9U 2 BUFFER DDRESS OOBGCMODMGS さす 
qozB5 00056 OO02 RCBCNL ERU 2 NRLOG PDRT CHRNNEL NUBER. 4 民 MR 
00290 00057 OO02 RMTORF EpU 2 CASSETTE MOTOR ロ N,OFF FLRG. GDPEE ご SIBG 
ooz295 OooSB Ooo2 8CRMDaTERU 2 CaSSETTE READ/URITE DRTR. 
00300 00059 * 00B40 00167 * Bi1 
90305 Oo6o 0003 RCBRNGEGU 3 NGLOE PORT UOLTRGE RRNGE. RG DTE 2 隊 に い 
ooo61 * 
00315 00062 0004 。 RCBCDTEgU 4 HRD COPY COLOR DRTR. DOB805DGH 4 
00320 00063 OoO4 RCBLNHEQU 4 NUPBER OF BYTES (H) 
00325 00064 0004 RIRCBTRKEgU 4 TRRCK NUMBER OOB65 QO17 る * HB 
00330 OoO65 oo04 RCBPaHEGU 4 PaGE RDDRESS 。 (H) OOBCOAOO3 科 還 に 
09335 0006 0o04 RCBaPDEQU 4 RNALOG PQRT INPUT DaTR. 1 < rm 抽 
40 0006 ooo4  a RCBJCD 4 KI S 
2 R EQU NJI JIS CODE OO08ESWOOTSE 3 HE2 
00350 00069 0005 RIRCBLNL EgU 5 NUMBER OF BYTES (L) O0830 0017? に 議 に 4 
Qo3S5 0007O Oo05 人 RCBSCTEQU 5 SECTOR NUMBER DOBCORETO Srus59 
60 00071 0005 RCBPaL EgU 5 
NBS0 50221 R 5 PAGE ADDRESS (L) 9303 Oo189 Ren 
00370 00073 ooo6 RCBSIDEgU 6 DISK SIDE きら 
0o375 ooo74 OoO6 RCBPCHEGU 6 PAGE COUNTS HIGH Ro に 0 
00380 00075 OO06 R RCBBWH ER MAX き 
0 R EQU 6 BUFFER LENGTH H DGPDGLB4 5 
00390 00077 0O007 RCBUNT E9U DRIVE UNIT 00930 001B5 * 
00395 OOO7B OOO07 a RCBPCL EQU  ? PSE COUNTS LnM 00935 001B6 いよ 
0o400 00078 Co07 RCBBML EoU " MAX BUFFER LENGTH L 24SHD1 有 ER 
) OOBO ooO7 a RCBMTB ? SI 1 
0 R EgU UBIN PAX TRQNSFER BYTES 00G50GOHB9 Ka 
oo415 0ooB2 * 00955 00190 *。 _Bz 
00420 OOOB3 MOTI : FF=DN,00= 00960 00191 Se.B1 
0 DRF : FF=ON,00=OFF SHO39 い ST 5 
00430 00OB5 HE 00970 00193 人 
00435 00OB6 の URL 00975 00194 * $ も FDO5 
00440 000OB7 を ミ oo9BO OO195 *  Bp 
OORDODS ec TRaCK NUMBER *00 - s2? 002B08200195 お 
00450 0ooB9 * 00990 00197 cf 
Oo455 ooo9O ii RC TURE 00995 00198 BO 
00460 00091 REINSUS olooo Oo199 
00465 OOo92 有 01005 Oozoo oo 
00465 OO022 ・By-0 SECTOR NUMBER 3 
oo4v5 ooo94 e 01015 00202 ・ *FDO6 
00480 0oO95 ii RI O1020 00203 * Dr-DO 
OG4BD.O008 5 CBPaH STRUCTURE 1 
00490 0o097 ・ BY(NSB) BUBBLE CASSET NUMBER DEOB0&OO2O5| 25HO 
0O495 Qoo98 *・ Be -O PaGE RDDRESS (H) OLOBBAOOGO * く READ 
005oO 00099 01040 00207 * 
00505 0010O 2 の o1045 OozoB * BY DS 
00510 00101 に II 01050 00209 + Be SY 
00515 00102 * BO DISK SIDE OSIDE 0 01055 00210 * BS FR 
00520 OO103 > 1 SIDE 1 01060 00211 * B4 Qu 
QOS2S OO104 * BY - B1 DON*T CaRE 01065 O0212 * B3 PR 
0053O 00105 5 01070 00213 ・ B2 TR 
00535 00106 は O107S Oo214 * B1 RE 
00540 OO107 *・ ii RCBUNT の 1OB0SO02S BOK 
00545 00108 O10B5 Oo216 * 
Oo55O oo1o9 ・ Bl - BO DRIVE UNIT NO. OSO3O CO MR 
00555 oo110 ・ BY - B2 DON'T CaRE O403 コ OOG1 は 
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BIOS ソー ス ・ リ スト 





























oo eioo oost9 ・ gy scs 
RDDRESS  $FOOO 01110 00221 * BS EP 
RRER END  $FBTYF 01115 OO222 * B4 FE 
01120 00223 * HB3-B2 _L2iL1 CHRRRCTER LENGTH. 
RDDRESS EQU DEFINITION 01125 00224 * B1-BO _B2B1 BAUDE RRTE. 
01130 00225 * <〈MRITE〉 -- CPMRND DRTR. 
EgU $FFFE RESET UECTDR 01135 00226 に 
EQU まま FFFC NII UECTOR 01140 O0227 * B7 EH 
E6U $FFFR SMI VECTOR 01145 OO228 * Be IR 
ERIU FFFB IRR UECTGR 0115O 00229 * BS RTS 
EQU $FFF6 FIRQ UECTOR 01155 00230 * B4 ER 
EQU sFFF4 SMI2 UECTOR 01160 00231 * B3 SBRK 
EQU $FFF2 SM7 コ VECTOR O0116S 0O0232 * B2 RXE 
EQU FFFO NN USE 01 1?0 00233 * B1 DTR 
EBU $FFE6 SUB MORK. MRX BUFFER CHECK. 01175 00234 * BO TXEN 
E8U FFE 日 01180 OO0235 、 う 
EQU $FFE5 MOUTUR FLRE RRER 01 185 OO236 ト エ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エナ エエ エエ ] 
EQU ま FFE1 CURRENT TRRCK RDDRESS. 01190 0023? し 
E6U *FFEO CURRENT DRIUE. 01195 00238 * $FDOB VOICE GENERRTIUN OUTPUT 
01200 OO239 * B?-6 NON CDNECTION 
IEICRY EQRURTE DEFINITION 01205 O0240 * BS CUUNTER CLEAR 
01210 OO0241 * B4 NN CUNECTION 
E6U FCBO 01215 00242 * B3 RESET 
EGIU 0 O01220 00243 * B2 INT 
EQU 1 01225 00244 * B1 STOP 
EEIU る 01230 00245 * BO STRRT 
E6U き 3 01235 00246 
ERU 12 日 01240 0024? * $FD09 VOICE GENERRTION OUTPUT 
01245 00248 ロロ 
EGIU $0 ヒ FQRI1 FEED 012SO 0O0249 * B7 3 
EQU $0R LINEFEED 01255 00250 * B6 CM2 
EQU 1H ESCAPE 01260 002S1 * BS 。 1 
EBU 29 INKEY 01265 00252 * B4 CMO 
EEU $03 PUT O127O OO025S3 * B3 DRTR 3 
E6U $04 ET 01275 00254 * B2 DRTR 2 
E6U 05 GETC O1280 002S5S * B1 DRTR 1 
E6U 27 GET BLQCK 1 01285 OO256 * BO DRTRO 
1/ ロ RRER MRP 01290 OO2S? * 
01295 OO2SB * $FDOR VOICE BENERRTIUN 1INPUT 
CRSSET:LF_ ロ UTPUT 01300 OO0259 * B? BUSY 
SLCTIN (LP) 01305 OO260 き B6-0 NN CONECTION 
STRBH (LP) 01310 00261 * 
RESERUE 01315 00262 * $FDOB VQICE DRTR 
-2 NON CUNECTIHN 01320 OO263 * 
RUDIO CRSSETTE REIUTE CUNTROL. 01325 OO0264 ト エ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ ] 
IIC (CRSSET ) 01330 00265 * $FDOC R/D CUNVERTER 
01335 OO266 * 〈READ>〉 
LP DRTR _ ロ UTPUT 01340 0026? * B?-B1 NOT IN USE. 
DRTR 01345 OO26B * BO RNRLUG SERIRL DRTR INPUT. 
DaTR 6 013S0 OO269 * 
DaTR 5 0135S 0027O * 〈MRITE〉 
DRTR 4 01360 OO02Y1 * B7-H4 NOT IN USE. 
DRTR 3 01365 OO272 * B3 CHIP SELECT 
DRTR 2 013?O OO273 * B2 _ REGISTER SELECT 
DRTR 1 01375 00274 * B1-BO CHRNNEL SELECT 
DRTR 0 013B0 00275 * 
01385 00276 * $FDOD - $FDOF NON USE 
CRSSET,LP INPUT 01390 0027? * 
SPEAKER (CRSSET ) 01395 OO27 昌 に エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ て エエ エエ エエ エエ エエ エエ エエ エエ エコ 
NOT IN USE 01400 OO279 * 
DET2 (LP) 01405 O02B0 * $FD10 BUBBLE DRTR REGISTER 
DET1 (LP) 01410 OO2B1 * $FD11 BUBBLE COMMND REGISTER 
FE (LP) 01415 002B2 * $FD12 BUBBLE STRTUS REGISTER 
RCKNG (LP) 01420 OO2B3 * $FD13 BUBBLE ERRUR STRTUS REGISTER 
ERRUR (LP ) 01425 00284 * $FD14 BUBBLE PRGE REGISTER (H) 
BUSY (LP) 01430 002BS5 * $FD15 BUBBLE PRGE REGISTER (し ) 
01435 OO2B6 * $FD16 BUBBLE PRBE CUUNT REGISTER (H) 
BELL ロ UTPUT 01440 OO28? * $FD17? BUBBLE PRGE COUNT REGISTER (L) 
BELL ON/QFF 01445 OO2B8 * 
BELL (SHORT SOUND) 01450 002B9 ト エ エエ エエ エエ エエ エナ エエ エエ エエ エエ エエ エエ すす すす エエ エキ ナ テ ャ トミ エエ エト 1 
ー-1 NN CUNECTION 0145S 00290 ャ 
SFERKER SMITCH 01460 00291 * $FD1B DISK STRTUS REGISTER (READ ) 
0146S 00292 * COMPRND REGISTER (MRITE ) 
[エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エ 】 01470 00293 * $FD19 DISK TRACK_ REGISTER 
01475 00294 * $FD1R DISK SECTUR REGISTER 
SUBSYSTENM INPUT 01480 00295 * $FD1B DISK DRTR REGISTER 
BUSY O1485 OO296 * $FD1C DISK SIDE REGISTER (BPY) 
FRRITY ERRUR 01490 O0297 * SFD1D DISK DRIUE REGBISTER 
STOP KEY INDICRTQR 01495 OO298 mw BY MTOR OFF : 0 
RTTENSIQN 01500 00299 ロ MOTODR DN : 1 
01505 00300 * B1-0 DRIVUE. NUMBER (0 - 3) 
SUBSYSTEI_UUTPUT 01510 00301 * に 
HaLT 01515 00302 * SFDIE NON USE 
IRERED (SUB: CRNCEL ) 01520 00303 * $FBP1F DR DRTR_ REQUEST (BY) IRQ _ REQUEST (B6) 
ー1 NON CONECTION 01S2S 00304 吉 
6809/ZB0 FLRBE。 01530 00305 ド エ エ エナ エエ エエ エエ エエ エエ ] エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エア エエ エエ エエ ] 
01535 00306 * $FD20 KRNJI RON RDDRESS(H) 
エエ エエ エエ エエ エエ エ す エエ エエ エエ エエ エナ エエ エエ エエ エエ エエ す ] 01540 00307 * $FD21 (L) 
0154S 00308 * $FD22 KRNJI DRTR (L) 
RS232C INTERFRCE INPUT/UUTPUT 01550 00309 * $FD23 (R) 
SERIRL INPUT/ ロ UTPUT DRTR. 01SSS OO310 に 
01560 0031 1 * $FD24 - $FDFF NDN USE 
RS232C INTERFRCE STRTUS/CDIMRND- 0156S 00312 * 
ーー STRTUS REGISTER 015?0 00313 ト に エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エ す エエ エエ エエ すす すす エ すす すす エエ エエ すす すす 
O158O 00315 * 1/ ロ RDDRESS ESURTION 
R 015B5 00316 
NDET 01590 0031P 000Q R MTLPQT EQGU OO00 
RE ERROR 01595 00318 0000 R MRITE EBU MTLPOT 
ER _RUN ERROR 01600 00319 Q0000 R_ REOTE EEU 0000 
RITY ERROR 01605 00320 0001 RR LPDTOT EQU $0001 
RNSFER_ MISSING ERROR 01610 00321 0002 R MTLPIN EQU $OOO2 
CEIVE RERDY 01615 00322 0002 R RERD EBMU MTLPIN 
RNSFER DRTR BUFFER EMPTY 01620 O0323 0003 R BELL ERU 0003 
01625 00324 ロ 
E〉 -- MQDE CMMRND DRTR 01630 00325 0004 R STQPF EQU OOO4 
01635 0O0326 0005 RR SBSIN EQU $0005 
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BIOS ソー ス ・ リ スト 











O1640 
01645 
O165o 
01655 
Q16eQ 
01665 
O167O 
01675 
0168O 
01685 
01690 
01695 
Oo1YOQ 
01705 
O1T10 
01715 
Oo1Yzo 
01725 
01Y30 
01735 
01740 
01745 
01YSo 
01755 
olveo 
01Y65 

01Y7O 
017Y5 
01Y8O 
01785 
01Y90 
01795 
01BoO 
01805 
01B10 
O1815 
0182o 
01825 
01B30 
0184O 
01B45 
01B5O 
01855 
Oo1B60 
O1B65 
0Yg7o 
01875 
01880 
01B85 
01B90 
01B95 
019oo 
01905 
01910 
01915 
019zo 
01925 
01930 
01935 
01940 

01945 
0195o 
01960 
01965 
01970 
01975 
01980 
01985 
01990 
01995 
0zooo 
ozoo5 
0zo10 
0zo15 
0zozo 
0z025 
0zo30 
0z035 
02040 
ozo45 
0zo5o 
0zo55 
0zo60 
02065 
0zo7O 
ozo75 
0zoBO 
0zo85 
0zo90 
oztoo 
02105 
0z110 
02115 
oz12o 
02125 
oz130 
02135 
0z140 
02145 
oz150 
02155 
ozi60 
02165 
oz17o 
02175 
oz18O 
02185 

1 __! 寺 き 


0032? 
0032B 
00329 
00330 
0Q331 
00332 
00333 
00334 
00335 
00336 
00337 
0033 昌 
00339 
00340 
00341 
00342 
00343 
00344 
00345 
00346 
0034? 
Q0348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
0035B 
00359 
00360 
00361 
00362 
00363 
00364 
00365 


00391 

00392P 
00393P 
00394FP 
0039S5P 
00396F 
00397F 
(0039BP 
00399 

00400P 
00401P 
00402P 
00403P 
00404P 
00405 

00406P 
00407P 
0040BF' 
00409P 
00410 

00411P 
GO412P 
00413F 
00414F 
00415 

00416FP' 
00417P 
00419 

00420P 
Q0421P 
Q0422P 
00423P 
00424P 
0042SP 
Q0426P 
00427P 
0042BP 
00429P 
00430P 
00431P 
00432P 
00433P 
00434P 
0043SP 
00436P 


0000 
0002 
0004 
0006 
0008B 
0009 
OO00R 


QQOB 
O00F 
OO1 1 
0013 
09017 


0019 
001B 
QO1D 
001F 


0021 
Q023 
0025 
QO02Y 





0028 
Q002R 


002C 
O00Z2E 
0030 
0032 
0034 
0036 
003H 
003R 
003C 
003E 
0040 
0042 
0044 
Q0946 
0048 
004R 
004 に 





308 


0005 


Q006 
0007 
OO0Q0Y 


QOOB 
0009 
0008 
000B 
000C 


0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 


001 昌 
0018 
0019 
001A 
OO1BH 
001 ヒ 
QO01D 
001E 
001F 


0020 
002Z 
0021 
0OBE 
1S50 
000R 
0008 
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002 ヒ 
0064 
0126 
0133 
01RC 
0239 
O6CD 
027F 
02YF 
FE02 
FE05 
FEOB 
0893 
O02FPY 
O2FR 
0300 
05QC 
034? 


= 
記 
や mm や や や や や ヤ ロコ や や で 


や や や や や や や や ヤ や や や や や や や や や や 


や や や や や や や や や や や や や や や や 


や で で で で で で や や や で で で で で で で で や 


SBSOUT EQU s*OoQ5 
円 
RS232D EQU $OQ06 
RS232S EDU $O0007 
RS232C EQU *OOOY 
の 
VnICNT EQU *OQOOB 
VOICMD EBU $O009 
UnICIN ERU sOooa 
VOICDT EQU s*OOOB 
RDCONU EQU *OOoC 
内 
BDaTA EQU s*Oo10 
BCMD ERU $O011 
BSTRT EQU s*OO12 
BERRST EQU s0013 
BPGRDH ERU $*OO14 
BPGRDL EBU $0015 
BPRCTH ERU sOO16 
BPGCTL ESU $0017 
< 
DSTaT EQU  sOO18 
DCMD EQU s*OQ018 
DTRRCK ERU s*OO19 
DSECTR EQU sOO1A 
DDaTA EQRU *OO1B 
DSIDE EBU $OO1C 
DDRIUE EQU $OO1D 
DITREQ ERU $OO1E INTERRUPU REQUEST 
DDRQ EQRU *OO1F DATR RERUEST 
円 
KRNRUR ERU ” *OO2O KRNJI RM QDDRESS 
KRNRUD ERU *QO22 KRaNJI RM DRTR 
SKIP1 EQU $21 BRN 1 BYTE SKIP 
SKIP2 EQU  s$BE CYPX # 2 BYTES SKIP 
MSKFID ERU $1R85O : URCF #$50 
FDRERD EQU 10 FLFPY SECTR RERD. 
FDREST EQU  B FLOPPY RESTOR. SEEK TRACK O 
イイ 
* 
* *** BIDS MIN PROGRRM *** 
* 
*ー** FUNCTIDN 
* 1. JUMP TO ERCH BIHS ROUTINE 
* RCCDRDING TD REQUEST CODE 
* 2. SET STaTUS 
* 
* IF ERROR C=1 RCBSTR=ERRDR NO. 
* ELSE  C=O RCBST=O 
* 
*。 ** INTERFRCE 
* 
* ENTRY - (X)=RCB DDRESS 
。 
* EXIT - 、(X,Y,D,U,DP,CF(EF,1 DNLY) )=PRESERVED 
* =O NON ERROR 
* =1 ERRDR DETECTED 
ょ 
ヤー イト て イイ トト 
CBI ロ S EQU ・ MRIN FRQGRAI 
PSHS 。 U:Y』X,DP・D,CF REGISTER SRVE 
LDR #$FD 
TFR auDP DIRECT PAGE=*FD. 
LDB RgNOX 
CLRR 
RSLB REQUEST NO.*2 
RnLR 
内 
LDY #tBIOSTB 
LEAY  DxY 
LDR #2 RSSUME RCH ERROR 
CYPY 。#BTEND REQUEST NO ロ . CHECK 
BHI BICS1 RERUEST NH. ERROR 
* 
PSHS  X 
JSR [OxY] ERCH PROCESS 
PULS  X X,CC COME BQCK 
BI0S1 PULS CC CC COME BaCK 
STR RCBSTRX RCCR=O NHRMRL,NUT O : ERRDR 
BNE BIOS2 
CLC CLERR CRRRY 
FCB SKIP2 CMPX # : SKIP NEXT 2 BYTEG. 
円 
BIOS2 SEC SET CaRRY 
BInS25 PULS 。 U:Y,X,DP,D,PC REGISTER COPYE BACK 
BIOSTB ERU ょ * 
FDB NRLGP 0 RNRLOG FRT INPUT. 
FDB NMQTQOR 1 CASSETTE MITR CNTR ロ LE 
FDB CTBMRT 2 CaSSETTE BYTE MRITE. 
FDB CTBRED 3 CaSSETTE BYTE READ 
FDB INTBBL 4 INITIRLIZE BUBBLE 
FDB SCREEN 5 SCREEN COPY TU PRINTER. 
FDB ” MRTBBL 6 BUBBLE N PRGE MRITE 
FDB REDBBL BUBHLE NPGE READ 
FDR RESTOR  B SEEK TRACK O 
FDB DMRITE 9 1 SECTOR MRITE 
FDB DREAaD 10 1 SECTDR RERD 
FDR 。 VQICE 11 VOICE OUTPUT 
FDB BEEPDN 12 BELL DON 
FDB BEEPOF 13 BELL OFF 
FDB  LPQuT 14 PRINTER DUTPUT 
FDB HDCOPY 15 CRT HaRD COPY 
FDB SUBOUT 16 SUBSYSTEIT ロ UTPUT 











02190 
02195 
O22o00 
02205 
02210 
02215 
0Z2220 
02225 
02230 
02235 
02240 
02245 
02255 
02260 
02265 
02270 
02275 
022B0 
02285 
02290 
02295 
Q2300 
02305 
02310 
02315 
02320 
02325 
02330 
02335 
02340 
02345 
02350 
02355 
02360 
02365 
02370 
02375 
02380 
02385 
02390 
02395 
02400 
02405 
02410 
02415 
02420 
02425 
02430 
02440 
02445 
02450 
02455 
02460 
02465 
02470 
02475 
024B0 
02485 
02430 
02495 
02500 
02505 
02510 
02515 
02520 
02525 
02530 
02535 
02540 
02545 
02550 
02555 
02560 
02565 
02570 
02575 
025B0 
0258BS 
02590 
O02595 
02600 
02605 
02610 
02615 
02620 
02625 
02630 
02635 
02640 
092645 
02650 
02655 
02660 
02665 
026Y?0 
026?5 
026BO 
02685 
02690 
02695 
02?00 
02Y05 
02?10 
02715 
02720 
02725 


02Y30 


0043YP 
0043BP 
00439P 
00440P 
QO441P 
00442P 
00443P 
00444P 
00445P 
00446P 
00447P 
00448 

oo45O 

00451 

00452 

00453P 
00454P 
00455P 
00456P 
00457P 
0045BP 
00459P 
00460P 
00461P 
00462P 
00463P 
00464P 
00465P 
00466P 
oo467P 
00468P 
00469P 
00470P 
00471P 
00472P 
00473P 
00474P 
0047SP 
00476P 
0o4YYP 
004YBP 
00479P 
004B0P 
004B1P 
0048zP 
004B3P 
004B4P 
004BSP 
oo487 

004B8 

004B9 

00490P 
00491P 
00492P 
00493P 
00494F 
00495P 
00496P 
00497P 
00498P 
00499P 
005QoP 
00501P 
005O2P 
00503P 
oo5o4P 
00505P 
00506P 
005OYP 
005OBF 
00509P 
00510P 
00511P 
0Q512 

00513 

00514 

00515 

00516 

00517 

00518 

00519 

005zO 

00521 

0o5z2 

00523 

00524 

00525 

005z6 

0052" 

0052B 

00529 

00530 

00531 

00532 

00533 

00534 

00535P 
00536P 
00537P 
0053BP 
00539P 


02 


00R2 


0000 
10 
C1 


で で で で で で で で で で 


ゃ や で 


007 


や や 還 や や や や や や や や や や や や や や や や や や や や や ア や や や 


FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
BTEND FDB 
* 
し エエ エエ エエ エエ エエ すす よ 
円 
RNRLGP EQU 
LDR 
RNDR 
PSHS 
LDB 
ELRR 
CMFB 
BNE 
LDR 
DRR 
STA 
QRR 


RSSET 


SDRERD 


ト エ エエ エエ エエ エエ エエ エイ 


w 
KRNJIR EQU 
LDU 
LDY 
LDB 
STY 
DECBH 
BNE 
LDB 
PSHS 
LDD 
BSR 
BCS 
LDU 
STD 
LDY 
CMPY 
BE 
STY 
RDDD 
DEC 
BNE 
CLRR 
FULS 


HFCELR 


KaNEXD 


KRNRTS 


ENVJTK* 
CONUERT THE 
INFUT D--K 


OUTPUT D--R 
THER REG1S 


* 
円 
* 
* 
* 
円 
* 
円 
円 
* LUGIC 

*_ REG JIS(15: 
* REG R(15:O) 
* REG T(2:O): 
* (0 

* R( 昌 :4) く -JI5S 
* (12:9)〈-JI 
* T〈-(JIS(14: 
* IF T>2 THEN 
* ELSE IF T=2 
* T(-0s 

* R(12) く 1 EN 
* R(15:13)〈-T 
円 

CNVJTK RNDR 
CPPR 
BLO 
CMPR 
BLQ 
CPPR 
BLO 
CPPR 
BHS 
BITB 


BNE 


SCDCK 





&O 


BIOS ン ソース ・ リ スト 























JBIN 17 SUBSYSTEIM INPUT 02735 00546P OOER 18 01 NOROM SEC 
NFUT 1B CUNSQLE INPUT 02740 OO054YP OOEC 39 RTS 
NPUTC 19 CONSCILE INPUT CBNTINUE 02745 00548 * 
JTPUT 20 CNSQLE nUTFUT OzY50 OO0549P OOED 34 06 R _ ロ NROM PSHS  D SRUE THE JIG. 
EYIN ら 21 KEY INFUT 02?55 OO055OP OOEF B4 OF 朋 RNDR #$0F PICK UP JIS(11:B) 
SNJIR 22 KAaNJI RnM DRTR RERD. 0Z2?60 OO551P OOF1 C4 1F 人 RNDE  #$1F FICKUF_ JIS(4:O) 
"CHK 23 LP RERDY CHECK 02765 OO552P OOF3 5B LSLB SET IT TO Ra(12:4) 
【INIT 24 BIQS INITIaL SET 027?7O_OOS53P GOF4 SB LSLE RND THER FIELEDS IS SET 0 
QR 25 UnICE PQRRNETER SET 02775 00554P OOF5 5B LSLB 
DPUT 26 UnICE DRTR TRRNSFER O027BO 0O05SSP OOF6 SB LSLB 
ESET 2? UICE DEUICE RESET 02?B5 OOSS6P OOF7 49 こ R ロ LR 
02?90 0055YP OOFB 34 06 に] FSHS  D SRUE THE ADDRESS. 
エエ エエ エエ エエ エエ エエ エエ エエ ナナ エ エエ よ す ] 02?95 0055BP OOFR R6 62 1 LDA と で に 】 PICKUP JIS( 14:12) 
0z2B0O OO559P OOFC 4  ?O に 1 fRNDA  #$7O RND SUBTRUCT 2 FRQM IT. 
RNRLHG PURT INPUT ROUTINE. 02B05 OOS6OP OOFE BO 20 R SUBR 2*16 
CBCNL,X GET CHRNNEL NUMBER. 02B10 OO561P O100 34 02 に 1 PSHS Ra MULTIPLY IT BY 3. 
503 EXTRRCT 1CO 02B15 00562P 0102 48 LSLR 
02820 OO563P O103 RB E4 RDDR *S 
BRNB ュ X BET ULTRGE RRNEE. 02B25 O0564P O105 48 LSLA SET IT TO THE HIGHEST 
O2B30 00S6SP O106 7 E4 に 1 STa PD に 】 3 BITS RND SRUE. 
H HIGH _UULTRGE RRNGE? 02B35 00566F 0108 6 64 介 LDR 445 FICKUP JIS(6:5) RND 
SSET NO 02B40 00S6YP Q10R B4 60 に 1 RNDR 60 SUBTRUCT 1. 
04 RS=1 SET 02B45 0056BP 010C BO 20 R SUBR #$20 
1 02BS0 00569P 010E RB E4 R RDDR DU に 1 IMaKE THE T. 
) 02B55 0057?0P 0110 25 09 011H BES CNUJHI 
0 日 02860 OO0571P 0112 B1 40 R EMFR 2* コ ら TS JHE T に TS と 9 ツ 
)CNU 02B65 00572P 0114 25 07 011D BL CNVJLO YES. 
OPT O028YO QOS73F 0116 22 03 011BH BHI CNUJHI NrIT IGG .GT.2 
JCUNU 02B75 00574P 0118 B6 10 1 LDA #$10 Ni1IT IS 2. SET (12) HIT 
028BO 00575  - * SKIP2 CMFX # 
1 CUUNTER=9 SET。 02BB5 OO0576P 011a BC 人 FCB $B ヒ 
1 MORK RER=O _CLERR 02B90 OO0S577P_O11B B0 20 R CNUJHI SUBR 1 * コ 2 SUBTRUCT 1 FRONM THE T. 
1 RESULT SHIFT LEFT 1 BIT. 02B95 0057BP 011D RaR 61 RR CNVJLO ORR 1.5 SET THE T TO R(15:13). 
BO 02900 OO05Y9P O11F E6 62 1 LDB の 5 LUAD THE RDDRESS TI D-REG. 
S 02905 005BOP 0O121 32 65 R LERS 5:S 
CUNU 02910 QGQSB1P 0123 1 ヒビ FE CLC 
07 02915 OO5SB2P 0125 39 RTS 
ICUNU 02925 00SB4 00C2 R ITRHN ERU に る 
CHNU RERD SERIAL DRTR(LSB) 02930 005BS 00CO MTRUF EEU $CO 
01 EXTRRCT SERIRL 1 BIT DRTR。 02935 QOS5B6 ト エ エエ エナ エエ エエ エエ サエ トト エエ エエ エト エト すす トト 
THIS TIE DRTR RDD. 02940 005B? * 
「 RESULT STORE. 0z2945 005BB 0126 PF PTOR EQU * CaSSETTE MTQR CONTRUL. 
C ロ UNT DQMN. 02950 005B9F 0126 R6 02 1 LDR ITHRF ょ X GET MUTOR FLRG. 
RERD 02955 00590P 012B C6 C2 R LDB #YIHTRHN RSSUNME ITOR Q ロ N. 
GET RESULT NE BYTE. 02960 00591P 012R 43 CCI ITOR ON 
BRPD:X RERULT STORE 02965 00592P 012B 27 02 012F BER ITRCN YES,IHTOR ON. 
NORNMRL RETURN 02970 GO0593F_O012D C6 CFO R LDB MIHTRHF NH,MHTOR ロ FF、 
02975 00594P 012F DY 00 R_ MTRCN STBH REIQTE MOTHR UNTR ロ L SET. 
[エエ エエ エエ エエ よ エ エ よ よ よ エエ よ エエ よ エエ エエ エエ エコ Q02980 OOS9S5P_0131 4F CLRR NRIMRL RETURN. 
029B5 00596F 0132 39 RTS 
KRNJI ROW RERD ROUTINE 02990 00597 0 
BDBR,X GET BUFFER RDDRESS 03000 00599 エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ よ よ エエ よ よ エエ よ す すす エナ エ よ ) 
03005 QO60Q ャ 
6 SET COUNTER 03010 00601 0133 F CTBMRT EQU キ 
U++ 03015 OO602P 01 コ 33 6 02 介 LDR CRMDRT,X GET MRITE DRTR. 
32 BYTE 0 CLERR 03020 00603F 0135 BD 63 0198 BSR DOQUT 
CLR 03025 OO604P 0137? BE 0006 介 LDX #6 TIMER SET. 
6 03030 OO0605F 013R BD 68 0184 BSR TIMER 
LOF CDUNTER SET. 03035 00606F 013C BD 61. 019F M20 BSR D1nUT 
BJCD,X GET THE KRNJI JIS C ロ DE. 03040 OO0607F 013E BE 0012 人 R LDX #1B TIMER SET. 
VJTK CONUERT JIS CHDE TH RONM RDDRESS 03045 OO06QGBF 0141 BD 61 0Q1a4 BSR TIPER - 
NRT5 NT _ ロ N THE RI. 03050 OO609P 0143 BD 55 019 M30 BSR DOQUT 
BDBRiX GET KRNJI DUFFER ADDRESS. 03055 00610P 0145 BE 0012 1 LDX #1 昌 TIMER SET. 
NRIR  RDDRESS SET TU RM RDDRESS REGISTER. 03060 00611P 014B BD 5R 0184 BSR TIMER 
NROD EET KRNJI DaTR 03065 0O0612P 014Q 10BE oooo Ra LDY #O COUNTER CLERR。 
NULL DaTa ? 03070 00613P 014E BD 4F 019F M40 BSR D1nUT 
NRTS NON DaTR。 03075 OO614P QO150 44 LSRA IS MRITING DATR 0?r ロ R 17 
U++ 030BO OO615P 0151 25 OE 0161 BCS MRITE1 IF IT 1S 1GO TO MRITE1. 
RDDRESS CUNT UP 03085 OO0616PF 0153 BE  QO11 R MRITEO LDX 17 TIMER SET. 
DECREIENT COUNTER BY 1. 03090 00617P 0O156 BD 4C 0184 BSR TIMER 
NEXD 03095 OO61BP Q15SB BD 40 019 MSO BSR DOnUT 
NORMAL RETURN 03100 00619P 015R BE OO11 ト 1 LDX #17 TINER SET. 
FC 0Q3105 OO620F 015D 8BD 45 0184 BSR TIIER 
03110 OO0621P 01SF 20 OE 016F BRA NEXT 
03115 0O0622P 0161 BE 0024 R MRITE1 LDX 36 TIIER SET. 
5S-KRNJI CODE TI THE RY RDDRESS. 03120 00623F 0164 BD 3E 0184 BSR TIIMER 
1 CODE. 03125 00624F GQ166 BD 32 0198 M6O BSR DOT 
03130 0062SP 016B BE 0023 1 LDX #35 TIMER SET. 
aDDRESS. 03135 00626P O16B BD 37 0184 BSR TIMER 
03140 OO627P 016D 20 00 016F BRA NEXT 
RRE RESERVED. 03145 OO62BP O16F 31 21 R NEXT LEaY 1.Y BIT に OUNTS. 
03150 OO629P 01P1 10 ヨ BC O0008 R EMFY # 日 1 BYTE END ? 
03155 0063QP 0175 26 が 014E BNE M4Q IF _ NOT,GHTH NEXT BIT. 
03160 00631P 0177? 10BE 0000 1 LDY #0 CUNTER CLERR. 
03165 O0632P 01YH BD 2 ら 2 019F M?O BSR D1 ロ UT 
03170 00633P 017D BE 0024 人 R LDX #36 TINMER SET- 
03175 00634P O1BO BD 22  Q184 BSR TIIER 
0)s 03180 00635P 0182 8BD 16 019R MBO BSR DOQnUT 
1:B)g 03185 0O636P 0184 BE 000 ヒ に 1 LDX 12 TIMER SET. 
ー2) *3+JIS(6:5) 1: 03190 00637P 01B? BD 1B 01R4 BSR TIMER 
ーT-15 03195 0063BP 019 31 21 R LERY 1 ュ Y CHOUNTER INC. 
EN DOz 03200 00639P O1BB 10BC 0002 1 CMPY #2 IS 2 STQF BITS MRITTEN ? 
03205 OO64GP 01BF 2? 0? 0198 BEGI BYTEND IF YES:GH TI 1 BYTE END. 
03210 0O0641P 0191 BE 0016 1 LDX #22 TINMER SET. 
03215 00642P 0194 BD OE 01a4 BSR TIIER 
03220 00643P 0196 20 E3 017B BRR M?O GO T ロ 2ND STOF BIT. 
?F IS THE CQDE UN THE KaNJI RM ? 03225 00644P 0O19B 4F BYTEND CLRR 
21 03230 0Q064SP 0199 39 RTS NMRL RETURN. 
RU NO. 03235 0O646 ャ 
2 03240 00647P 019R C6 C2 R DOQUT LDB #$ に 2 DUTPUT LOM-LEUEL. 
DCK 03245 OO64BP 019C DY 00 1 STB MRITE DRTR OUT. 
30 03250 00649P 019E 39 RTS 
RON NO. 03255 OO6SO に 
50 03260 OO0651P 019F C6 ヒ 3 R D10UT LDB #$ じ コ DUTPUT HIGH-LEUEL. 
RI NO. 03265 OO6S2P 0O1R1 DY 00 に ] STB MRITE DRTR OUT. 
60 03270 00653P 0183 39 RTS 
RON YEG. 03275 OO6S4 に 
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1&O 


BIOS ソー ス ・ リ スト 
ビー 

032Bo 
032BS. 
03zgo 
03295 
03300 
03310 
03315 
03320 
03325 
03330 
03335 
03340 
03345 
03350 
03355 
03360 
03365 
03370 
03375 
03380 
03385 
03390 
03395 
03400 
03405 
03410 
03415 
03420 
03425 
03430 
03435 
03440 
03445 
03450 
03455 
03460 
03465 
03470 
03475 
03480 
03485 
03490 
03495 
03500 
03505 
03510 
03515 
0352o 
03525 
03530 
03535 
03540 
Q3545 
0355o 
03555 
03560 
03565 
03570 
03575 
03580 
03585 
03590 
03595 
0360o 
03605 
03610 
03615 
036zo 
03625 
0363O 
03635 
03640 
03645 
0365O 
03655 
0366Q 
03670 
03675 
03680 
03685 
03690 
03695 
037oo 
03705 
03710 
03715 
03720 
03Y25 
03730 
03735 
03740 
03745 
03Y50 
03Y55 
03760 
03Y65 
03Y?O 
03775 
037Y80 
Q385 
03Y90 
03Y95 
038oo 
03805 
03B10 
038B15 
0382o 


006SSP 
OO6S6P 
GO6SYP 
OO6SBP 
00659 

00661 

00662 

00663 

O00664P 
0066SP 
OO666P 
00667P 
OO66BF' 
00669P 
0067OP 
00671P 
0067Z2FP 
O0673P 
00674P 
00675P 
O00676P 
00677P 
006?BP 
00679P 
OO6BOP 
O06B1P 
006B2P 
00683P 
O00684P 
O006B5P 
00686P 
006B7P 
O06BBP 
006B9P 
00690P 
00691 

0069ZP 
00693P 
00694P 
00695P 
O0Q0696P 
00697P 
0069BP 
00699P 
Q07OOP 
00701P 
00YO2P 
00703P 
007G4P 
00?05P 
Q07O6P 
00707P 
007OBP 
00?09P 
00710 

00711P 
O0712P 
00713P 
00714 

0071SP 
00716P 
00717P 
0071BP 
0G719 

00720P 
O00Y21P 
00722P 
00723P 
00724P 
0072S5P 
00726P 
00727P 
00?2BP 
0O0729P 
00?30P 
00731 

00733 

00734 

00735 

00736FP 
00737P 
0073P 
00739P 
00740P 
00741P 
QOY42P 
00743P 
00744P 
00745P 
00Y46P 
00747P 
0074 日 

00749 

007S5OP 
007S51P 
007SZ2P 
00753P 
00754P 
007S5SP 
007S6P 
00757P 
00?SBP 
00759P 
00?60P 
00761P 
00762P 
O0?63P 


01R4 
QO1a86 
019 
018B 


30 
BC 
26 
39 


018C 
018E 
O1B2 
01B5 
01B9 
01BB 
Q1BD 
01BF 
01C2 
01C4 
01C6 
01CB 
01 ビ 9 
01CBH 
O1CE 
Q1DO 
01D2 
01D3 
01D4 
O1D6 
O1DR 
01DC 
Q1DF 
01E3 
Q1E5 
01E7 
01E9 





O1EH 
01EF 
QO1F2 
O1F6 
O1F ヨ 
01FR 
01FC 
01FE 
0201 
0203 
0205 
0207 
0209 
020D 
020F 
021 1 
0213 
0214 


0215 
0217 
0219 





021R 
021 に 
021E 
0220 


0221 
0224 
022B 
022a 
022C 
022E 
0230 
0232 
0234 
0236 
023B 


0239 
023H 
023D 
023F 
0241 
0243 
0245 
0247 
0249 
024H 
024D 
024E 


024F 
0251 

0253 
0254 
0256 
0257 
025B 
025R 
O2SB 
025C 
02SE 
025E 
0260 
0262 
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0019 


0008 
OF 

0313 
FE1D 


0313 
FDD8 


0239 
1850 


024F 


や や や 


N 
デー や や ビー や や や や や 


〇 
IN 
NN 


TIMER 


LEAX 
CNPX 
BNE 
RTS 


ー1 ュ X 
#O 
TIIER 


A 
ドイ エ エエ エエ エエ エエ エ よ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エ ] 


に 
CTBRED EBU 


CBINO 
R10 


R2O 
R30 
R40 


RS50 


R60 


RBO 


R90 


ト ] 


1 
INTBBL 


INTB05 
INTB10 


ャ 
BERRDR 


* CRSSETTE BYTE RERD. 
X RCB _RDDR SRUE. 
#0 COUNTER CLERR. 
RBURTF STOP KEY ON ? 
RBTCHK 
DIN 
R10 IF NOT:RERD RGRIN 
EDGE EDGE CRTCH. 
#30 TIIMER SET. 
TIIER 
DIN 
R10 IF IT IS NOT CRUGHT,STRRT BIT RGRIN. 
EDGE EDGE CRTCH-. 
#25 TIMER SET. 
TIIMER 
DIN 

SET DRTR IN R-REG. 
1Y COUNTER LNC- 
# 日 RRE DRTA B BIT ? 
STOP IF DK。GH TO STOF BIT CRTCH. 
REURTF ST0P KEY QN ? 
RBTCHK 
READ DRTR IN. 
#$BO 
R60 IF NT,RERD RGRIN. 
R40 GO TO NEXT BIT RERD-. 
0 CDUNTER CLERR. 
RBRTF STOP KEY QN ? 
RBTCHK 
RERD DRTR IN. 
5BO 
R70 IF NT,RERD RBRIN. 
EDGE EDGE CRTCH-. 
#24 
TIIER 
DIN 
CBINO 
1:Y COUNTER INC-. 
せら RRE 2 STUP BIT CRUGHT ? 
R7O BOD TO 2ND STOF BIT. 
X RCB COIE BRCK- 
CRMDRT,X 

NRL RERD 

1 BYTE DRTR _HRUE BEEN CRUBHT. 
RERD DaTR 1N. 
#$BO 
X 
CRMDRTX 
#52 RBNHMRL RERD, 
RBURTF STOP KEY ON ? 
RBTCHK 
RERD DRTR IN. 
#$B0 
#$BO RRISING EDGE UK ? 
EDGE IF NOT,RERD RGRIN. 
RERD DRTR IN. 
#$BO0 
#$B0 RRISING EDGE UK ? 
EDGE IF NOUT,RERD RGRIN. 

ト エ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エナ エエ エエ エエ エエ エエ エエ エエ イエ] 

キ BUBBLE INITIRLIZE 
ISKFIGI 
BUBRDY 
# せ $04 INITIRLIZE BUBBLE COMMRND SET 
BCID 
BSTRT CME ? 
INTB10 NLUQP 
BSTRT CME ? 
INTB10 NH LU ロ P 
02 
BERRDR ERRUR RNRLYZE 
* ERRR _RNRLYZE 
BERRST LORD ERRUR STRTUS REGISTER 
#30 30 

UNDEFINED ? 
BERRSO 

31 

ND IMRRKER ? 
BERRSO 

32 

NaNY BaD LOOP ? 
BERRSO 

33 

TRRNSFER MISSING ? 
BERRSO 


PSHS 
LDY 
TST 
LBNE 
BSR 
BNE 
BSR 
LDX 
BSR 
BSR 
BNE 
CLRR 
BSR 
LDX 
BSR 
BSR 
LSLBH 
RURR 
LERY 
CMFY 
BEGI 
TST 
LBNE 
LDB 
RNDB 
BNE 
BRR 


LDY 
TST 
LBNE 
LDB 
RNDB 
BNE 
BSR 
LDX 
BSR 
BSR 
BEGI 
LERY 
CYPY 
BNE 
FULS 
STR 
CELRR 
RTS 


LDB 
RNDB 
RTS 


FULS 
CLR 
LDR 
RTS 


TST 
LBNE 
LDB 
RNDB 
CIPB 
BNE 
LDB 
RNDB 
CMFB 
BNE 
RTS 


EQU 
FDB 
BSR 
LDA 
ST 
LDR 
BPL 
LDR 
BPL 
BITR 
BNE 
CLRR 
RTS 


EQU 
LDB 
LDR 
LSRB 
BCS 
INCR 
LSRB 
BCS 
INCR 
LSRB 
BCS 
INCR 
LSRB 
BCS 
INCR 


34 














03825 
03B30 
03B35 
03B40 
03845 
03BSO 
03855 
03B60O 
03865 
03870 
03875 
03BB0 
03885 
038B90 
03895 
03900 
03905 
03910 
03915 
03925 
03930 
03935 
03940 
03945 
03950 
03955 
03960 
03965 
03970 
03975 
03980 
03985 
03990 
03995 
04000 
04005 
04010 
G4015 
04020 
04025 
04030 
04035 
04040 


*04045 


04050 
04055 
04060 
04065 
04070 
04or5 
040BO 
0408B5 
04090 
04095 
04100 
04105 
04110 
04115 
04120 
04125 
04130 
04135 
04140 
04145 
o4150 
04155 
04160 
04165 
0417O 
04175 
041BO 
0418B5 
04190 
04195 
o42oo 
04205 
o4210 
0422o 
04225 
04230 
04235 
04240 
04245 
04250 
o4255 
04260 
04265 
04270 
04275 
042BO 
042B5 
04290 
o4295 
04300 
04305 
04315 
0432o 
O4325 
04330 
04335 
04340 
04345 
04350 
04355 
04360 
04365 
043?0 


00764P 
00765P 
00766P 
00767P 
O0076BP' 
00769P 
0077OP 
00771 

00772 

00773P 
00774P 
O00775F 
007Y6P 
00777P 
007?BP 
00779P 
007BGO 

00?B1P 


007B9P 
00790P 
00791P 
00792P 
00793P 
00794P 
00795P 
00796P 
00797P 
0079BP 
00799P 
QOBQQF' 
Q0B01P 
OOB02P 
00B03P 
00B04P 
O0B0SP 
OO0BO6P 
00B07P 
0OBQB 

00B09P 
OO0B1Q0P 
00B1 1P 
QOB12P 
O00B13P 
00B14P 
00815 

00B16 

00B17 

00B18P 
00819P 
00820P 
OOB21P 
O0B22 

OOB23F' 
00B24P 
00B2SP 
00B26 

QOB2YP 
O0B2BP 
O0B29P 
00830P 
00831P 
00B32P 
00B33P 
00B34P 
Q0B3SP 
O0836P 
OOB3? 

OO0B3BP 
OOB39P 
00840 

00B41P 
O00843 

00B44 

00B45 

00B46P 
00847P 
OOB4BP 
O0B49P 
O0BSOP 
00851P 
OO0B5Z2P 
00853P 
O00B54P 
OO0B55 

00BS6 

00B57P 
O0BSBP 
00B59P 
OO0B60 

O0B62 

O0B63 


O263 
0264 
0266 
0267 
0268 
026R 
O26 ビ 


026D 
OZ2Y1 
0273 
0275 
0277 
0278 
027R 


027B 
027D 


02YF 
02B1 
02B3 
02B5 
02B7 
02B9 
02BB 
02BD 
0290 
0292 
0294 
0296 
0298 
029R 
029 ビ 
029E 
020 
02R2 
02a4 
02R6 


02RB 
02RR 
O2RC 
Q2aE 
02B0 
02B1 


02B2 
02B4 
02B6 
092BR 


02BC 
02BE 
02C2 


02C4 
02C6 
02CB 
02CC 
02CE 
02DQO 
02D2 
02D4 
02D6 
02D9 


O2DR 
O2DC 


02DE 


QO2DF 
O2E1 
O2E3 
O2E5 
Q2EY 
02E9 
O2EB 
02ED 
O2EF 


O2F 1 
OZ2F3 
02F5 


02FY 
O02F3 
O2FR 


OZ2FC 
O2FE 


B6 


8 


027F 
15O 


04 


02 


027B 
1 


や や で や や で 


NNBUB 
BERRSO 


キ 


BUBRDY 
BUBLOP 


に 


BUBERR 


REDB ERU 

TTY エイ] 

内 

REDBBL EQU 

MRTBBL FDB 
BSR 
LDDp 
STD 
LDD 
BSR 
STD 
LDY 
LDa 
CMFR 
BEG 
LDR 
STR 

MRTB10 LDR 
BI 
BITR 
BEGI 
LDa 
STA 
BRA 


w 

MRTB20 LDR 
BPL 

MRTB30 BITR 
BNE 
CLRR 
RT5 


ャ * 
RERLRD EQU 
w 


FSHS 
RNDR 
CMPD 
BHI 


LDU 
CIPU 
BHI 


PSHS 
RDDD 
CPPD 
BHI 
PULS 
BITR 
BEGI 
RNDR 
RDDD 
RaDRTS RTS 
ャ 


RDRERR LDR 
FULS 

* Yi 
RTS 


エエ エエ エエ エエ エエ で す コ ] 


1 

REDBBX EQU 
LDR 
ST 

REDB10 LDR 
BI 
BITR 
BEG 
LDA 
STR 
BRR 


ャ 
REDB2O E6MU 
LDR 
BFL 
BRR 


3 
トコ 
ト エ エエ エエ エエ エエ す エ ] 


ドコ 

BEEFUN EQU 
LDR 

* SKIP 2 CMF 
FCB 

* 

BEEPQF EQU 
LDR 
STR 

BEEPS0 CLRR 





』O 


BIOS ソー ス ・ リ スト 














CRC ERROR ? 04375 OO0B?4P OZ2FF 39 RTS 
BERRS50 04385 00B76 ドナ ナ エ エ エエ エエ エエ エエ エエ エエ エエ エエ エエ エ よ エエ エエ エエ エエ エエ す ] 
35 04390 00 ヨ 7? に 
FRBE RDDRESS ERRUR ? 04395 00B7Y8B 0300 F LFOUT ERBU し 4 PRINTER OUTPUT 
BERRSQ 04400 00BY9P 0300 1ORE 02 人 LDY RCBDBR,X DRTR BUFFER RDDRESS 
#37 BUBBLE DEUICE N ロ T READY. 04405 00BBOP 0303 EE 04 LDU RCBLNH,X DUTPUT BYTES NO. 
04410 OOBB1P 0305 27 14 031B BEG LPOUT2 IF BYTES NO.=0O DO NOTHING 
04415 008B2 0307 F LPQUT1 EBU * 
人 04420 008B3P 0307 R6 RO R LDR 0Y+ 
#$FFFF 04425 00BB4P 0309 BD 065D P JSR LPPUTX 
ー-15Y 04430 00BBSP 030C PD 0313 人 R TST RBORTF 
BUBERR 04435 OO0BB6P 030F 1026 FCED R LBNE RBTCHK 
BSTRT 04440 OO0BBYP_ 0313 さ 3 SF は | LERU ー1U RLL END ? 
04445 0O0BBBP. 0315 1183 0O000 | CMPU #0 
BUBLOP 04450 OOBB9P 0319 26 EC 0307 BNE LPOUT1 
04455 00890P 031B 4F LPQUT2 CLRA 
04460 00B91P 031C 39 RTS 
2:S STRCK RDJUSTIMENT. 04465 00B92 エエ エエ エナ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ すす エエ エエ エエ エエ エエ エエ エエ エエ エエ よ よ エエ 1 
NONBUB 044?0_ 00893 * 
? 04475 00894 031D P LPCHK  E8U PRINTER DUUTPUT 
し エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エコ Q44 ヨ 0 OOB9SP 031D D6 と 』 <] LDB MTLPIN ERRUR ? 
04485 00B96P 031F CS 02 代 BITB  #$02 
lu 04490 00897P_0321 2? 1B 033E BEG LPCH40 YES ERROR 
NSKF I IR6l MSK SE1I. 04495 00898 * 
BUBRDY 04500 O0B99P 0323 CE OOQO2 全 LDU #2 RBUT 2.0 SECUUND 
RCBPCH・X 04505 00900F_0326 10BE FQOQO R LPCH10 LDY #$FOO00 
BPGCTH 04510 00901P 032R 31 3F R LPCH2O LEAY ce NR 
RCBPRHX 04515 00902P 032C 2P GOP 0335 BEG LPCH30 
RERLRD RERL RDDRESS SET. ADDRESS CHECK. 04520 00903P 032E D6 02 代 LDB NMTLPIN 
HBFGRDH 04525 00904F_ 0330 54 LSRB BUSY ? 
RCBDBRX BUFFER DDRESS 04530 00905P 0331 25 E の 032 BCS LPCH20 
RGNHX 04535 0Q0906 
#REDB REDBBL ? 04540 0090?P 0333 4F CLRA 
REDHBX BRRNCH BUBBLE RERD.・ 04545 0090BP 0334 39 RTS 
革 $02 COND SET 04550 00909 * 
BCID 045S5 00910P 0335 33 SF R LPCH30 LERU  -1.U 
BSTRT 04560 00911P 0337 1183 OO0O R EMPU  #O 
MRTB2O CPMRND END 04565 00912P 033B 26 E9 0326 BNE LPCH10 
#$40 045?0 00913P 033D SF ELRB 
MRTB10  TDRA 04575 00914 * 
0Y+ 045BO 00915P 033E B6 32 R LPCH40 LDR #50 PaPER EMPTY ? 
HBDRTR 045BS 00916P 0340 CS 08 は | BITB せ $00 日 
MRTB10 04590 00917P 0342 26 02 0346 BNE LPCHSO YES FE 
04595 0091BP 0344 B6 33 に 1 LDR #51 NT RERDY,HRRD ERROR 
BSTRT 04600 00919P 0346 39 LPCH50 RTS 
MRTB10 04610 00921 キキ キキ キャ キキ キキ キキ キャ キャ キャ キャ キキ や キキ キキ キキ 
#$02 ERRUR ? 04615 00922 あ 
BERRQR 04620 00923 034? PF SUB ロ UT EgU * SUBSYSTENM _ ロ UTPUT 
04625 00924 034? PF SUBIN EGU * SUBSYSTEN1 INPUT 
04630 00925P 034?7 B6 01 代 LDR #1 RCB ERRUR SET 
04635 00926P 0349 6D 04 は | TST RCBLNHrX RCBLNH MUST BE 0. 
呆 RDDRESS CUNTS CHECK. 04640 00927YP 034H 26 SD 038R BNE SUBYO 
UNIT ロ FFSET DD. 04645 0092BF 034D E6 05 R LDB RCBLNL・X BYTES N ロ (1 - 128) 
D D-SRUE. 04650 00929P 034F 27 59 038a BEG SUBYO IF BYTES LENBTH=0ERROR 
7F B15 -〉 0 D:CRSSETE RDDRESS. Q4655 00930P 0351 ビ 1 BO | CIPB #12 日 TH LNG ? 
#$3FF RDDR 〈= $3FF ? 04660 00931P 0353 22 SS5 038a BHI SUBYO YES RCB ERROR 
RDRERR N ロ PRGE RDDRESS ERROR. Q4665 00932 = 
0467?0 00933P 0355 34 10 人 PSHS X RCCX SRUE RCB RDDR 
RCBPCH,X Q4675 00934P 03S? 108BE FCBO に 1 LDY #SHRRED DESTINRTION 
#$400 CUUNTS 〈= $400 ? 046B0 0O0935P 035B RE 02 に 1 LDX RCBDBR・X SOURCE 
RDRERR NFRGE CUUNTS ERRQR. 04685S 00936P 03SD BD OSER P JSR BYHL BUSY CHECK aND HaLT SET 
04690 0093? * 
U 04695 00938P 0360 6 01 に 1 LDR 1hX 
5++ ++: STRCK RDJUST. 04700 00939P 0362 84 80 に 1 RNDR #$BO 
400 RDDR+CHUNTS 〈 $400 7 04?05 00940P 0364 R? 01 代 ST 1 ュ X 
RDRERR NFPRGE RDDRESS ERROR. 04?10 00941P 0366 R6 21 R LDA 1hY STRTUS RERD 
D D-CCIE BACK.。 04715 00942P 0368 8B4 ?F 人 RNDR #$7F STRTUS RESERUE 
#$BO UNIT 0 ? 04720 00943P 036R RR 01 人 DRR 1 ュ X CONT FLRG SET 
FRRDRTS YESrUNIT 0O. 04?725 00944P 036C RY 01 に 1 STR 1 ュ X 
も 7 RCER: PMSB=0 04?30 00945 
#400 NH:UNIT1. RDD UNITO ロ FFSET. 04?735 00946P Q36E 6 BO R SUB2O LDR 0X+ DUT DaTR RERD 
04?740 00947P 0370 R7 RaO R SUB25 STA 0Y+ DaTR STORE 
G4745 0094BP 0372 SR DECB 
35 FRGE RDDRESS ERROR. 04?50 00949P 0373 26 F9 036E BNE SUB2O 
UY U: DUMPY FR STRCK DJUST. 04Y55 Oo9SO 由 
FOR BSR RERLRD. 04?760 00951P 037S BD 0601 P SUB30 JSR HRESET HALT RESET COMMRND EXEC 
Q4765 OO0952P 037B 35 10 に 1 PULS 。 X RCCX CUME BRCK (RCB RDDRESS ) 
【 エ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ] 04?70 00953P 037R 4F CELRA RSSUME _ NORMAL RETURN. 
QG4?7Y5 00954P 03YB E6  B4 人 LDB 0xX RERD RERUEST NO. 
内 BUBBLE READ 04?BO O0955P 03YD C1 11 に 1 CMPB  #17 SUBIN ? 
#$01 COPMRND SET 04?BS OO9S6P O3?F 26 29 0Q3aR BNE SUBYO Nn (SUBOUT ) 
BCMD 04?90 00957 に 
BSTaT 04?795 0095BP 03B1 BD OSES P JSR BYHLUD 
REDB2O CMMRND END 04BOO 00959P 03B4 BD 0619 P JSR RERDST LOaD STRTUS。 
福 お 20 04805 0096OP 038? 26 1B 0384 BNE SUB60 ERROR 
REDB10  RDR 04B10 00961 * 
BDRTR 04815 00962P 03B9 6F 04 朋 CLR RCBLNH,X INFUT BYTES HIGH=0 
0Y+ 04B2O O0963P 038B E6 07 介 LDB RCBNTTB。X NUMBER DF TRRNSFER BYTES. 
REDB1O 04825 0O0964P 03BD EY 05 た 1 STB RCBLNL,X INPUT BYTES LnMER SET. 
Q4830 0096SP 03BF 27 12 0383 BEG SUBSO TRRNSFER=O BYTEGS. 
1 04835 00966P 0391 10RE 02 に 1 LDY RCBDBR+X INPUT DaTR TRANSFER DESTINRTION 
BSTaT G4840 OO096?P 0394 BE FCBO Ra LDX #SHRRED SOURCE 
REDB1O 04845 00968 = 
MRTB30 Q4BSO_O0969P 0397 RG6 BO R SUB40 LDR 0X+ RERD DRTA 
04855 0097OP 0399 7 RaO 人 STa 0Y+ STQRE DRTR DN BUFFER 
04 ヨ 60 00971P 039H SR DECB ッ 
ーー 04B65 00972P 039C 27 05 0383 BEB SUBS0 
Q4B7O 00973P 039E BC  FDOO は] CMPX  。#SHRRED+12B 
内 BELL ON 04B75 00974P 03R1 26  F4 0397 BNE SUB4O 
#$B1 O48BO 0O097SF 0383 4F SUBSO  CLRR NORIQL 
# 04BBS 009?76P 0384 BD 0610 F SUB60 JSR REDYRG 
$ 日 に G4B90 0097YP _ 03? BD 0601 P JSR HRESET 
04895 OO09?BP 038R 39 SUB?O RTS 
w BELL ロ FF 04905 OO9BO エエ エエ エエ す エエ エエ エエ すす す エ エキ エエ エエ よ す エエ エ エ よ よ す よ す エエ エエ すす エ よ エ よ すす エ ] 
#$01 Q4910 OO98B1 キ 
BELL 04915 009B2 038B P INPUT EQU * CUNSQLE LINE 1INPUT 
NDN ERRDR QG492O OO9B3P 03aB EC 06 R LDD RCBBPH。X INPUT BUFFER LENGTH SET 
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10 


BIOS ソー ス ・ リ スト 





04925 
04930 
04935 
04940 
04945 
049S0 
04955 
04960 
04965 
04970 
0497?5 
04980 
04985 
04990 
04995 
05000 
05005 
05010 
05015 
Q5O20 
05025 
095030 
05035 
OS5Q40 
05045 
05QSO 
05055 
0QS060 
05065 
05070 
05075 
05OBO 
05085 
05090 
05095 
05100 
05105 
05110 
05115 
05120 
05125 
05130 
05135 
05140 
05145 
05150 
05155 
05160 
05165 
05170 
05175 
05180 
05185 
QS190 
05195 
052QQ 
05205 
Q5210 
05215 
05220 
05225 
05230 
05235 
Q5240 
05245 
QS525Q 
05255 
05260 
05265 
QS2YO 
05275 
Q52B0 
052B5 
05290 
05295 
05300 
05305 
05310 
05315 
05320 
05325 
05330 
05335 
05340 
05345 
05350 
05355 
05360 
05365 
05370 
05375 
Q53B0 
05390 
05395 
05400 
05405 
05410 
05415 
05420 
Q05425 
05430 
05435 
05440 


009B4P 
00985 

009B6P 
00987P 
009BBP 
00989P 
00990P 
00991P 
00992P 
00993P 
00994 

0099SF 
00996P 
00997P 
0099BP 
00999P 
01000P 
01001P 
01002P 
01003P 
01004P 
0100SP 
01006P 
010Q07P 
0100BP 
01009P 
01010P 
01011P 
01012P 
01013P 
01014 

01015P 
01016P 
01017P 
01018P 
01019P 
01020P 
01021 

01022P 
01023P 
01024P 
0102SP 
01026 

01027P 
0102BP 
01029P 
01030 

01031 

0103Z2P 
01033P 
01034P 
01035 

01036P 
01037P 
0103BP 
01039P 
01040F 
01041FP 
01042P 
01043P 
01044P 
0104SP 
01046P 
01047P 
0104BP 
Q1049 

01050P 
01051P 
01052F 
01053P 
01054P 
0105SP 
01056P 
01057P 
01058 

01059 

0106QP 
01061F 
01062P 
01063 

01064P 
01065P 
01066P 
01067?P 
01Q68BP 
01069P 
01Q07OP 
01071P 
01072I 

01073 

01074P 
0107SP 
01077 

0107B 

01079P 
010BOP 
01081P 
010B2 

010B3P 
01084P 
010BSP 
0108B6P 
010B7P 
0S445 0108BP 047E 
05450 01089P 0481 


05455 01090 
05465 01092 


038D 


03B1 
03B4 
03B6 
03B9 
03BD 
03BF 
03C1 
03C2 


FD 
34 
BD 
1Q0BE 
B6 
7 
SF 
EE 


03C4 
03E6 
03C8 
03CR 
03CB 
03CD 
03CF 
03DO 
03D2 
03D6 
03DB 
03DC 
03DE 
03E 1 
03E2 
03E6 27 
03EB 
03ER 
03ED 


2? 
RE 
31 
SF 


03FQO 
093F3 
03F6 
93F9 
03FH 
03FF 


0401 
0405 
G407 
0409 





040H 
040D 
040F 


Q411 
0415 
941 昌 


Q41R 
041C 7 
041E 
0421 
0423 26 
0425 
042B 2B 
Q42R 
042H 
Q42E 
0431 
0433 
0435 


0436 
0438 
043B 
043E 
0441 
0445 
044B 26 
0448 


044 ビ 
044F 
0451 





0455 
0457 
0459 
045D 
045F RY 
0461 SR 
0462 26 
0464 
0465 


0466 
046 


0469 
046H 
Q46D 


0470 
0473 
0477 
0479 
047B 


FFE6 
10 
0SER 
FCB0 
04 
22 


0469 


FFE6 
0S5ER 
FCBO 


0601 
0S5E5 


1027 00B5 0466 


03D| 


や や や や や や 凹 や や や や や 


〇 
の 
ワ 
ul 


040 


INZ10 


INZ40 


INZ45 
INZ5Q 


3 


INZ60 


ャ ャ ャ 
INP40 
INFSO 





LBEB 


STD 
PSHS 
JSR 
LDY 
LDR 
STR 
CLRBH 
LDU 


ロ UTPUT 


BEGI 
LDX 
LERY 
ELRB 
LDR 
STR 
INCB 
LERU 
CPU 
BEB 
CPMPY 
BNE 
STB 
CLRR 
CYPU 
BEG 
LDR 
HRR 
STA 


JSR 
JSR 
JSR 
BNE 
CMPFU 
BERI 


LDY 
LDR 
STR 
BRR 


キャ ャ キャ 


FULS 
FSHS 
LDX 


* DRTR IN 


INP60 


1 


INF100 


INF'15Q0 


INF160 


INP200 


* 


SBTRRN 
* 


SBTR10 


SBTR2O 


ャ 
SBTR30 


3 


INPUTC 


INZ90 


キキ キキ キキ キキ キキ キネ キキ キキ キキ キキ キキ キキ ネ キャ キキ キキ キキ キキ キキ キキ キキ キキ キキ キキ キキ キャ キキ ネネ 


EQU 
LDY 
JSR 
BNE 


LDR 
STR 
LDU 
BSR 
BNE 
LDR 
BI 
CLRA 
JSR 
JSR 
FULS 
STU 
RTS 


LDR 
STA 
JSR 
JSR 
LDY 
JSR 
BNE 
ERR 


EQU 
LDB 
BE 
LDY 


LDR 
LE8U 
CIPU 
BHI 
STR 
DECB 
BNE 
CLRR 
RTS 


LDR 
RTS 


EQU 
LDD 
BEB 
STD 


JSR 
LDY 
LDR 
STR 
JSR 
JSR 
BRR 


we 





SBTR30 

SINMRX 

X TINDEX SRVE 

BYHL BUSY CHECK RND HRLT SET 
SHRRED 

#BET SET CMIMRND SET 

SMCTID:Y に =4 EET CONMRND 


N=0 SET 
RCBLNH+X LENGTH GET 
DRTR IS NTHING ? 
INZ40 
RCEBDBR。X BUFFER ADDRESS 


44Y STRING RDDRESS 
CUUNTER CLERR(N) 
0X+ X POST INCREIENT 
0Y+ 4 
BYTE CCUNTER UPF' 
1 
#0 
INZ40 
# せ SHRRED+ 12B 
INZ25 
SHRRED+3 
0 
INZ45 
#$BQ 
SHRRED+1 
SHRRED+1 5S' SET 
HRESET HRLT RESET CNMMRND ロ UT 
BYHLMD BUSY CHECK RND HRLT SET 
RERDST 
INP16Q ERRHR_ DETECTED 
#0 END ? 
INP40 YES END:GH TH INPUT 
#SHRRED CHNTINUE 
#100 に =100 SET 
SICTD:Y 
INZ20 
メ RCEX CHME BRCEK 
X RCCX SRUE 
RCEBDBR:X BUFFER TOF aDDRESS 
内 
# せ SHRRED 
RERDST STRTUS_ READ 
INF160 ERRIR 
3Y K : RETURN CODE SET 
0X+ 
#1 READ DATR CUNT=1 INITIRL 
SBTRRN SHRRED BUFFER TRRNSFER 
INF160 ERRR 
SHRRED+1 CHECK らら * 
INF200 MSB_SET CNTINUE 
REDYRR 
HRESET HLT RESET. 
X RCCX CUE BRCK 
RCBLNH:X RERD BYTE LENGTH SET 
RETURN 
#100 
SHRRED+2 CHNT CONMRND SET 
HRESET HRLT RESET 
BYHLMD BUSY CHECK RND HRLT SET 
#SHRRED 
RERDST LHRD STRTUS. 
INP160 
INF'150 
し SHRRED EMHRY TO BUFFER 


SHRRED+4 RERD BYTES LENGTH (N) 
SBTR20 
SHRRED+5 DRTR TFP RDDRESS 


QY+ RERD DRTA 
1U INCREIENT U 
SINMRX BUFFER HUER ERRHR ? 
SBTR30 YE5 
ロメ + STn ロ RE DRTA 
SBTR10 
NQRIRL. 
RETURN. 
#79 BUFFER HUER ERROR 
キ INPUT CUNTINUE 
RCBBIIH:X BUFFER MAX LENGTH 
SBTR30 
5INIRX 
BYHL BUSY CHECEK _RND HaLT SET 
#SHRRED 
#BETC GETC CNMMRND 
ら Y 
HRESET HRLT RESET. 
BYHLMD BUSY CHECK。HaLT SET. 
INP50 
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054o 
05475 
054BO 
054B5 
05490 
05495 
055oo 
05505 
o551o 
05515 
055zo 
05525 
0553o 
05535 
05540 
Q5545 
0555o 
05555 
05560 
05565 
055o 
05575 
055Bo 
055B5 
05590 
05595 
Q5eoo 
05605 
05610 
05615 
056zo 
05625 
0563o 
05635 
0564Q 
05645 
0565o 
05e55 
0566o 
05665 
0567o 
056?5 
05685 
05690 
05695 
05Yoo 
057o5 
0571o 
05715 
05zo 
05725 
0573o 
05735 
05740 
05745 
05750 
05755 
057eO 
05765 
057YO 
05775 
057B5 
05790 
05795 
05Boo 
05805 
QSB10 
05B15 
058zo 
05825 
05B3o 
05835 
05840 
05B45 
0585o 
05B55 
05B6Q 
05B65 
058YO 
05875 
05BBo 
05BB5 
05B90 
05895 
05900 
05905 
05910 
05915 
059zo 
05925 
0593o 
05935 
05940 
05945 
0595o 
05955 
05960 
05965 
059Yo 
05975 
0598o 
05985 
05990 
05995 
oeooo 
06005 
oeo1o 


01093 

01094 

0109S5P 
01096P 
01097P 
01098P 
01099P 
01100P 
01101P 
01102P 
01103P 
01104P 
01105P 
01106P 
01107P 
01108P 
01 109P 
01110P 
01111P 
011 12P 
01113P 
01114 

0111SP 
01116P 
Qt1117P 
0111BP 
01119P 
01120P 
01121P 
01122P 
01123P 
01124P 
01125P 
01126P 
01 127P 
0112BP 
01129P 
01130P 
01 131P 
01132 

01133P 
01134P 
01136 

0113? 

01138 

01 139P 
01140P 
01141P 
01142P 
01143P 
01144P 
01 1 45P 
01146P 
01147P 
01148P 
01149P 
0115OP 
01151P 
01152P 
01 153P 
01154P 
01156 

011SYP 
0115BP 
01 159P 
01160 

01161 

01162P 
01163P 
01164P 
0116SP 
01166F 
0116YP 
0116BP 
01163FP 
01170P 
01171P 
01172P 
01 173P 
01174 

0117SP 
01176P 
01177P 
01178BP 
01179P 
011BO 

01181P 
011B2P 
01 13 

011B4P 
0118SP 
01186 

01187P 
01 18BP 
01 189 

01190 

01191 

01192P 
01193P 
01194F 
01195P 
01196P 
01197 

01198P 
01193P 
01200P 
01201P 


0483 
0484 
0486 
048R 
Q48C 
048F 
0493 
0495 
0497 
0499 
049B 
049 ビ 
049E 
04RO0 
04a1 
043 
04 人 7 
04 人 9 
G4aD 


04RF 
04B2 
04B4 
04BB 
94BR 
04BCE 
G4BF 
04C2 
04C5 
04CB 
04CH 
`04CED 
Q04D1 
04D3 
04D 
04D9 
04DB 


04DD 
G4EO 


04E3 
04E6 
04ER 
04EC 
94EE 
04FO 
04F2 
04F5 
Q4FB 
04FBH 
04FD 
04FF 
0501 
0503 
OS506 
0509 


050C 
05O0F 
0511 


0514 
0516 
051R 
051 ビ 
OS51E 
051F 
0521 
Q525 
0529 
052B 
052F 
0533 


0535 
0539 
0Q53D 
Q541 
Q543 


Q547 
0549 


054R 
054D 


Q551 
0554 


0558 
0SSC 
OS5E 
0561 
0563 


0565 
056r 
056B 
056E 





SF 
0Q000 
06 
FDOO R 
ED 049C 


FCB3 は | 
00 人 
0000 は 」 
02 04BC 
B0 人 
FCB1, 1 
FCB1 代 
0601 尽 
OS5E5 P 
0619 F 
10 0Q4DD 
0000 R 
OR 04DD 
FCBO R 
64 1 
22 R 
BC 0499 


0610 及 
0601 P 


04E3 
OS5ER 
FCBO 
29 
22 
QQ 
23 
0601 
05E5 
Q002 
04 
e3 
02 
B4 
0619 
Q610 
0601 
050 に 
0635 
01 
02 


0514 

30 

R9 OOC ヨ 
01 

17 0535 


や や や で や や ゴヤ セコ や や や や や コマ や や や や や で で 


64 
R9 
R9 
id 
9 
9 
12 


OO0CC 
QQCE 


(QQDO 
OOCF 
054 


9 
R9 
9 
63 
R9 


QQCH 
00CE 
OOCF 


QODO 


や や や や や や ヤ や ココ や や や や や 


04 
0008 
R9 0QC9 


Q00Y 
R9 0QCD 


や や や 


R9 0000 
CB 
06CY 
04 
OH 


や や や 


0570 


10 R 
R9 QOQ0Q0 R 
0675 由 
10 介 


w 
HUTFUT EQU 
CLRR 
LDU 
CIYFU 
BER 
JSR 
LDY 
LDR 
STR 
LDX 
LERY 
ELRB 
LDR 
STR 
INCH 
LERU 
EMFU 
BE 
CPMFY 
BNE 


HUTZ10 


HUT05 


ロ UT10 
HUTZ2O 


HUT20 STB 
LDR 
CMPU 
BE 
LDR 
RAR 
STR 
JSR 
JSR 
JSR 
BNE 
CPU 
BEGI 
LDY 
LDR 
STA 
BRR 


HUT25 
HUTZ30 


GUTZ40 


* 
ロ UT40 JSR 
JIP 


エエ エエ エエ エエ エコ 


w 
KEYIN EQU 
JSR 
LDY 
LDR 
ST 
LDR 
STA 
SR 
JSR 
LDU 
STU 
LDD 
LDX 
STD 
JSR 
JSR 
JP 
ERU 
JSR 
LDH 
LDY 


KEYZ10 
KEYZ20 


HDCnFY 


* 
HDL ロロ FERIU 
FSHS 
STB 
HITB 
BE 
INCB 
LDR 
STR 
ELR 
LDR 
STA 
CELR 
BRA 


YISETQ 


* 
YISETE FCLR 
CLR 
ELR 
LDR 
ST 


LDR 
MUL 


SUBD 
STD 


RDDD 
STD 
* BLHCK DDR 


ま 


* DaTR INPUT 
LERU 
LDR 
JSR 
LDR 
BE 

* BLRCK INFU 
FSH5 
LERX 
JSR 
FULS 


* CHNSHLE ロ UTFUT 

REBLNH,X LENGTH 

#0 DRTR NTHING 

HUT40 

BYHL BUSY CHECK RND HRLT SET 

#SHRRED 

PUT 

SEMD:Y 上 =3 FUT CHMIMRND 

RCHDBR,X BUFFER RDDRESS 

45Y STRING RDDRESS 
CEHUNTER _CLERR (N) 

0X+ 

ロ Y+ 

ー1U 

#0 

HUT2O 

#SHRRED+128 

HUT10 

SHRRED+3 BYTES NUMEBER 

#0 

せ #0 

HUT25 

#$BO 

SHRRED+1 

SHaRED+1 S' GET 

HRESET HaLT RESET 

BYHLUMD BUSY CHECKRND HRLT SET 

RERDST LRD STaTUS. 

ロ UT40 ERRI ロ R 

#O 

HUT4Q END 

#SHRRED 

100 

SMCMD+Y ヒ =100 SET 

HUT05 

REDYR SUH RERDY RERUEST- 

HRESET HaLT RESET 

エエ エ よ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エ エエ す よ ささ 

* 

BYHL BUSY CHECK RND HALT RESET 

#SHRRED 

#INKEY INKEY C ロ MRND 

SEMD:Y =41 

#0 

SMDRTiY MRITLESS 

HRESET HaLT RESET 

BYHLMD BUSY CHECK RND HRLT SET 

2 

RCBLNH,X LENGTH SET 

SDRTiY 

RCBDBR,X 

0X 

RERDST LRD STRTUS. 

REDYREI SUB RERDY RERUEST. 

HRESET HRLT RESET,DnUBLE RETURN. 


* CRT HaRD CFPY 


FCRLF DUNMMY HUTPUT 
#1 BLQEKN ロ =1 INITIRL 
RCBDBR:X GET BUFFER RDDRESS. 
* 
YaX BUFFER RND RCH RDDRESS SRVE 
BLKNH+Y BLOCK NO. SRUE 
#$01 EVEN ? 
YISETE YES EVEN 
100 YUI=1QO0 
FUIY+1hY 
FUIYxY UFPER BYTE =O 
#199 YLI=199 
FLIY+1hY 
FLIY,Y UFFER BYTE =Q 
XISET 
PUIYY UPFER BYTE=Q 
FUIY+1:Y YUI=0 
PLIYY UFPER BYTE=Q 
#99 
FLIY+1:Y YLI=99 
#4 
1*4 
# 晶 1*4-B 
PUIXY 
#P FLIX 
FLIXY 


ESS _HRS BEEN COMPUTED ! 


BLRCEK:Y BLRCK:RRRY CHNT INURS 
#2Q0 200 BYTE FLERR 
CFBUFC 
RCBCDT,X SHNYE BLRCK CHLHR マ 
GRRYEK NN BLRCK C ロ LDR 

T 
X RCH _RDDRESS SRUE- 
BLRCEK・Y 
DINFUT 
の 3 X:CHIYE BRCK。 








0e015 
0e02o 
0e025 
06030 
06035 
06040 
06045 
06050 
0e055 
06060 
Qe065 
0e07O 
06075 
0e080 
06085 
0e090 
0e095 
Oe100 
06105 
0e110 
06115 
oe120 
06125 
06130 
06135 
06140 
06145 
06150 
06155 
Qe160 
06165 
0617O 
06175 
06180 
06185 
06190 
06195 
0e200 
0ezo5 
0e210 
06215 
oezzo 
06225 
0e230 
06235 
oez4Q 
06z45 
06250 
0ea255 
06260 
Ce265 
06270 
0e25 
0e280 
0ez85 
0ez90 
oez95 
06300 
06305 
06310 
06315 
06320 
063z5 
06330 
06335 
06340 
06345 
06350 
06355 
0e360O 
06365 
0637o 
06375 
063Bo 
06385 
06390 
06395 
06400 
06405 
06410 
Oo6415 
06420 
0e425 
06430 
Qe435 
06440 
06445 
06450 
Qe455 
06460 
06465 
06470 
06475 
0e480 
0e485 
06490 
0e495 
0650oo 
0e505 
06510 
Q6515 
06520 
06525 
06530 
06535 
06540 
0e545 





,O 


BIOS ソー ス ・ リ スト 





01202 

01203P 
01204P 
01205 

01206F' 
01207P 
01208 

01209 

01210FP 
01211P 
01212P 
01213P 
01214P 
0121SP 
01216P 
01217P 
01218P 
01219P 
01220P 
01221P 
01222P 
01223P 
01224P 
0122SP 
01226FP 
01227P 
0122BP 
01229 

01230P 
01231P 
01232P 
0123JF' 
01234P 
01235F' 
01236P 
0123? 

0123BP 
01239P 
01240P 
01241P 
01242P 
01243 

01244 

0124SF' 
01246P 
01247P' 
0124 昌 

01249P 
012SOFP 
01251F 
0125ZP 
01253P 
01254 

01255P 
01256FP' 
01257P 
0125BP 
01259P 
01260P 
01261 

Q1262 

01263P 
01264P 
01265P 
01266 

01267P 
0126BFP 
01269 

0127OP 
01271 

01272P 
01273P 
01274 

01275P 
01276P 
01277P 
0127BP 
01279P 
01280P 
012B1P 
012B ら 

012B3 

012B4 

012BSP 
012B6P 
012B7P 
012B8 

012B9P 
01290 

01291P 
01292P' 
01293P 
01294P 
01295 

01236 

01297P 
0129BP 
01299P 
01300P 
01301 

0130Z 

01303P 
01304FP 
01305P 
01306 

01307 

0130BP 


05?0 
0572 


OS574 
057B 


OS7B 
057F 
QSB1 
05B3 
0586 
QSB8 
OS5BE 
0530 
0593 
0595 
0598 
0598 
059D 
Q59F 
05R2 
05R4 
05R7 
05R9 
OS5RB 


05RE 
0SBO 
05H3 
05B5 
05B7 
05BR 
05BC 


05BE 
QSCO 
05C4 
OSC6 
05CB 


QS5CR 
0S5CH 
QSCD 


05D1 
05D3 
05D5 
OS5D7 
05D8 


05D9 
Q5DB 
OSDD 
OSDF 
OSE 1 
OSE3 


QSE5 
05EY 
0SEB 


0SER 
0SEC 


05EE 


OSFQO 
0SF2 


0SF4 
OSF6 
OSFB 
OS5F3 
OSFB 
QOSFD 
OS5FF 


0601 
0603 
0605 


0607 


0609 
06OB 
060D 
060F 


0610 
Q613 
0615 
O618 


0619 
061 ヒ 
061E 


061F 


05 RR 
erd OS5YB 
R9 Q064 RF 
0675 F 
R9 QQCB R 
01 は 1 
03 QOS5B6 
061F la 
R9 0064 
R9 0OQCB Ra 
1B 人 
0654 P 
4 ヒ R 
0654 P 
90 R 
0654 選 
01 人 
0654 羽 
82 人 
0654 選 
4 人 
2 1 
0654 F 
B4 人 
Q654 P 
B4 RA 
Ra4 人 
0654 F 
62 人 
E4 05R2 
30 1 
9 00CB Aa 
01 R 
ら OSCR 
6B 0635 
R1 人 
FF43 0514 
06 05D9 
OC R 
?D 0654 
Q5D9 問 
1B 1 
67 Q644 
41 R 
63 0644 
0C R 
SF 0644 
OS5E5 P 
18 1 
FD OS5EY 
OSER F 
05 R 
FC OSER 
1R50 人 
BO | 
05 人 
04 R 
08 に 1 
94 OSFF 
05 代 
F9 OSF8 
B4 R 
0601 FP 
02 1 
00 1 
05 R 
RF 1] 
02 R 
02 0O60F 
00 060F 
0610 F 
FCBO R 
Bo 1 
FCB0 R 
0619 P 
FCBO R 
7 に 1 
061F F 
1B R 


* 


GRRYCK 


* BRRY 


DRTR ロ T 


DRTRQ1 


ャ 
* NEXT 


LFP1.6 


キ 


BYHLUD 
DLYLQP 
BYHL 


HLTQVR 


HLTRTS 


* 
HRESET 


HRE10 


REDYRG 


F コ 


RERDST 


F] 


LF INCH 


LDR 
BER 
INFUT 
LERX 
JSR 


nUTFUT 
LDa 
BITR 
BEGI 
JSR 
LEAX 
LEAY 
LDa 
JSR 
LDA 
JSR 
LDA 
JSR 
LDa 
JSR 
LDA 
JSR 
LDa 
ロ RA 
JSR 


LDR 
JSR 
LDR 
HRR 
JSR 
CMFX 
BNE 


FULS 
LDB 
BITB 
BNE 
BSR 


BLCK 
INCB 
CNFB 
LBNE 


BSR 
LDR 
BSR 
CLRR 
RTS 
ERIU 
LDR 
BSR 
LDR 
BSR 
LDR 
BRR 


EGU 
LDR 
DECR 
BNE 
EEIU 
LDR 
BI 


FDB 
4 
LDR 
STa 


FSHS 
LDBH 
DECB 
BEGI 
LDR 
BFL 
FULS 


EGU 
FSHS 
LDR 
STR 


RNDCC 


FULS 
BSR 
BSR 
RTS 


EEIU 
LDH 
HRB 
STB 
RTS 


EEIU 
LDR 
RNDR 
RTS 


EQU 
LDR 





RCBCEDT+1X SME BRRY CULHR 


DUT 


GRRYsY 
DINFUT 


NN BRRY CHLHR 


Tn FRINTER 


BLKNHY 


#$01 
DRTaHT 
LF INEH 


ロ DD,LF FITCH SET,RND BLRNK DUT 


BLRCK+100。Y BLRCK=1X 
GRRY+100。Y GRRY=IY 


#ESC 
LPPUT 
せり し 
LPPUT 
#$90 
LPPFUT 
#$01 
LPPUT 
0-ーX 
LPPUT 
0X 
0-Y 
LFPUT 


0X 
LPFUT 
0X 
OxY 
LFPUT 
どら 


DRTRQ1 


Y5X 
BLKN ロ Y 
#01 

ャ +4 
PCRLF 


#161 
HDL ロロ P 


LFF1.6 
#FF 
LFFUT 


W 
#ESC 
LFFUTT 
1 
LPPUTT 
#12 
LPFUTT 


3 
#24 
DLYLOP 
ャ 


SBSIN 
BYHL 


MSKF 1 


#$B0 
SBS ロ UT 


B 
# 晶 


HLTRTS 
SBSIN 
HLTQVR 
B,PC 


* 
に 1 

#$00 
SBSnUT 


# せ $RF 
1 


*+4 


ュ + っ 


* 
SHRRED 
せ $BQ 

SHRRED 


を 
SHRRED 
#$7F 


# せ ESC 


BI-FRINT MDE SET 


LOMER 
0190=400 DCTS 
UPPER 


BLRCK DRTR _ READ 


BLRCK:GRRY 
RGRIN SRME DRTR 


FINTER INCREMENT (BLRCK) 
FP ロ INTER INCREMENT (GRRY) 


100 BYTES END ? 
NH:CHNTINUE 


YX CE BRCK 
EVEN BLOCK ? 


NO, ロ DD 
LINEFEED QUTFUT 


RLL BLQCK END 
NEHNTINUE 


1/6 INCH LF FITCH SET. 
F ロ RI FEED 


ESC+R+12 
$1B 


介 

12 D ロ TS FITCH SET. 

TIME DILRY. 

RBUT 100 MICRO SEC. 

2 CYCLE. 

3"CYELE。 

BUSY CHECK RND HLT SET 
READY ? 

NO CHNTINUE 


FIRR・IRR IS MRSKED UNTIL HRLT RESET. 


HRLT SET 
IRQREN PRESERUED 


HRLT RESET 

RCER SRUE 
IR6IRERI PRESERUE 
HRLT RESET 


MRSK RESET. 


TIME DILRY 
RETURN 


SUB RERDY REQUEST. 
TSB=1 
STRTUS RERD。 


STaTUS GET 


LF PITCH SET 


き 183 








10 


BIOS ソー ス ・ リ スト 





























ーー 
人 06550 01309P 0621 BD 31  O654 BSR LPPUT LINEFEED PITCH O7OY5 01414 oeCD F SCREEN EQU 
06555 01310P O623 B6 41 R LDa #" 有 OYOBO 01415P O6CD BD 0635 PF JSR 
06560 01311P 0625 BD 2D 0654 BSR LFPUT 070B5 01416F 06DO 108E 02 LDY 
06565 01312P O627 B6 0O8 に] LDA WWB ESC+R+B ovo90 Q1417P O6D3 C6  Q1 R LDB 
0657YO 01313P O629 BD 29 0654 BSR LPPUT B/Y2 INCH PITCH O?095 0141BP Q6D5 EY Ra9 00CB RA STB 
065Y5 01314P O62H C6 0O7 R LDB 。  #Y 7 SPACE 0Y100 01419F 0O6D9 E7 9 0063 8 STB 
065BO 01315P 0O62D B6 zo 人 LFIN10 LDR #$20 SPACE CODE 07105 01420 * 
065B5 01316F O62F BD 23 0654 BSR LPPUT OY110 Q1421 Oo6DD PFYLnaF EsU 
06590 01317P 0631 5R DECB 07115 01422P O6DD E6 9 0063 RA LDH 
06595 01318P O632 26 F9 oOe2p BNE LFIN10 0Y120 Q1423F O6E1 5a DECB 
06600 01319P 0634 39 LFRTS RTS 07125 01424P 0O6E2 B6 08 R LDA 
0e605 0132O * 0Y130 01425P O6E4 3D PUL 
06610 01321 * 07135 01426 * Y CORDINRTE 
06615 01322 0635 PPCRLF EQU * CR LF 0Y140 01427YP O6ES ED 9 0oCBR STD 
06620 01323P 0635 B6 OR R LDa #LF 07145 0142BP O6E9 C3  QQOY ADDD 
O6625 01324P O63Y BD 24  OG65D BSR LPPUTX 0Y150 01429P O6EC ED 9 00CFR STD 
06630 01325P 0639 ?YD 0313  R TST RBORTF 07155 01430 * X CRDINRTE 
06635 01326P 063C 27 " "F6 0634 BEQ LFRTS RETURN OY160 01431 O6FO PF XLn ロ P ERU 
06640 01327 063E P RBTRTN EgU * 07165 01432P O6FO B6 50 R LDa 
06645 0132BP 063E BD 05D9  P JSR LFP1.6 OY17O 01433F O6F2 E6  R9 00CBR LDE 
06650 01329P 0641 YE 0000 Ra JP RBTCHK RBORTED. 07175 01434P 0O6F6 5A DECB 
06655 0133O 34 OY1BO 01435P O6FY 3D MUL 
06660 01331 0644 P LPFUTT EgU * 071B5 01436PF O6FB ED 9 00C9 8 SsTD 
06665 01332P 0644 34 04 R PSHS  B 07190 01437YP O6FC ヒ 3  QO4F a aDDD 
06670 01333P 0646 BE "7FFF 人 LDX #$7FFF 07195 0143BP O6FF ED 9 0QCDR STD 
066Y5 01334P 0O649 30 1F R LPLDOP LEAX  -1X 1 OYz2o0 Q1439 * BLOCK DDR 
066BO 01335P O64B 27 26 06Y3 BEQ LPRTS 07205 01440P 0703 BD 073 F JSR 
066B5 01336P O64D D6 02 LDB MTLPIN OoY210 Q1441P OYO6 BD ovBD F JSR 
06690 01337P 064F 54 LSRB 07215 01442P 0O709 BD  QOYEB F JSR 
06695 0133BP O65SO 25 FY 0649 BCS LPLnP OvzzO O1443P OYOC 6  R9 00CB AR LDa 
06700 01339P 0O652 20 15 0669 BRR LFPUT2 07225 01444P 0710 4C INCA 
06?05 01340 * 0Y230 01445P QO711 7 9 00CBR STA 
06?10 01341 0654 P LPPUT EgU * 07235 01446P 0715 81 09 R CNFR 
06Y15 01342P 0654 34 04 R PSHS 昌 O7240 0144YP OY17 26  D?  O6FO BNE 
067Y20 01343P O656 D6 02 人 LPPUTO LDB MTLPIN 07245 0144BP 0719 B6 01 R LDa 
06725 01344P O65B 54 LSRB Ov250 01449P OYIB RY 9 00CBR STA 
06730 01345P 0659 25 FB 0656 BCS LPPUTO 07255 0145OP O71F 6  R9 0063 Aa LDa 
06735 01346P O65B 2O 0OC 0O669 BRR LPPUT2 OY260 01451P OY23 4 ヒ INCA 
06740 01347 * 07265 01452P 0724 7  R9 0063 Ra STR 
06745 01348 O65D PLPPUTX EgU * LP ロ NE BYTE OUT. OY27O 01453P OY2B B1 1a 人 FMPR 
06Y50 01349P O65D 34 04 は PSHS  B B SAUE 07275 01454P O72R 26  B1  O6DD BNE 
06755 0135OP O65F ?D 0313 Ra LPPUT1 TST RBDRTF Or2BO 01455 * LL END 
06760 01351P 0O662 26 OF 0O673 BNE LPRTS 072B5 01456P OY2C BD 05D9  P JSR 
06765 01352P O664 D6 02 A LDB MTLPIN OYz290 0145YP OY2F BD 0635 PF JSR 
067YO 01353P O666 54 LSRB BUSY ? 07295 0145BP 0732 BD 0635 PF JSR 
O67Y75 01354P 0667 25 F6  O65F BCS LPPUT1 OY300 01459P QY35 4F CLRA 
067BO 01355 0669  F LPPUT2 EGU * 07305 01460P 0736 39 RTS 
067B5 01356P 0669 97 01 人 STA LFDTQT DaTa FUT 07310 01461 * 
06790 01357P O66B C6  QO R LDB #O STRDBE PULSE 07315 01462 0737 F SDINP ERU 
06?95 0135BP O66D D? 00 R STB MTLFnT 0Y320 01463P OY37 34 20 1 PSHS 
068QO 01359P O66F CR 40 ORB #$40 07325 01464P 0739 BD 05ER  P JSR 
06B05 01360P 06?1 D?7 00 人 STB MTLFnT 07330 01465P OY3C BE FCBO Ra LDX 
06B10 01361P 0673 35  B4 R LPRTS PULS BuFC B COWYE BCK. 07335 01466P 073F B6 1B R SDIN10 LDA 
06B15 01362 07340 0146YP OY41 7 02 R STA 
06B20 01363 OeY5  P DINPUT EGU * 07345 0146BP 0743 EC  R9 00C9 RA LDD 
06B25 01364P O675 34 32 R PSHS YiX IX=CDPY DRTR(BLRCK ロ R GRRY) 07350 01469P OY4? ED 03 R STD 
BUFFER DDRESS. 07355 0147OP 0749 EC 9 QOCBA LpD 
06B30 01365 * IY=HRRD COPY BUFFER TOP ADDRESS. 07360 01471P O74D ED 05 R STD 
06B35 01366 * RCCR=CULOR DaTR. 07365 01472P O74F EC  a900CDRA Lpp 
06840 01367P O67Y BD OSEA  P JSR BYHL HRLT SET 0737Y0 01473P OY53 ED 07 a STD 
06B45 0136BP 067R BE FCBO  R LDX #SHRRED COMIAND SET 07375 01474P O755 EC  R9 00CF RA LDD 
06B5O 01369P O6YD B6 1B R DIN10 LDR #GETB1 。 GET BLOCK1 073B0 01475P OY59 ED 09 R STD 
06B55 0137OF 067F 7 02 R ST SMCID,X 073B5 01476 * 
06860 01371P OGB1 EC 9 00C9 DIN2O LDD PUIX,Y PUIX STORE 07390 014Y7P O75B CC OO1 LDD 
06B65 01372P 0685 ED 03 R STD 35X 07395 014YBP O75E ED OB R STD 
068YO 01373P O6BY EC Ra9 0QCBR DIN3O LDD PUIY,Y PUIY STCRE Oo?400 01479P OY60 CC 0203 Aa LDD 
06B75 01374P O6BB ED 05 STD 5:X 07405 014BOP 0763 ED 0OD R STD 
06BBO 01375F Q6BD EC 9 00CD R DIN4O LDD FLIX,Y PLIX STORE O7410 014B1P O765 CC Oo405 Aa LDD 
06BB5 01376P 0691 ED 07 STD  ":X 07415 014B2P O76B ED OF R STD 
06B90 0137YP 0693 EC Aa9 00CF DIN5SO LDD PLIY,Y PLIY STORE 07420 014B3P O76A CC Oo7 Aa LDD 
06B95 0137BP 0697 ED 09 STD 9.X 07425 014B4P OY6D ED BB11 Ra STD 
06900 Q1379P O699 35 02 R PULS a COLDR DRTR COPE BCK. 07430 014B5 * 
06905 013BOP 069B 6F OB CLR 11,X NUMBER ロ F CHLOR CLEAR. 07435 014B6P 0O7YO BD 0601 F JSR 
06910 01381F 0O69D 5F CLRB COLOR CODE INITIQL=BLACK=0 07440 014BYP OYY3 BD OSES  P JSR 
06915 013B2P 069E 33  OC ] LEAU 12,X COLnR DaTR STDRE TUP RDDRESS. | 07445 014BBP OY76 30 04 R LEAX 
0692Q 01383 + 0Y450 014B9P OYYB 31  R9 0000 Ra LERY 
06925 013B4P O6AO 44 LCnLOR LSRR COL ロ R IS ON ? 07455 01490P O7YC 6 8BO 人 SDIN30 LDA 
06930 013B5P O6R1 24 04  O6ar BCC NCOLOR 。NC QFF,NEXT COLOR 0Y460 01491P OY7E 7  aO 1 STA 
06935 013B6P 0683 6C OB 人 INC 11,X NUPBER ロ F CULOUR CHUNT UP 07465 01492F 07B0 BC FCD4 EMFX 
06940 0138YP O65 EY CO STB 0:U+ CCLOR CODE STORE. 07470 01493P OYB3 26  FY  O7YC BNE 
06945 01388 w + : FOR NEXT STORE。 07475 01494P 0OYB5 BD 0610 F JSR 
06950 013B9P 06R7 5C NCDLOR INCH COLOR CODE UP. O7480 01495P QYBB BD 0Q601 F JSR 
06955 01390P O6RB C1 OB R CMPB  #B RLL BITS CHECKED ? 07485 01496P 07BB 35 RaO 人 FULS 
06960 01391P O6RR 26 F4  OG6RO BNE LCOLOR 。 NO,CHECKNEXT COLOR. Q7490 01497 に 
06965 01392 ドコ 07495 01498 07BD F IDIFY EQU 
06970 01393P O6RC BD  O601 F DINP20 JSR HRESET "HALT RESET O07S00 01499P OBD 34 20 人 PSHS 
06975 01394P O6RF BD OSE5 P JSR BYHLMD IF COMMND END,HaLT SET 075Q5 015OOP 07BF 33  R4 LEAU 
069B0 01395P O6B2 30 04 R LERX 4:X DRTR RERD TUP DDRESS. 97510 01SO1P O791 30 9 0000 R LERX 
06985 01396P O6B4 35  z2o に ] PULS Y BLRCK OR BRRY : X-〉>Y 07515 015O2ZF 0795 31  R9 0064 R LERY 
TRRNSFER。 Ov520 01503P OY99 B5 QA a LDa 
06990 01397P O6B6 6 Bo R DINP30 LDR 0:X+ DRTR RERD FROM SHRED. 0752S 01504P 079B 34 02 R DTLOQF PSHS 
06995 0139BP O6BB AZ  aO R STa 0:Y+ STORE DaTR TO BLACK QR GRRY. Or530 01SOSP O79D SF CLRB 
O7OO0 01399P O6BR BC FCEB Ra CMPX 。#SHRRED+104 100 BYTES END ? 097535 01506P 079E RG  B5 R _DTLQPX LDR 
0Y005 01400P O6BD 26 F?  OGB6 BNE DINP3O O7540 01SO7P ORQ BD 20 07CZ2 BSR 
07010 01401P O6BF BD 0610  P JSR 。 REDYRB SUB RERDY REQUEST. 07545 01SOBP 0782 CB OR 人 RDDB 
OYO15 01402P O6C2 BD  O601  P JSR 。 HRESET HALT RESET RND DOUBLE RETURN. SS ER 0 3 9 5 iT 
07020 01403P O6C5 : 
NRO 人 5 間 CEO 人 07560 01511P OTRB 34 10 PSHS 
Ozo25 01404 07565 01512P OTR C6 OB LDB 
07030 01405 O6C7 PCPBUFCEOU  * U : DDRESS, : LENGTH. SO 議 12OOB ERX 
O7035 01406P O6C? 6F Co R CPBUFL CLR 。 ,U+ 0 CLEAR C9 015 ょ 4E。、OTBORG: 当 iaB0 NpDTEO10'EDN 
07040 01407P 06E9 4 DECA 0Y5BO 01515P OTB2 7 AO R STA 
07045 0140BP O6CR 26 FB  O6CY BNE 。 CPBUFL RLL END? CBB3O1GSGES OTCB な SR EER 
07050 01409P O6CC 39 RTS RETURN OCPLCBBg EBIOBO 5 
QOS5 01410 07595 0151BP OYBY 35 10 A FULS 
07065 01412 イナ イト イイ エエ トト エエ リャ エエ エエ エエ エナ エエ イ エエ エイ イエ エエ エエ エゴ ] ECO 0 0 9 0 内 BS 


OO0Y0 01413 に 





う 314 
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BIOS ソー ス ・ リ スト 

















吉 SCREEN IMRGE COPY. QY610 01521P OBD 4 DECR 
PCRLF DUNIY ロ UTFUT 07615 01522P O07BE 26 DB 079B BNE DTLUIF CHNT INUE 
RCBDBR+X GET CUPY BUFFER TUF DDRESS. O07620 01523P OPCO 35 RO は 1 PULS YjPC RETURN 
#1 07625 01524. = 
BLKNQ,Y HB=1- SET O07630 01525 07C2 P SHIFT EREU = 
BLRCK+99Y =1-25 SET 07635 01526P O7C2 4 RSLR 
Q?640 0152?P_OYC コ 69 C9 QOS5R Ra ROL BLRCK+90。U 1TH BYTE 
Q?645 0152BP OYC7 4 RSLR 
BLRCK+99。Y BET R 0?650 01529P O?CB 69 C9 00SB ROL BLRCK+91。U 2TH BYTE 
(R-1) O7655 0153OP OYCC 48 RSLA 
# 昌 B(R-1 ) 07660 01531P O7CD 69 ヒ 9 00OSC Ra RQL BLRCK+92U 3TH BYTE 
O?665 01532P QO7YD1 4B RSLR * 
SET 07670 01533P 0?7D2 69 ヒ C9 005D Ra RQL BLRCK+93+U 4TH BYTE 
PUIYY FUIY SET. 076?5 01534P OYD6 48 RSLR 
#? O076B0 01535P OYD? 69 C9 0OSE R ROL BLRCK+94,U 5TH BYTE 
PLIYY PETIY_SET O7685 01536P OTDH 48 RSLR 
SET 07690 01537P O?DC 69 EC9 00SF 8 ROL BLRCK+95。U 6 TH BYTE 
束 07695 01538BP O?EO 48 RSLR 
#B0 07700 01539P O7E1 69 C9 0060 Ra ROL BLRCK+96U ? TH BYTE 
BLKNH,Y OY?05 01540P OYES 48 RSLR 
BO(B-1) 07?10 01541P O7E6 69 E9 0061 R ROL BLRCK+97。U B TH BYTE 
07715 01542P OYER 39 RTS 
FUIXY 07720 01543 キ 
#79 07725 01544 O7EB P PROUT ERU 
FLIXY 07?730 01545P 0O?EB R6 R9 00CB R LDR BLKN ロ sY FIRST BLUCK ロ F LINE ? 
ESS HAS BEEN CMPUTED 07735 01S46P QYEF 4 DECR 
SDINP BLQCK DRTR INFUT. 07740 01547P OFO 26 0D O?FF BNE NTFST NNnT FIRST. 
MDIFY DRTR IDIFICRTI ロ N. O07?45 0154BP GOPF2 BD 061F P JSR LF INCH LF PITCH SET 
FRUUT FRINTER UTFUT. 07750 01549P O?F5 C6 03 R LDB # さ SFPRCE 10 FUT. 
BLKNOY 07755 015SOF_O7F?7 B6 20 人 LDR #$20 
07760 01551F O7F9 BD 0654 F SPCL ロ P JSR LFPUT 
BLKNHsY 07?65 01552P QO7FC SR DECB RLL END ? 
#9 07770 01553P O7FD 26 FR  O7F9 BNE SPECLHP NOEUNTINUE 
XL ロ HP X : CHNTINUE O07P75 015S4 * 
#1 Xi:EHNT INUE. 077BO 01555 07YFF F NTFST EEU * 
BLKNH:Y Xi:RESET O77B5 01556 * LDR _BLKNH:Y RET BLCK NC. 
BLRCK+99。Y GET Y CHRDINRTE 07790 0155? * CIMPR #1 
07795 01S5S8 * BE ESCHUT 
BLRCK+99Y 07BOO 01559 * CMPR #5 
#26 RLL END OYBO5 O156Q * BNE BIT ロ UT 
YLHQF' Y : ENTINUE 07B10 01561P O7FF B6 1B R ESCUUT LDA #ESC BI-FRINT MODE SET. 
O7B15 O1562F OBO1 BD 0654 拭 JSR LPPUT 
LFP1.6 07B20 01563P OBO4 B6 4 ヒ C R LDR "し ESC L 
FCRLF @-LINEFEED OB25 01564P OBO6 BD 0654 P JSR LPPUT 
FCRLF 07B30 0O1565SP OB09 B6 50 R LDR #$50 LMER=BO_ DOTS. 
NCRIRL RETURN 0YB35 01S566F'_ OBOB BD 0654 P JSR LPPUT 
07B40 0156?P OBOE B6 00 R LDR #0 UPFER=0 
OYB45 0156BP QB10 BD 06S4 由 JSR LPPUT 
い DRTR INFUT 07B5O 01569 = 
AN 07B55 01570P OB13 30 R9 O064 R BITOUT LERX GRRYY LP PUT DRTR TQF _RDDRE 
BYHL HLT SET O07B60 O15?1P OB17 C6 SO R LDB #BQ COUNTER SET. 
#SHRRED CMAND SET O07B65 015?2P OB19 R6 BO RR NEXLPD LDR 0X+ GET R DRTR 
#GETB1 GET BLCK 1 07B7O 01S?3P_QB1B BD 0654 P JSR LPPUT FRINT ロ UT 
SMCMD,X 07B75 015?4P OB1E SR DECB RLL DRTR END ? 
PUIXxY PUIX STORE OYBB0 0157SP OB1F 25  FB OB19 BNE NEXLPD NNEXT LP DRTA. 
3X 07BB5 015?76P OB21 R6 R9 OOCB 8 LDR BLKNQ ロ xY 
QB90 015??YP OB2S B1 08 人 CMPR # 日 LRST BLHCK ロ F LINE? 
1 M 拓 SUT 07B95 015?7BP OB27 26 03 OB2C BNE NUCRLF 
PLIX+Y PLIX STORE O7900 015Y9F OB29 BD 0635  P JSR 。 PCRLF DOUBLE RETURN 
4X 07905 015BOP OB2C 39 NUCERLF RTS RETURN 
PLIY』Y PLIY STORE 07915 015B2 OB2D PUFRRM EQU  +* UnICE PARAMETER SET 
9X 0?920 015 ヨ 3P OB2D BD 25 OB54 BSR URERDY 
0?7925 015B4P OB2F EE 04 に 1 LDU RCBLNH,X BET BYTES LENGTH 
SOYO1 ア CHLURG ,BLUE 07?930 O15BSP OB31 1183 OQO0O に 1 CTPU #O LENGTH=O0_DH NHTHING 
11。X 07935 015B6P OB35 27 "1B OB52 BEQ UPRR5O ERQRR 
を PURPLI 07940 0158? * 
8 に と 07945 015BBP 0B3? 10RE 02 人 R LDY RCBDBR+X BET BUFFER aDDRESS 
せ $0405 GREEN,LIGHT BLUE 07950 015B9P OB3R R6  RO R UPRR10 LDR 0xY+ RERD PRRRMETER DRTR 
15,X 07955 0O1590P 0B3C 97 09 人 STR VQICPD DRTR ロ UTFUT 
##SO0607 YELLOM。MHITE. 07960 01591 和 
17。X 07965 01592F OB3E B6 04 に 1 LDR #$04 INT RCTIVUE 
0797O0 O1593P OB40 97 OB R STa VQICNT 
HRESET 。HRLT RESET 07975 01594 層 
BYHLUD IF COMMRND END,HRLT Q7980 01595P OB42 BD 1E OB62 BSR UBUSY 
4X 07985 01596 * 
BLRCK,Y 0990 O159?P OB44 ヨ 6  QO a LDa #QO INT INACTIUE 
0X+ DRTR READ. 07995 0159BP OB46 97 QB R STa UICNT 
0Y+ STnRE DRTA QBO00 01599P OB4B BD OR 0854 BSR URERDY 
#SHRRED+B4 B0O BYTE END ? OB005 01600 に 
SDINsO 0BO10 O16O1P OB4R 33 SF 人 LERU  -1.U DECREPENT U. 
REDYRGQ SUB RERDY RERUEST。 OB015 01602P OB4C 1183 OOOO に 1 CMFU #0 RLL END ? 
HRESET HALT RESET. OB ヨ O2O O1603F OBSO 26 EB QB3a BNE UPaR10 NH。CHNT INUE 
Y,PE 0BO25 0O1604P OB52 4F UPRR5O CLRR N ロ RMRL 
OB030 O160SP OB5S3 39 RTS RETURN 
w DATR MDDIFICRTIUN 0B035 01606 円 
Y OB040 01607P OBS4 BE FFFF R VRERDY LDX せ $FFFF 
0:Y Y ニ >U 08045 0160BP 0B57 30 1F 人 URELOP LERX  -1.X 
BLRCK,Y DRTR BUFFER RDDRESS. OOSO 0O1609P OB59 27* 06 QB61 BE VRERTS Z=1 ZERCL 
RAY:Y RESULT ロ F MDIFICRTI OB055 0161OP OB5B 36 08 R LDa UnICIN 
10 CUNT=10 OBO60 01611P OB5SD 2n FB QBS7 BFL VREL ロ P 
谷 CUNTER SRUE。 0B065 O1612P OBSF C6 01 R LDB #1 Z〈〉1 NN ZERO. 
OBO?YO_ 01613P OB61 39 URERTS RTS 
BiX 0BO75 01614 
SHIFT OBOBO 01615P OB62 BE  FFFF  UBUSY LDX #$FFFF 
#10 0BOBS O1616P 0865 30 1F R UBLUF LERX ー1 ュ X 
半 B0 OB090 0161?P OB6Y 2? 06 086F BE UBRTS Z=1 ZERG. 
DTLOPX 08095 O161BP OB69 96  Oa R LDA VnICIN 
X X GRVE OB100 O1619P OBGB 2HR FB 0QB865 BMI BLUP 
#B 0B105 01620P OB6D C6 01 に 1 LDB #1 Z〈〉1 NN ZERO 
BLRCK+90U RESULT BUFFER. OB110 01621P OB6F 39 UVBRTS RTS 
ュ メ + OB120 O1623 0870 P VUDPUT EQU キ VOICE DRTR TRRNSFER 
0:Y+ OB125 O1624P OBYO B6 2O に 1 LDA # せ も 20 
OB130 0162SP OB72 97 OB 介 STa UICNT RI CUUNTER CLERR 
DTL ロ 10 OB135 QO1626 っ 0 
X X CUIE BRCK OB140 01627P 0B74 EE 04 人 LDU RCBLNH+X GET TRRNSFER BYTES LENGTH 
1 っ X X INCREIENT OB145 O162BP OB?6 1183 0QQ0O 人 CPU #0 LENGTH=O0 _D ロ NHTHING 
信 CUNTER CE BRCK. 08150 01629P OB7R 27 1B 089? BEB UDPU2O 


ーー ニー ニーー ーー ニー ニー ニー ニー ニー ニー 一 ーー ニーーーーー ト ーー トー ニー ニー ニーーー ニ ーーーーー ーーーーー ーー ーーーーー ニ ーー ーー ニー ーー ーー ニー ーー ニー ーー ニー ニー ニー ニー ーー ニー ニー ニーーーーー デ デー 
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[ 

OB155 
OB1eO 
QB165 
08B17O 
08175 
GB180 
QB185 
OB190 
OB195 
og2oo 
OBzo5 
EE 
QBz15 
QBzzo 
QBz25 
QBz35 
QB240 
QBz45 
QB25o 
QB255 
OB260 
OB265 
OBz7o 
OB275 
QB280 
0BzB5 
QB290 
08z95 
OB3oO 
08305 
0B310 
0B315 
OB320 
QB325 
OB330 
08335 
GB34Q 
0B345 
0B35Q 
0B355 
OB360 
0B365 
OB37O 
0B375 
08385 
QB390 
08395 
Q40o 
QB405 
QB410 
08415 
OB420 
OB425 
OB430 
08435 
0B440 
08445 
QB450 
08455 
QB460 
0B465 


Q163oP 
01631P 
01632P 
01633 
01634P 
01635P 
01636P 
0163Y 
0163BP 
01639P 
01640P 
01641P 
01642P 
01643P 
01644P 
01646 
01647P 
0164BP 
01649 
01650P 
01651P 
01652P 
01653 
01654P 
01655P 
01656P 
0165 
0165BP 
01659P 
01660 
01661F 
01662P 
O1663 
01664 
01665P 
01666P 
0166P 
01668P 
01669P 
016OP 
O16Y1P 
01672P 
01673P 
01674P 
01676 
O16Y7P 
0167BP 
01679P 
016BOP 
01681 
01682 
01683 
01684 
0168B5 
01686 
016B? 
016BB 
Q16B9 
Q1690 
01691 
01692 


OB?C 
0BYE 
OB2 


OBB4 
OBB? 
0BB9 


OBBH 
OBBD 
0891 
0893 
0895 
089? 
0898 


0899 
089B 


089D 
QB9F 
QBR1 


OBR3 
QBR5 
OBRY 


OBR9 
QBRB 


OBRD 
0BRE 


QBRF 
OBB1 
OBB3 
QBB5 
OBB6 
OBBB 
OBBR 
OBBC 
OBBE 
OBBF 


08CO 
OBCE2 
QBC4 
08C5 


QB4YO 01693 


QB479 
0B4B0 
QB485 
0B490 
08495 
OB5Q0 
08505 
0B510 
08515 
0BS2O 
QBS525 
0B530 
08535 
08540 
OB545 
08BS5S0 
QBSS5 
0B560 
OB565 
OB57O 
QBGY5 
0B5BO 
OBS85 
08590 
08595 
QB600 
0B605 
QB610 
0B615 
OB620 
0B625 
08630 
OB635 
QB640 
0B645 
OB65QO 
OB655 
QB660 
OB665 


01695 

01696R 
01697 

0169BR 
01699 

01700 

Q1701 

01702R 
01703 
01704R 
01705 

01706R 
017O7R 
0170BR 
01709R 
017108 
01711 

01712 

01713R 
01714R 
01Y15R 
01716R 
01717 有 
01718 

01719 

0172OR 
017 ど 1 人 
01722 介 
01723 人 
01724 人 Fa 
01725R 
01726R 
01727R 
0172BR 
01729R 
017308 
01731 介 
01732 人 a 
01733 


FEoo 


FE00 


FE0Z2 
FE05 
FE0B 


FEOB 
FEQE 
FE1 1 
FE13 
FE15 


FE19 
FE1E 
FE1D 
FE1F 
FE22 


FE24 
FE26 
FE2Y 
FE29 
FE2B 
FE2D 
FE30 
FE32 
FE34 
FE3Y 
FE38 
FE3R 
FE3C 








B6 
1183 
2 ら 


108E 
R6 
97 


33 
1183 
26 
B6 
97 
4F 
39 


B6 
9? 


BD 
B6 
97 


BD 
B6 
97 


36 
2 


4F 
39 


B6 
97 
6 
4 
26 
9? 
BD 
BD 
4F 
39 


B6 
97 
4F 
39 


10CE 


つら 


CE6 


0899 


ら 1 


OBRF 
28 
08 
19 


FD 
OB 
03 
36 


0BCO 
01 
03 


0000 
Q064 
00CB 


00C9 
QQCB 


Q0CD 
OOCF 


FBFC 


FBFE 


FEQQ 
09 


FCYF 
0100 
FE6 
FF6F 
FF6F 
FEOB 
FFCF 
FFF ビ 
FD 

BB 

FCYF 
FE19 


や や で 


や や や や や や やや や 


FEOB 


DJ 
ココ や お や や や や や や や や や や や や や や や 


3 
思想 
まこ 


LDA  #e 
CPU  #$QBOO 
BHI UDFU3o 
* 
LDY RCBDBa:X 
VDFU1O0 LDR OrY+ 
STR VQICDT 
+ 
LERU  -1.U 
CMPU  #O 
BNE VDFU1o 
LDR Ws2o 
STR VnICNT 
VDPU2O CLRR 
VDFU30 RTS 
VatCE EgU  * 
LDR #sO1 
STA BELL 
BSR VRERDY 
LDR #s21 
STR VQICNT 
* 
BSR 。 UVBUSY 
LDR #tsOo 
STA VQICNT 
VOILOP LDR VQICIN 
BPL VnILnP 
内 
ELRR 
RTS 
ャ 
VRESET ERU  * 
LDR #tse8 
STR VQICNT 
LDR  #25 
RSTLP DECR 
BNE RSTLP 
ST VQICNT 
BSR MaIT 
BSR UREADY 
CLRR 
MAIT RTS 
BIINIT EU  * 
LDR  #sO1 
STR BELL 
CLRR 
RTS 
*** CRT HaRD COPY MORK 
BLRCK E8U soOQ 
GRAY EQU  *64 
BLKND EQU  s$CB 
w 
PUIX  EgU  s*C9 
PUIY  EgU scCB 
* 
PLIX  EgU  s*CD 
PLIY EeU  sCF 
+ 
BSRES EQU  $FBFC 
RONENT EGU *FBFE 
(ETD き に 
DRG *FEOO 
BnTENT EmU 。 + 
BRA STRRTS 
BTSTK ERU $FCYF 
IFLRDR ERU *O1QO 
RESTUR JMF RRESTR 
DuRITE JrF RDMRIT 
DRERD JWP  RDREAD 
STRRTS ERU  + 
LDD #NMIRTI 
STD FNmI 
LDR #SFD 
TFR arDP 
LDS #BnTSTK 
RMOBT ERU  * 
い 
LDB STQFF 
BITB  #$02 
BNE DISKV 
LDX BSRES 
ERR SYSJWP 
* 
DISKUV ESU  +* 
LDR SBSnUT 
LSRR 
BCS NNDSz 
LDB  #5 
LRETRY PSHS BE 
LDX #BOTRCB 
BSR DREAD 
FULS 
LDX #IPLRDR 
TSTA 
BER SYSJWP 
CTFR  #$OR 
BER NNDSz 
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RSSUME RCE ERRIIR 

TO _ LONG 

BET DRTR BUFFER RDDRESS 
RERD VOICE DRTR 

STORE VICE DRTR 
DECREIIENT U CUUNTER 


RLL END 
NQCHNTINUE 


NORIRL 

RETURN 

UICE ロ UTPUT 

UOICE SFERKIER ロ FEN 


*STRRT=RCTIUE 


*STRRT=INRCETIVE 


RERDY ? 


NOnRIMRL 。RETURN 


RESET SYNTHES1ZER 
COUNTER _CLERR+DSF_RESET 


NORIRL RETURN 


BI0S INITIaL SETTING 


BLRCK DRTR BUFFER ロ FFSET. 
GRRY DRTR BUFFER ロ FFSET. 
CRT DRTR BLQCK N ロ 


PUIX DDRESS 
PUIY DDRESS 


FLIX DDRESS 
PLIY DDRESS 


BRSIC RESTRT RDDRESS. 
DO NQT INIT. 

BRSIC STRRT RDDRESS. FR 
INITIRLIZE. 


F-BRSIC BHCT FRHGRRN、 


NMI UEET ロ R SET. 


DIRECT PRGE=FD. 、 
STREK SET. 


STUF_KEY FRESSED 
DISK CHDE LHRD TRY. 
YES JUNMF_T ロ MRRM STRRT ENTRY. 


TRY TI RERD DISK CHDE. 


RETRY CHUNTS=5 SET 


REB _RDDRESS FOR BHT. 
FLHFPPY RERD _RHUTINE. 
ET RETRY CUNTS 


RNY ERRHR ? 
DISk。 IFL LHRD CYPLETED 
NT RERDY 











QB6YQO 
08675 
QB6BQ0 
0B6B5 
08690 
08695 
QB700 
08705 
0B710 
QB715 
0B720 
OB725 
08730 
OB735 
0B?Y40 
08745 
0B750 
OBY55 
0B?60 
0B?65 
OBYYO 
OB7?5 
QB780 
087B5 
QB790 
08795 
08BO0O 
08805 
OBB10 
O8B2O 
OBB25 
OBB30 
OBB35 
QBB40 
OBB45 
OBBSO 
OBBS5 
OBB60 
OBB65 
QBBYO 
0BBY5 
OBBBQO 
08BBB5 
OBB90 
0BB95 
08900 
08905 
QB910 
08915 
Q8920 
OB925 
QB930 
08935 
QB94Q 
0B945 
OB9S50 
0B955 
08960 
08965 
QB37Q 
OB975 
QB980 
0B985 
08930 
0B995 
09000 
09005 
Q9010 
09015 
09020 
09025 
09030 
09035 
09040 
09045 
09050 
09055 
09060 
09065 
09070 
09075 
090B0 
09085 
09090 
09095 
09100 
09105 
09110 
091 15 
09120 
09125 
09130 
09135 
09140 
09145 
09150 
09155 
09160 
09165 
09170 
09175 
091B0 
09185 
09190 
09195 
09200 
09205 


01734R 
01735R 
01736R 
01737R 
9173BR 
01739 

01740 人 8 
01741 人 8 
01742R 
01743 

017448 
01745R 
01746R 
01747 人 Ra 
01748R 
01749 

01750 

01751 
01752R 
01753R 
01754a 
01755R 
017S6R 
01757R 
01758 

01759 

01760R 
01761a 
01762R 
01764 

01765 

01766 

01767 

01768 

01769 

0177OR 
01771R 
01772R 
01773 
01774 介 
01775R 
01776R 
01777 介 
017YBR 
01779R 
017YBOR 
0178B1R 
017BZR 
017B3R 
0178B4R 
017BSR 
O017B6R 
017BR 
017BB 

017B9 

01790R 
017918 
01792R 
01793 
01794 人 
01795R 
017968 
01797R 
01798R 
01799R 
O180OR 
01801R 
01B02 

01B03 

01B04 

Q18QSR 
01B06R 
01807 

01BO0BA 
01B09R 
01810R 
0181 1 
01812R 
0113 

01B14R 
01815a 
01B16R 
O1817R 
01818 

018198 
018B20 

01B21R 
01B22R 
01B23R 
01B24a 
O1B2SR 
01B26R 
01 ヨ 2? 

0182BR 
01B29R 
01B30R 
01831 
01832 
018338 
01834 
01835R 
01836R 
01837R 
0183BR 
018B39 
01840R 
01841 


FE3E 
FE3F 
FE41 
FE44 
FE45 


FE47 
FE48 
FE4R 


FE4 に 
FE4E 
FE51 
FE53 
FE55 


FE 
FESB 
FES9 
FESB 
FESC 
FESD 
FESE 


FESF 
FE60 
FE66 


FE6 
FE6R 
FE6C 
FE6E 
FEYQ 
FEY2 
FEY4 
FEY?6 
FEY8 
FEYR 
FE7 に 
FEYD 
EE 
FEB1 
FEB4 
FEB5 
FEBrY 
FEB9 


FEBB 
FEBD 
FEBF 
FE92 
FE35 
FE97 
FE99 
FE9H 
FE9D 
FE3F 
FER1 
FER3 


FERS 
FERY 


FER9 
FERR 
FEAC 
FEBO 
FEBZ2 


FEB4 
FEB6 
FEBB 
FEBA 


FEBC 


FEBF 
FEC1 
FEC3 
FEC4 
FEC6 
FECB 


FEC9 
FECB 
FECD 
FECF 
FED1 
FED3 
FED5 
FEDY 
FED9 
FEDB 
FEDD 
FEDF 
FEE1 


CE 


2? 


QB 
FBFE 


1D 


BB 
B4 


04 
FESF 
RF 
04 
D4 


FE5Y 
OR 
00 
0100 


FE6Y 
FFE1 
07 
03 
EC6 
1D 
80 
1D 
4 に 
1D 
4D 


QB 
02 
FF4D 


FR 
0R 
1 


FEBB 
?B 
3 
FFE1 
FFEB 
C5 
19 
04 
FE5 
24 
C5 
1B 
1E 


FER5 
18 
03 


31 
CBQO0 
コ F 
F5 


1F 
40 
F6 
18 


FF64 


18 
08 


02 
00 


B0 
OR 
BO 
OE 
0E 
10 
08 
OD 
08 
02 
0F 
01 


FE4 に 
1 


や やや や や や や や ゃ や ヤセ 


ょ や や や や や や や や 


山 
ロ 
や や や や や や や や や 


や や や 


NHNDSK 
NHNDS2 


K] 


SYSJMF 


PF 


LRETZZ 


3 


BHTRCH 


RETRCB 


ャ 
ト エ エエ] 
ポ 

エエ エエ ] 


* 
RRESTR 


RRESEN 


Z500 


Z10Q0 


ネ 


SEEK. 


w ボ 
ャ 
CIEXEC 
3 
CMEO2 


CME05 
CME10 


w 


CME16 
CME2O 
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DECB 09210 01B42 FEE2 R FRERDY ERU キ 
BNE LRETZZ 09215 01843R FEE2 D6 18 に 1 LDB DSTRT 
LDX RCMENT 09220 01B44R FEE4 54 LSRB RERDY ? FDC RERDY CHECK. 
ELRR 09225 01845R FEES 24 94 FEEB BCC YESRDY 
STR DDRIVE MTHR STIF. 09230 01B46 * FORCE 1INTERRUPT FDC NT RERDY. 
09235 0184?7a FEEY C6 DO 月 LDB #$DO F ロ RFE INTERRUFT FMRND. 
ELRR RI BRSIC INTERFRCE=RCCR=0 09240 01B4BR FEE9 DY 18 1 STB DCID 
TFR RDF' DP=O 09245 01849 * FDC RERDY 
JMP 0X GR TI EACH ENTRY- 09250 0185OR FEEB 96 1H R YESRDY LDR DDRTR 
09255 01 ヨ 51R FEED 43 CH 
FSH5 H の 09260 01B52R FEEE 97 1H 人 ST DDRTR 
LDX RETRCB 09265 01 ヨ 53R FEFO BD ら FEC4 BSR CE15 
BSR RESTQR 09270 01B54R FEF2 91 1H R CIMFR DDRTR 
PULS H 09275 0185SR FEF4 26 CD FEC3 BNE CIE1 1 
BRR LRETRY 092B0 01856R FEF6 CE 5000 に 1 LDU #$5000 
092B5 01 ヨ 5YR FEF9 33 SF R_RDYCHK LERU ー1U TIME HUT ? 
E5U キ 09290 01B5SBR FEFH 1183 000Q R EMFU #0 
FCB FDRERD RRINH 09295 01 ヨ 59R FEFF 2? 06 FFOY BE5SI TIMUT YES TIIEHUT Z=1 ZERFL 
FCH 0 STaTUS 09300 01B60R FFO1 D6 1B は | LDB DSTRT 
FDBE IFLRDR DRTR STHRE RDDRESS. 09305 01 ヨ 61R FFG3 2B F4 FEF9 BI RDYCHk Z=Q_ NN ZERQ ロ SET. 
FCB Q TRRCK=0 09310 01B62R FF05S E6 01 Ra LDB #1 
FCH | 09315 01863R FFOY 39 TIPMOUT RTS 
FCH 0 09325 01865 * ャ キキ ャ キャ キャ DRIUE SELECT 
FCB 0 09330 01866 ba 
09335 01B6Y FFOB R DRSEL ERU * 
EBU 09340 01B6BR FFOB 1aS5O 1 FDB IMSKF15 FIRBI:IRE IMRSK. 
FCB FDREST RSIND 09345 01B69R FFOR D6 1D R LDB DDRIUE RERD CURRENT DRIUE. 
FDB 000 09350 01B?POR FFOC FY FFE5 1 STB DIHTOR 
FCB 0 UNIT 0 SET. 09355 01B?1R FFOF C4 03 R RNDB $03 ISB=IMHTHR FLRG 1=HN 0= ロ FF 
09360 01B72R FF11 FY FFEO に 1 STB CRDR1IU い CURRENT DRIUE NQ SET. 
すす です キャ ト す すす すす すす すす エル ルル エリ よ よ すす よ す すす エキ エエ エエ す そそ エエ エエ そ で ミコ 09365 01873R FF14 CE FFE1 | LDU せ CURTRK。 CURRENT HERD PHSITIHN SRUE RREAR 
09370 01B74R FF17 R6 07 R LDR RCBUNT,X 
YFE 1 CMMRND 09375 01 ヨ 7SR FF19 B4 03 人 RNDR 03 DESTINRTIIN UNIT SELECT. 
093BO 01B76R FF1H BY FFEB 人 STa DSTDRU 
ERU ボ SEEK TRRCK 0。 09385 01H77R FF1E ?D FFE5 1 TST DTCR MRS DN ? 
LDU #CURTRK 09390 01B?BR FF21 2H rd FF3R BI MRSQN TES ゝ IT MRS MOTQR ロ N 
LDR RCBUNT ,X 09395 01879 * NNMCITUR MUST BE N RND MRIT 1 SEC RND CLERR THE 
RNDR #$03 UNIT SELECT. TRRCK PHSITIHN SRUE 
ELR 人 っ U TRRCEK RDDRESS 0 SET. 09400 018B0 * RER. FIRCE RESTHRE RLL DRIUE5 
LDB DDRIUE 09405 01881 キ 
HRR #$B0 09410 O1BB2R FF23 B6 B0 RR DUTCLR LDR #$B0 
STR DDRIUE 09415 018B3R FF25 34 42 R RESTLF PSHS RU DRIVUE NQC SRUE. 
BSR EYE15 09420 01BB4R FF2Y BD FE6E 1 JSR RRESEN CRLL RESTIRE RUTINE 
LDR DDRIUE 09425 018BSR FF2R 35 42 人 PULS RxU DRIVE NH _PULL DQMN. 
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編 集 後 記 





圏 FM-8 は 6809 と いう CPU を 2 個 搭載 し て いる た め , 


その 解析 や リア ル タ イ ム 処 理 へ の 応用 な ど は な か な か 
困難 な も の で す . し か し , 未知 な る が ゆえ に その 探究 
は 一 種 の 好奇 心 を 喚起 する も の と 思わ れ ま す . 本 書 が 
その よき 手引 書 と な れ ば , 遅れ に 遅れ た 罪 も 多少 は 軽 
く な る の で は と 思っ て いま す . 

画 FM-8 格 開 研 究 と いっ た 方 が ふさ わし い ぐ ら い , 最 
後 の 最 後 ま で , 苦し み ま し た . まだ 出 な い の か と の 電 
話 に た い へ ん 元気 づけ られ まし た . 究極 の 8 ビッ ト C 
PU6809 を 2 個 も 使っ た FM-8 の よき 友 と し て , よき 
バイ ブル と し て , 本 書 を 愛読 し て いた だ けれ ば 幸い で 





10 別 二 


F'M-S 活用 研究 





昭和 57 年 7 月 20 日 初版 発行 


定価 500 円 


印刷 : 暇 耕 文 社 


⑥1982 編 集 


9 
田 本 書 は 月 刊 誌 {/O に 発表 きれ た 記事 や 未 発表 の 記事 , 
資料 な ど で 構 成 さ れ て いま す . 内 容 は コン パイ ラ , ア 
セン プ ブラ, 逆 ア モン プ ブラ, デバ ッ ガ な どの ソフ ト 開 発 
ツー ル の ほか に モニ タ , サブ シス テム , BIOS の 解説 , 
ビジ ネス ・ ユ ー ス の た め の ソ フト な ど を 満載 し て いま 
す . ユー ザー に は 参考 に な る 点 が 多い と 思う の で , ぜ 
ひご 一 読 を 
圏 人 な お , 現在 毎月 多く の FM に 関す る 記事 が 掲載 さ 
れ て お り , 『FM-8 活 用 研究 』 も 続編 を 子 定 し て いま す . 
本 書 や I/O を ご 覧 に な っ て , 新しい アイ デア や カク 
トウ し た 結果 を ぜひ 1/O に 投稿 し て くだ さる よう お 願 
いい だ た し ます . 
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